| Yazanlarda |
|
siran
Yeni Üye
Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
|
| Gönderen: 31-Mart-2010 Saat 12:19 | Kayıtlı IP
|
|
|
ArkadasLar Burda Sayfayi Actigim Zaman Line 48 De Hata Aliyorum Acaba Nerde Yanlislik Yapmisim
else
Line 48 RSX6.AddNew()
RSX6("siteLink") = refererPage
RSX6("siteTotal") = 1
RSX6.Update
end if
Tum KodLar
<%
'*********************************************************** *******************
refererPage = Request.ServerVariables("HTTP_REFERER")
'*********************************************************** *******************
if refererPage<>"" then
refererPage = replace(refererPage,"http://","")
MyArray = Split(refererPage,"/")
refererPage = "http://" + MyArray(0)
else
refererPage = "http://www.dekareyapi.com"
end if
'*********************************************************** *******************
Set RSX1=Server.CreateObject("ADODB.RecordSet")
RSX1.open "SELECT * FROM Countries WHERE countryCode1="&Session.LCID&" or countryCode2="&Session.LCID&" or countryCode3="&Session.LCID&"",Connx,3,3
Set RSX2=Server.CreateObject("ADODB.RecordSet")
RSX2.open "SELECT * FROM Countries WHERE countryCode1=2048",Connx,3,3
Set RSX3=Server.CreateObject("ADODB.RecordSet")
RSX3.open "SELECT * FROM Istatix WHERE istatixDay="&Day(date())&" and istatixMonth="&Month(date())&" and istatixYear="&Year(date())&"",Connx,3,3
Set RSX4=Server.CreateObject("ADODB.RecordSet")
RSX4.open "SELECT * FROM Istatix",Connx,3,3
Set RSX5=Server.CreateObject("ADODB.RecordSet")
RSX5.open "SELECT * FROM Sites WHERE siteLink='"&refererPage&"'",Connx,3,3
Set RSX6=Server.CreateObject("ADODB.RecordSet")
RSX6.open "SELECT * FROM Sites WHERE siteID=1",Connx,3,3
'*********************************************************** *******************
if Request.Cookies("istatix_tekmar")="" then
if RSX5.RecordCount>0 then
RSX5.Update
RSX5("siteTotal") = RSX5("siteTotal") + 1
RSX5.Update
else
RSX6.AddNew()
RSX6("siteLink") = refererPage
RSX6("siteTotal") = 1
RSX6.Update
end if
if RSX3.RecordCount>0 then
RSX3.Update
RSX3("istatixSTotal") = RSX3("istatixSTotal")+1
RSX3("istatixPTotal") = RSX3("istatixPTotal")+1
RSX3.Update
else
RSX4.AddNew()
RSX4("istatixDay") = Day(date())
RSX4("istatixMonth") = Month(date())
RSX4("istatixYear") = Year(date())
RSX4("istatixSTotal") = 1
RSX4("istatixPTotal") = 1
RSX4.Update
end if
if RSX1.RecordCount>0 then
RSX1.Update
RSX1("countrySTotal") = RSX1("countrySTotal")+1
RSX1("countryPTotal") = RSX1("countryPTotal")+1
RSX1.Update
else
RSX2.Update
RSX2("countrySTotal") = RSX2("countrySTotal")+1
RSX2("countryPTotal") = RSX2("countryPTotal")+1
RSX2.Update
end if
Response.Cookies("istatix_tekmar")="okey"
else
if RSX3.RecordCount>0 then
RSX3.Update
RSX3("istatixPTotal") = RSX3("istatixPTotal")++1
RSX3.Update
else
RSX4.AddNew()
RSX4("istatixDay") = Day(date())
RSX4("istatixMonth") = Month(date())
RSX4("istatixYear") = Year(date())
RSX4("istatixSTotal") = 1
RSX4("istatixPTotal") = 1
RSX4.Update
end if
if RSX1.RecordCount>0 then
RSX1.Update
RSX1("countryPTotal") = RSX1("countryPTotal")+1
RSX1.Update
else
RSX2.Update
RSX2("countryPTotal") = RSX2("countryPTotal")+1
RSX2.Update
end if
end if
'*********************************************************** *******************
RSX1.Close
RSX2.Close
RSX3.Close
RSX4.Close
RSX5.Close
RSX6.Close
'*********************************************************** *******************
%>
|
| Yukarı Dön |
|
| |
ASPmania
Kıdemli Üye
Kayıt Tarihi: 17-Temmuz-2005
Ülke: Türkiye
Gönderilenler: 118
|
| Gönderen: 31-Mart-2010 Saat 15:26 | Kayıtlı IP
|
|
|
Hatayı ve kodunu yazarsan yardımcı olabiliriz.
|
| Yukarı Dön |
|
| |
siran
Yeni Üye
Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
|
| Gönderen: 31-Mart-2010 Saat 17:24 | Kayıtlı IP
|
|
|
ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating.
This may be a limitation of the provider, or of the selected locktype.
/include_istatix.asp, line 48
|
| Yukarı Dön |
|
| |
ASPmania
Kıdemli Üye
Kayıt Tarihi: 17-Temmuz-2005
Ülke: Türkiye
Gönderilenler: 118
|
| Gönderen: 31-Mart-2010 Saat 20:14 | Kayıtlı IP
|
|
|
Sistem update yapmana izin vermiyor çünkü, update yapabilmen için bağlantıyı 1,3 ile açmalısın.
Set RSX6=Server.CreateObject("ADODB.RecordSet")
RSX6.open "SELECT * FROM Sites WHERE siteID=1",Connx,3,3
Satırını;
Set RSX6=Server.CreateObject("ADODB.RecordSet")
RSX6.open "SELECT * FROM Sites WHERE siteID=1",Connx,1,3
ile değiştirip dener misin? Sorun muhtemelen düzelecektir.
|
| Yukarı Dön |
|
| |
siran
Yeni Üye
Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
|
| Gönderen: 01-Nisan-2010 Saat 08:37 | Kayıtlı IP
|
|
|
Hepsini Degistirip Deniycem Kardes Saolasin
|
| Yukarı Dön |
|
| |
ASPmania
Kıdemli Üye
Kayıt Tarihi: 17-Temmuz-2005
Ülke: Türkiye
Gönderilenler: 118
|
| Gönderen: 01-Nisan-2010 Saat 13:08 | Kayıtlı IP
|
|
|
Rica ederim kolay gelsin
|
| Yukarı Dön |
|
| |
siran
Yeni Üye
Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
|
| Gönderen: 01-Nisan-2010 Saat 17:26 | Kayıtlı IP
|
|
|
Oralari Degistirdim Ama Yine Ayni Hatayi Aliyorum Kardesim
|
| Yukarı Dön |
|
| |
siran
Yeni Üye
Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
|
| Gönderen: 01-Nisan-2010 Saat 17:41 | Kayıtlı IP
|
|
|
Baska Bir Konuda
Düzenleyen siran 02-Nisan-2010 Saat 08:14
|
| Yukarı Dön |
|
| |
ASPmania
Kıdemli Üye
Kayıt Tarihi: 17-Temmuz-2005
Ülke: Türkiye
Gönderilenler: 118
|
| Gönderen: 02-Nisan-2010 Saat 03:46 | Kayıtlı IP
|
|
|
1,3 düzeltmesini yaptıktan sonra hatanın düzelmesi gerekiyor. Sorguları tek tek dener misin hangi sorguda hata var onu anlayalım ona göre tekrar bakalım.
2. sorun içinde ayrı bir konu açarsan çok daha iyi olur yine yardımcı olmaya çalışırım
|
| Yukarı Dön |
|
| |
siran
Yeni Üye
Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
|
| Gönderen: 02-Nisan-2010 Saat 08:13 | Kayıtlı IP
|
|
|
1 3 De yapsam 3 3 De yapsam ayni yerde hata aliyorum line 48 db de mi yanlislik yaptim ama bu arada sunuda soyleyim belki baska bir fikrin olabilir bu konuda plesk panelden hata sayfalarini kapattim hata sayfalarini actigimda 500 iç sunucu hatasi veriyordu pleskden kapattim hata sayfalarini hatanin nerde oldugunu gormek icin yazma icinlerini felan panelden fulll olarak verdim
else
Line 48 RSX6.AddNew()
RSX6("siteLink") = refererPage
RSX6("siteTotal") = 1
RSX6.Update
end if
|
| Yukarı Dön |
|
| |
ASPTurkiye.com Forum : ASP
Konu: ADODB.Recordset error ’800a0cb3’ hatası
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş