ich habe immer noch Probleme und seit Stunden suche ich irgendwelche Infos, die mir vielleicht helfen können, der ASP Code unten muß auf eine Access Datenbank zugreifen, das Problem ist, wenn es ausgeführt wird, kommt die folgende Meldung:
SELECT ID, Vorname, Nachname, Adresse, Ort, Telefon FROM Probe1
ADODB.Recordset-Fehler '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
Ich weiß nicht mehr was ich machen soll, und ich wünschte gäbe jemand hier (ein Praktikumspartner) der mir helfen kann, langsam nervt mich das alles. Den Code habe ich gelesen und versucht zu verstehen , ich habe Änderungen gemacht, aber ich glaube nicht, dass diese die Fehler sind.
Desperately, stud3
<%
dim strConn
strConn = "PROVIDER=Microsoft.Jet.OleDb.4.0;Data Source=" & _
Server.MapPath("../datenbank/db1.mdb"
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.open strConn
Dim PageSize
PageSize = 5
' Initialisieren des Counters
Dim intCounter
intCounter = 1
' Einstellen der aktuellen Seite, weitere Prüfung erfolgt nach Öffnen des Recordsets
Dim AbsolutePage
AbsolutePage = Request("PN"
Set aDaten = Server.CreateObject("ADODB.Recordset"
aDaten.CursorType = adOpenStatic
aDaten.ActiveConnection = objConn
SQLAbfrage = "SELECT ID, Vorname, Nachname, Adresse, Ort, Telefon FROM Probe1
aDaten.PageSize = PageSize
'aDaten.CacheSize = PageSize
response.write SQLAbfrage
aDaten.Open SQLAbfrage
' Prüfen, ob die angegebene Seitennummer verwendet werden kann
If AbsolutePage = "" Or Not IsNumeric(AbsolutePage) Or CInt(AbsolutePage) > CInt(aDaten.PageCount) Then
AbsolutePage = 1
End if
' Zuweisen der aktuellen Seite. Diese Zuweisung muss nach dem Öffnen des Recordsets erfolgen
aDaten.AbsolutePage = AbsolutePage
%>
<TABLE cellpadding="3" cellspacing="0" border="0">>
<TR>
<td><b>ID</b></td>
<td> </td>
<td><b>Vorname</b></td>
<td> </td>
<td><b>Nachname</td>
<td> </td>
<td><b>Adresse</b></td>
<td> </td>
<td><b>Ort</b></td>
<td> </td>
<td><b>Telefon</b></td>
<td> </td>
</TR>
<%
while not aDaten.EOF AND intCounter <= PageSize
%>
<TR bgColor="#cccccc">>
<td><b><%=aDaten("ID"
%></b></td>
<td> </td>
<TD><b><%=aDaten( "Vorname"
%></b></TD>
<td> </td>
<TD><b><%=aDaten( "Nachname"
%></b></TD>
<td> </td>
<TD><b><%=aDaten( "Adresse"
%></b></TD>
<td> </td>
<TD><b><%=aDaten( "Ort"
%></b></TD>
<td> </td>
<TD><b><%=aDaten( "Telefon"
%></b></TD>
<td> </td>
</TR>
<%
intCounter = intCounter + 1
aDaten.MoveNext
Wend
%>
</TABLE>
<%
' Erstellen der Links auf die weiteren Seiten
For intPageCounter = 1 To aDaten.PageCount
' --- Die aktuelle Seite wird nicht mehr verlinkt
If CInt(intPageCounter) = CInt(AbsolutePage) Then
Response.Write intPageCounter & " "
Else
Response.Write "<a href=""test.asp?PN=" & intPageCounter & """>" & intPageCounter & "</a> "
End if
Next
' --- Schliessen und terminieren des Recordsets
aDaten.Close
Set aDaten = Nothing
objConn.Close
Set objConn = Nothing
%>