nicht angemeldet
Fehler im Recortset AbsolutePage
<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 (####))
-
Hallo Helmut!
Kennt jemand den fehler? (siehe oben (####))
Der M$-Support vielleicht.
Formuliere doch bitte ein anständiges Posting, und kopiere nicht einfach massig Quelltext rein, das ist sehr unübersichtlich (und nervt).
MfG
Götz--
Losung für Montag, 22. März 2004
Dein Wort ist meines Fußes Leuchte und ein Licht auf meinem Wege. (Psalm 119,105)
Gib deinen Knechten, mit allem Freimut zu reden dein Wort. (Apostelgeschichte 4,29)
(http://www.losungen.de/heute.php3)-
Entschuldige ich weiß nicht was du meinst meiner ansicht ist das in normaler posting der Queltext ist dafür da das man sieht was ich meine und eine genauere bezeichnung steht auch drin wo der fehler ist oder sein könnte deswegen siehe(###) weil da die bezeichnung vom fehler steht. Oder wie würdest du denn beitrag zeigen.
Warcheinlich ohne Quelltext oder nur bestimmten wenn du genau weißt was falsch ist oder...
verstehst was ich meine?
-
-
Hallo Helmut
Dim AbsolutePage
AbsolutePage = Request("PN")
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"MySQL kann in diesem Fall auf Deine Access-Syntax verzichten :-)
SELECT
id,
ip,
name,
datum,
uhrzeit
FROM
t_besucher
ORDER BY
id
DESCreicht aus. Den Tabellennamen brauchst Du nur anzugeben, wenn Du mehr als eine Tabelle verwendest (und das Feld in mehr als einer Tabelle vorkommt)
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?Bist Du Dir sicher, dass AbsolutePage einen sinnvollen Wert aufweist? Was gilt für den Else-Fall?
Rest ist unwichtig, vgl. Götz ;-)
Freundliche Grüsse,
Vinzenz
-
MySQL kann in diesem Fall auf Deine Access-Syntax verzichten :-)
Ok habe ich entfernt aber ich bin es so gewohnt.
'34
RS.AbsolutePage = AbsolutePage###########################################################
Er verweigert mir hier die ausführung aber warum?
Bist Du Dir sicher, dass AbsolutePage einen sinnvollen Wert aufweist? Was gilt für den Else-Fall?Ja bin ich mir weil wenn ich zum erstenmal auf die seite gehe dann ist ja alles leer. siehe oben AbsolutePage = Request("PN").
kein rquest dann auch leer.Ja aber warum funktioniert das script eiwandfrei wenn ich mit Access arbeite. Das verstehe ich nicht und beim MySQL verweigert er mir das rs.AbsolutePage.
-
Hab den fehler gefunden es lag am zeiger
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 3
so setzen dann funktioniert es.
-
-