Paging fejl - Request.Querystring
Hej igen :)Har problemer med mit paging...
På de sider hvor jeg bare henter indholdet normalt går det fint, men ligeså snart jeg bruger --> Request.Querystring("id") til at hente mine poster virker paging ikke... Den henter posterne rigtigt men når man f.eks. klikker på side to hopper den til en helt andet sted..
her er 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 kategori = '"& Request.Querystring("id")& "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/xxxk.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
'</paging>
%>
<body onload="parent.document.getElementById('indhold').style.height=((document.body.scrollHeight)?document.body.scrollHeight:document.body.offsetHeight)+'px'">
<center>
<%
noPrRow = 0
maxPrRow = 4
response.write "<table cellspacing=""20"">"
Do While Not rs.EOF And intRecCount > 0
if noPrRow = 0 then response.write "<tr>"
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/" & 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 "</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 " & intNum &"</b>" & "] "
else
Response.Write " <a href='kategori.asp?id=" & "&page=" & intNum & "'>Page " & intNum & "</a> |"
end if
next
%>
<center><a href="java script:history.back()">Back</a></center>
</center>
</body>
