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 |
|
|