nicht angemeldet
<html>
<head>
<title>Besucher Statistik im Intranet</title>
</head>
<body>
<%
strComplete = "Driver=MySQL ODBC 3.51 Driver;Server=localhost;" &_
"Option=3;UID=intranet;DATABASE=intranet;"
'10
Dim PageSize
PageSize = 20
Dim intCounter
intCounter = 1
Dim AbsolutePage
AbsolutePage = Request("PN")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strComplete
'22
Set RS = CreateObject("ADODB.Recordset")
RS.Cursortype = 1
RS.LockType = 3
RS.PageSize = PageSize
RS.CacheSize = PageSize
SQL = "SELECT t_besucher.id, t_besucher.ip, t_besucher.name, t_besucher.datum, t_besucher.uhrzeit FROM t_besucher ORDER BY t_besucher.id DESC"
rs.Open SQL, objconn
'30
If AbsolutePage = "" Or Not IsNumeric(AbsolutePage) Or CInt(AbsolutePage) > CInt(RS.PageCount) Then
AbsolutePage = 1
End if
'34
RS.AbsolutePage = AbsolutePage
###########################################################
Er verweigert mir hier die ausführung aber warum?
Es kommt die Fehlermeldung:
Das Object oder der Provider kann den angeforderten Vorgang nicht ausführen.
Fehler '800a0cb3'
###########################################################
Response.Write ("<center>")
Response.Write ("<font face=Arial size=6><b><i><u>Gesamte Besucher Statistik vom Intranet</font></b></i></u>")
Response.Write ("<br><a href=statistik.asp>Statistik von Heute abrufen</a>")
Response.Write ("<br><br>")
Response.Write ("<table border=1>")
'42
Response.Write ("<td width=130><b><i><u>Besuchernummer:</b></i></u></td>")
Response.Write ("<td width=150><b><i><u>Besucher - IP:</b></i></u></td>")
Response.Write ("<td width=180><b><i><u>Besucher Name:</b></i></u></td>")
Response.Write ("<td width=100><b><i><u>besucht am:</b></i></u></td>")
Response.Write ("<td width=100><b><i><u>besucht um:</b></i></u></td>")
Response.Write ("</tr>")
For intPageCounter = 1 To RS.PageCount
'51
If CInt(intPageCounter) = CInt(AbsolutePage) Then
Response.Write ("<b> -><u>") & ("Seite: ") & intPageCounter & ("</u><- </b> ") & ""
Else
Response.Write "<a href=""statistik_gesamt.asp?PN=" & intPageCounter & """>" & (" ") & ("[") & intPageCounter & ("]") & (" ") & "</a>"
End if
Next
Response.Write ("<br><br>")
'60
Do While Not RS.EOF And intCounter <= PageSize
Response.Write ("<tr>")
Response.Write ("<td>")
response.write rs("id")
Response.Write ("</td>")
Response.Write ("<td>")
Response.write rs("ip")
Response.Write ("</td>")
Response.Write ("<td>")
response.write rs("name")
Response.Write ("</td>")
Response.Write ("<td>")
response.write rs("datum")
Response.Write ("</td>")
Response.Write ("<td>")
response.write rs("uhrzeit")
Response.Write ("</td>")
intCounter = intCounter + 1
rs.movenext
loop
Response.Write ("</table><br><br>")
For intPageCounter = 1 To RS.PageCount
If CInt(intPageCounter) = CInt(AbsolutePage) Then
Response.Write ("<b> -><u>") & ("Seite: ") & intPageCounter & ("</u><- </b> ") & ""
Else
Response.Write "<a href=""statistik_gesamt.asp?PN=" & intPageCounter & """>" & (" ") & ("[") & intPageCounter & ("]") & (" ") & "</a>"
End if
Next
Response.Write ("<br><br>")
Rs.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
Kennt jemand den fehler? (siehe oben (####))