implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP
 ASPTurkiye.com Forum : ASP
Konu Konu: ADODB.Recordset error ’800a0cb3’ hatası Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
siran
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
Gönderen: 31-Mart-2010 Saat 12:19 | Kayıtlı IP Alıntı siran

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 Göster siran's Özellikler Diğer Mesajlarını Ara: siran
 
ASPmania
Kıdemli Üye
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 Alıntı ASPmania

Hatayı ve kodunu yazarsan yardımcı olabiliriz.
Yukarı Dön Göster ASPmania's Özellikler Diğer Mesajlarını Ara: ASPmania Ziyaret ASPmania's Ana Sayfa
 
siran
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
Gönderen: 31-Mart-2010 Saat 17:24 | Kayıtlı IP Alıntı siran

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 Göster siran's Özellikler Diğer Mesajlarını Ara: siran
 
ASPmania
Kıdemli Üye
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 Alıntı ASPmania

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 Göster ASPmania's Özellikler Diğer Mesajlarını Ara: ASPmania Ziyaret ASPmania's Ana Sayfa
 
siran
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
Gönderen: 01-Nisan-2010 Saat 08:37 | Kayıtlı IP Alıntı siran

Hepsini Degistirip Deniycem Kardes Saolasin
Yukarı Dön Göster siran's Özellikler Diğer Mesajlarını Ara: siran
 
ASPmania
Kıdemli Üye
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 Alıntı ASPmania

Rica ederim kolay gelsin
Yukarı Dön Göster ASPmania's Özellikler Diğer Mesajlarını Ara: ASPmania Ziyaret ASPmania's Ana Sayfa
 
siran
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
Gönderen: 01-Nisan-2010 Saat 17:26 | Kayıtlı IP Alıntı siran

Oralari Degistirdim Ama Yine Ayni Hatayi Aliyorum Kardesim
Yukarı Dön Göster siran's Özellikler Diğer Mesajlarını Ara: siran
 
siran
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
Gönderen: 01-Nisan-2010 Saat 17:41 | Kayıtlı IP Alıntı siran

Baska Bir Konuda


Düzenleyen siran 02-Nisan-2010 Saat 08:14
Yukarı Dön Göster siran's Özellikler Diğer Mesajlarını Ara: siran
 
ASPmania
Kıdemli Üye
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 Alıntı ASPmania

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 Göster ASPmania's Özellikler Diğer Mesajlarını Ara: ASPmania Ziyaret ASPmania's Ana Sayfa
 
siran
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Mart-2010
Gönderilenler: 34
Gönderen: 02-Nisan-2010 Saat 08:13 | Kayıtlı IP Alıntı siran

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 Göster siran's Özellikler Diğer Mesajlarını Ara: siran
 

  << 1 2 3 >>
  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.