Şimdi Ara

http 500 iç sunucu hatası

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Samsung Galaxy S25: Yapay Zeka Parmaklarınızın Ucunda https://amzn.to/40CnvTY

Baby Einstein Cal's First Melodies Magic Touch Ahşap Piyano Müzikli Baby Oyuncağı, 6 Aylık ve Üzeri : Amazon.com.tr: Oyuncak https://www.amazon.com.tr/dp/B093FBW2QM?ref=ppx_yo2ov_dt_b_fed_asin_title 10 sa. önce paylaşıldı

arnica GH26253 Diamond Tost Makinesi Mor : Amazon.com.tr: Mutfak https://www.amazon.com.tr/dp/B08DRMW14G 4 gün önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

3
Cevap

0
Favori

1.277
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

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

FM.

Yarbay

3206 Mesaj

Tüm Başarılarını Gör

Response.Write

Yüzbaşı

979 Mesaj

Tüm Başarılarını Gör

Sayfa: 1

Benzer içerikler

Ip işlemleri

Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara

KAPAT X

%40
Kazan

%2,8
Kazan

%6,5
Kazan

%25
Kazan

%1,6
Kazan

%3,2
Kazan

%5,5
Kazan

%3,2
Kazan

%5
Kazan

%3,2
Kazan

%5
Kazan

%2
Kazan

Alışveriş Yaptıkça Para Kazan Harekete Geç »