meqannn
Üye
15.10.2008
Acemi Er
7
Acemi Er
7
Hakkında
-
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/bloklar/bloklar/istatistik/index.asp, line 21
YUKARIDAKİ HATAYI ALIYORUM . AŞAĞIYA KODLARIDA YAZDIMKİ YARDIMCI OLURKEN İŞİNİZ KOLAYLASIR BELKİ DİYE YARDIMLARINIZI BEKLİORUM
------------------------------------------------------------------
<table background="tema/<%=strtema%>/tablobg.PNG" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="100%">
<tr height="20">
<td background="tema/<%=strtema%>/blokb.png" width="1%" align="center"><img border="0" src="tema/<%=strtema%>/blok.png"></td>
<td background="tema/<%=strtema%>/blokb.png" width="99%" align="left"><font class="tablobaslik">İstatistikler</font> [Genel]</td>
</tr>
<tr>
<td class="ustcizgi" colspan="2">
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(sayaclar_veriyolu & ".mdb")
Set pordus = Server.CreateObject("ADODB.Recordset")
zaman=mid(now(),1,10)
ip_no=Request.ServerVariables("REMOTE_ADDR")
sor="Select * from ipler where ipsi like '"&ip_no&"' "
pordus.Open sor,Sur,1,3
if pordus.eof then
pordus.AddNew
pordus("ipsi")=ip_no
pordus("hit")="1"
pordus("tarih")=zaman
pordus.Update " HATAYI GOSTERDİĞİ LİNE 21 "
pordus.close
tekil="ok"
else
if pordus("tarih") <> zaman then tekil="ok" else tekil="no" end if
pordus("hit")=pordus("hit")+1
pordus("tarih")=zaman
pordus.Update
pordus.close
end if
Sor="Select * from sayaclar where tarih like '"&zaman&"'"
pordus.Open sor,Sur,1,3
if pordus.eof then
pordus.AddNew
pordus("tarih")=zaman
pordus("tekil")="1"
pordus("cogul")="1"
pordus.Update
pordus.close
else
if tekil="ok" then
pordus("tekil")=pordus("tekil")+1
pordus("cogul")=pordus("cogul")+1
pordus.Update
pordus.close
else
pordus("cogul")=pordus("cogul")+1
pordus.Update
pordus.close
end if
end if
Dim tariht,tarihc,topt,topc
tariht=0
tarihc=0
topt=0
topc=0
Sor="Select * from sayaclar"
pordus.Open sor,Sur,1,3
toplamgun=pordus.recordcount
Do while not pordus.Eof
if pordus("tarih")=zaman then
tariht=pordus("tekil")
tarihc=pordus("cogul")
end if
topt=pordus("tekil")+topt
topc=pordus("cogul")+topc
pordus.movenext
loop
pordus.close
gunluktekilortalama = topt / toplamgun
gunlukcogulortalama = topc / toplamgun
%>
<table border="0" width="100%">
<tr>
<td width="49%"><b>IP Adresiniz</b></td>
<td width="1%">:</td>
<td width="50%"><%=request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td width="49%"><b>Toplam Üye</b></td>
<td width="1%">:</td>
<td width="50%">
<%
Set rs21 = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select id FROM Uyeler"
rs21.open rSQL,uyeler,1,3
%>
<%=rs21.recordcount%></td>
</tr>
<tr>
<td width="49%"><b>Son Üyemiz</b></td>
<td width="1%">:</td>
<td width="50%">
<%
set rs = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select id,kadi FROM Uyeler ORDER BY id DESC"
rs.open rSQL,uyeler,1,3
%>
<a href="profil.asp?id=<%=rs("id")%>"><%=server.HTMLEncode(rs("kadi"))%></a>
</td>
</tr>
<tr>
<td width="49%"><b>Aktif Üyeler</b></td>
<td width="1%">:</td>
<td width="50%">
<marquee onmouseover="this.stop();" onmouseout="this.start();" direction="left" scrollamount="3"><%
Session.LCID = 1033
tarih1 = Now()
tarih2 = DateAdd("n" , -10, Now())
Set rec1 = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# ORDER BY songiris desc"
rec1.open rSQL,uyeler,3,3
%>
<%Do While not rec1.Eof%>
<%if left((rec1("ban")),3)="0" then%>
<%if left((rec1("yetki")),3)="0" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="1" then%><a href="profil.asp?id=<%=rec1("id")%>"><%=server.htmlencode(rec1("kadi"))%></a>, <%end if%>
<%if left((rec1("yetki")),3)="2" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#003300"><%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="3" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#FF9900"><%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="4" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#0000FF"><%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="5" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#800000"><%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="6" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#800080"><%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="7" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#008080"><%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="8" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#3399FF"><%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="9" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#FF0000">@<%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%if left((rec1("yetki")),3)="10" then%><b><a href="profil.asp?id=<%=rec1("id")%>"><font color="#FF0000">#<%=server.htmlencode(rec1("kadi"))%></font></a></b>, <%end if%>
<%end if%>
<%if left((rec1("ban")),3)="1" then%><a href="profil.asp?id=<%=rec1("id")%>"><strike><%=server.htmlencode(rec1("kadi"))%></strike></a>, <%end if%>
<%
rec1.Movenext
Loop
Session.LCID = 1055
%></marquee>
</td>
</tr>
<tr>
<td width="49%"><b>Aktif Kişi</b></td>
<td width="1%">:</td>
<td width="50%"><%#@~^aQAAAA==@#@&ZC^V,SWTb1Ok7+i/Dcb@#@&ZmsV,bmDr-+`/D/VnC E2`*@#@&"+d2Kx/n qDrY~ZPQ,bawVbmmOkKxcJzmOr7+jknDkJ#@#@&0B8AAA==^#~@%></td>
</tr>
<tr>
<td width="49%"><b>Aktif Üyeler</b></td>
<td width="1%">:</td>
<td width="50%">
<%
Session.LCID = 1033
tarih1 = Now()
tarih2 = DateAdd("n" , -10, Now())
Set rson = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# "
rson.open rSQL,uyeler,3,3
%>
<%=rson.recordcount%>
<%
Do While not rson.Eof
rson.Movenext
Loop
Session.LCID = 1055
%>
</td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY tekil desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY cogul desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>
<br>
<table background="tema/<%=strtema%>/tablobg.PNG" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="100%">
<tr height="20">
<td background="tema/<%=strtema%>/blokb.png" width="20" align="center"><img border="0" src="tema/<%=strtema%>/blok.png"></td>
<td background="tema/<%=strtema%>/blokb.png" align="left"><font class="tablobaslik">İstatistikler</font> [Sayaçlar]</td>
</tr>
<tr>
<td class="ustcizgi" colspan="2">
<table border="0" width="100%">
<tr>
<td width="49%"><b>Bugün Tekil</b></td>
<td width="1%">:</td>
<td width="30%"><%=tariht%></td>
</tr>
<tr>
<td width="49%"><b>Bugün Çoğul</b></td>
<td width="1%">:</td>
<td width="30%"><%=tarihc%></td>
</tr>
<tr>
<td width="49%"><b>Toplam Tekil</b></td>
<td width="1%">:</td>
<td width="30%"><%=topt%></td>
</tr>
<tr>
<td width="49%"><b>Toplam Çoğul</b></td>
<td width="1%">:</td>
<td width="30%"><%=topc%></td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY tekil desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY cogul desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>
<br>
<table background="tema/<%=strtema%>/tablobg.PNG" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="100%">
<tr height="20">
<td background="tema/<%=strtema%>/blokb.png" width="20" align="center"><img border="0" src="tema/<%=strtema%>/blok.png"></td>
<td background="tema/<%=strtema%>/blokb.png" align="left"><font class="tablobaslik">İstatistikler</font> [Rekor]</td>
</tr>
<tr>
<td class="ustcizgi" colspan="2">
<table border="0" width="100%">
<tr>
<td width="100%" colspan="3" align="center"><b>Tekil Rekor</b></td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY tekil desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<tr>
<td width="49%" align="right"><b><%=rec("tarih")%></b></td>
<td width="1%">:</td>
<td width="50%"><%=rec("tekil")%></td>
</tr>
<%
rec.movenext
end if
next
%>
<tr>
<td width="100%" colspan="3" align="center"><b>Çoğul Rekor</b></td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM sayaclar ORDER BY cogul desc"
rec.open rSQL,sayaclar,3,3
for h=1 to 1
if (not rec.eof) then
%>
<tr>
<td width="49%" align="right"><b><%=rec("tarih")%></b></td>
<td width="1%">:</td>
<td width="50%"><%=rec("cogul")%></td>
</tr>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>