Şimdi Ara

http 500 iç sunucu hatası

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
3
Cevap
0
Favori
1.255
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar http 500 iç sunucu hatası alıyorum
    hatanın içeriği
    Microsoft OLE DB Provider for ODBC Drivers error '80004005'

    [Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

    /sayac/sayan.asp, line 15


    buda program anlamdım sorun nerde

    <%
    Dim gun,ay,yil,toplamgunluk
    gun=day(Date)
    ay=month(Date)
    yil=year(Date)
    Set ekle = Server.CreateObject ("ADODB.RecordSet")
    sql = " Select * from gunluk where gun = "&gun&" and ay="&ay&" and Sene="&yil&" "
    ekle.open sql,yol,1,3
    If ekle.recordcount = 0 Then
    ekle.addnew
    ekle("gun")=gun
    ekle("ay")=ay
    ekle("Sene")=yil
    ekle("toplam")=ekle("toplam")+1
    ekle.update
    ekle.close
    set ekle=nothing
    Set rs = Server.CreateObject ("ADODB.RecordSet")
    sql = " Select * from istatistikler "
    rs.open sql,yol,1,3
    ip=request.servervariables("remote_addr")
    gonderen=request.servervariables("http_referer")
    tarih=date
    saat = Now()
    saat = FormatDateTime(saat,4)
    rs.addnew
    rs("ip")=ip
    rs("gonderen")=gonderen
    rs("tarih")=tarih
    rs("saat")=saat
    rs.update
    rs.close
    set rs=nothing
    Set toplam = Server.CreateObject ("ADODB.RecordSet")
    sql = " Select * from sayac "
    toplam.open sql,yol,1,3
    toplam("toplam")=toplam("toplam")+ 1
    toplam("bugun")=toplam("bugun")+1
    toplam.update
    toplam.close
    Else

    ekle.update
    If session("oturum")<>"ziyaret" then
    ekle("toplam")=ekle("toplam")+1
    Set rs = Server.CreateObject ("ADODB.RecordSet")
    sql = " Select * from istatistikler "
    rs.open sql,yol,1,3
    ip=request.servervariables("remote_addr")
    gonderen=request.servervariables("http_referer")
    tarih=date
    saat = Now()
    saat = FormatDateTime(saat,4)
    rs.addnew
    rs("ip")=ip
    rs("gonderen")=gonderen
    rs("tarih")=tarih
    rs("saat")=saat
    rs.update
    rs.close
    set rs=nothing
    Set toplam = Server.CreateObject ("ADODB.RecordSet")
    sql = " Select * from sayac "
    toplam.open sql,yol,1,3
    toplam("toplam")=toplam("toplam")+ 1
    toplam("bugun")=toplam("bugun")+1
    toplam.update
    toplam.close
    else
    ekle("toplam")=ekle("toplam")
    end if
    ekle.update
    ekle.close
    set ekle=nothing
    End If
    session("oturum")="ziyaret"
    session.timeout=60
    %>







  • Database e yazma izni vermemişsin sanırım.
  • Yazma izni verilmemiş.Lokal sunucuda deniyorsan mdb veya sql uzantılı veritabanına sağ tıkla ve yazma iznini ver.
    Ayrıca denetim masası / yönetimsel araçlardaki Internet Information Server simgesini tıklayıp orada kendi bilgisayarının rootuna yazma izni verebilirsin.
    Eğer lokal sunucu değilde ftpde alıyorsan bu hatayı plesk cpanel gibi yazılımlarla izinlerini verebilirsin.Bunlar yok diyorsan sunucu firmayla görüş.

    Kolay gelsin.
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.