paging med database

http://activedeveloper.dk/artikler/default.asp?articleid=31

tjaa - der var måske ikke lige det -
den bladre funktion i eksemplet tager jo og lægger en til eller trækker en fra intPage...

jeg har jo ikke en fortløbende talrække, men derimod tallene 65, 69, 33, 2939 eller ligende

ja - nej.

Det er korrekt at den tager en fortløbende nummerrække - men bruger du det eksempel direkte er det lige meget at du ikke har fortløbende numre i basen. Det der sker i eksemplet er, at der vælges alle ud og moves hen til den record sidenummeret svarer til i recordsettet.

Hej igen

det har du selvfølgelig ret i, men du har jeg et andte problem. Jeg skal have mere med i min querystring, nemlig:

default.asp?p_id=6&foredrag=149&kategori=52&page=3

og det vigtige er foredrag.
den fejler når den prøver at hente den næste post i et tom rs - altså denne linje:
foredrag = rs("foredrag_FK")

den fejler kun når jeg er ved den sidste post, selvfølgelig, men jeg kan ikke gennemskue hvordan jeg undgår dette


koden:
<%
foredrag=request.querystring("foredrag")
kategori=request.querystring("kategori")
searchtxt=request.querystring("search")
strSQL="SELECT * FROM foredrag where id="&foredrag
set visrs=conn.execute(strSQL)
beskrivelse = lavtegn(""&visrs("beskrivelse")&"")

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT foredrag_FK FROM foredragKategori INNER JOIN foredrag ON foredrag.ID=foredragKategori.foredrag_FK WHERE kategori_fk ="&kategori & " AND foredrag.vis='ja'"
'set rs=conn.execute(strSQL)
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/foredragsportalen.mdb")
rs.Open strSQL, strDSN, 1
%>
<table>

<%

If Not (rs.BOF Or rs.EOF) Then

  rs.PageSize = 1
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
  rs.MoveNext
  Response.Write "<p>"
 
  foredrag = rs("foredrag_FK")
   
If Clng(intPage) > 1 Then
  Response.Write "<a href=default.asp?p_id=6&foredrag=" & foredrag & "&kategori="& kategori & "&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=default.asp?p_id=6&foredrag=" & foredrag & "&kategori="& kategori & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If

  intRecCount = intRecCount - 1
  if not rs.EOF then
  rs.MoveNext
  end if
End If

rs.Close
Set rs = Nothing
%>

kan du hjælpe

R

hvilken fejl?

jeg går:

Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den anmodede handling kræver en aktuel post.

fordi der ikke er en næste post: foredrag = rs("foredrag_FK")

jeg er glad for at du gider kigge på det :)
r

grunden til det er, laver en rs.MoveNext to linier før du forsøger at lave den variable - og det skal det ikke. Det er der jo heller ikke i eksemplet

hmmm - jeg finder på noget andet - det driller

tak for det ellers
r

det var da let givet op... kan stadig godt hjælpe hvis der er noget at gå ud fra - bare husk at du ikke må ændre alt for meget i det eksempel jeg linkede til da det er det du har gjort og som får det til at fejle.

Husk at luk spm. hvis du er færdig her

?

lukketid?