Avatar billede nidyahou Praktikant
20. februar 2004 - 16:24 Der er 6 kommentarer og
1 løsning

problem med paging

får denne fejl:

ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

ved denne kode:
<table width="75%" border="1" bordercolor="#000000" cellspacing="0" cellpadding="0">
  <tr>
       
    <td width="24%"><center>Ting</center></td>
    <td width="56%"><center>
        Kommentar
      </center></td>
    <td width="15%"><center>
        &nbsp;Bruger
      </center></td>
    <td width="5%"><center>
        Dato&nbsp;
      </center></td>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM byttesys"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 2
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
%>
  </tr>
  <tr>
    <td><% rs("Ting") %></td>
    <td><% rs("Kommentar") %></td>
    <td><% rs("Bruger") %></td>
    <td><% rs("Dato") %></td>
    <% if cint(session("level")) > 1 then%>
    <td><a href="bytact.asp?action=slet&id=<% Response.Write rs("Id") %>">Slet</a></td>
    <% end if %>
  </tr>
</table>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=bytsys.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=bytsys.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=bytsys.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

hvorfor !?!?!
Avatar billede steen Nybegynder
20. februar 2004 - 16:27 #1
Fordi du bruger en forkert cursertype.... prøv med 3


rs.Open strSQL, strDSN, 3
Avatar billede nidyahou Praktikant
20. februar 2004 - 16:39 #2
yup, men hvis jeg sætter 3 så får jeg mismatch i linie 41... linien med rs("Ting")
Avatar billede steen Nybegynder
20. februar 2004 - 16:46 #3
hmm.. hvad vis du retter det til:
rs.Open strSQL, strDSN, 3, 3
Avatar billede nidyahou Praktikant
20. februar 2004 - 16:47 #4
dette ændrer desværre intet
Avatar billede eagleeye Praktikant
20. februar 2004 - 16:48 #5
Når du udskriver uden Response.Write skal der stå <%= og ikke kuen <%
Så dennne
    <td><% rs("Ting") %></td>

Skal være
    <td><%= rs("Ting") %></td>
Avatar billede nidyahou Praktikant
26. februar 2004 - 21:34 #6
yup... helt korrekt fandt faktisk også ud af dette, drop et svar :)
Avatar billede eagleeye Praktikant
12. marts 2004 - 16:30 #7
ok :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester