Paging fejl?

har du vist alt den kode du har, for hvis det er tilfældet, så mangler der lidt for at det virker. et eksempl kan du se her:

intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
    End If
    If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing

    Response.Write "<p>Side: "
    For intNum = 1 To intPageCount
    Response.Write "<a href=default.asp?page=" & intNum & ">" & intNum & "</a> "
    Next

nej nej, slet ikke..
det var bare en del af koden jeg skrev derop..

fordi problemet nok ligger der..

okay, så prøv med den kode jeg har sat ind, eller vis os hele din kode, så er det lidt nemmere at hjælpe dig.

mit bud vi lvære at du har glemt denne linie:

intPage = Request("page")

nej den har jeg med,her har du koden:

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from produkt_gr where forside = 1"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/xxxx.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 8
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

%>

<%
Response.Write ""
For intNum = 1 To intPageCount
If intPage = intNum Then
Response.Write " [" & "<b>Page&nbsp;" & intNum &"</b>" & "] "
else
Response.Write " <a href='main.asp?fid=" &  "&page=" & intNum &  "'>Page&nbsp;" & intNum & "</a> | "
end if
next
%>
<%   
noPrRow = 0
maxPrRow = 4
response.write "<table cellspacing=""40"">"
Do While Not rs.EOF And intRecCount > 0
  if noPrRow = 0 then response.write "<tr align=center>"
  response.write "<td width=""120"" height=""120"" valign=""top"" align=""center"" bgcolor=""#F1F5DC"" class=""main"">"
  response.write  "<a href=""produkter.asp?id=" & rs("id") & """ target=""indhold""><img src=""../produkt_images_small_gr/" & rs("images1") & """ width=""120"" height=""120"" border=""0"">  " & rs("navn") & " </a> <br> " & rs("kort_beskrivelse") & "<br> <strong> <font size=2> " & rs("pris")&" "& rs("penge_type") &""
  response.Write "<br>"
  response.Write " <a href=""produkter.asp?id=" & rs("id") & """ target=""indhold""><img src=""../images/viewgg.gif"" heigt=""17"" width=""47"" border=""0"">  </a>"
  response.Write "<br>"
  response.Write " <span class=""test""><a href=""kategori.asp?id=" & rs("kategori") & """ target=""indhold"">More  "& rs("kategori") & " >> </a></span>"
  response.write "</td>"
  noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if
intRecCount = intRecCount - 1
  rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
'Hvis ikke recordsettet er tomt, fortsæt
%>

<%
'og så teste på den i din paging.
pagtom = 0
If (rs.BOF Or rs.EOF) Then
pagtom = 1
end if
%>

<%   
'Trækker den næste record ud og lukker din forbindelse
' intRecCount = intRecCount - 1
End If
rs.Close
Set rs = Nothing

Response.Write ""
For intNum = 1 To intPageCount
If intPage = intNum Then
Response.Write " [" & "<b>Page&nbsp;" & intNum &"</b>" & "] "
else
Response.Write " <a href='main.asp?fid=" &  "&page=" & intNum &  "'>Page&nbsp;" & intNum & "</a> | "
end if
next
%>

prøv at skriv intPage ud i løkken, for at se om den har den rigtige værdi.

hvor er det lige jeg putter intPage ind :P

du sætter den her: intPage = Request("page")

men du skal prøve at skrive den ud i din løkke, hvor du generere dine page links

sorry...er ikke helt med :(