Hejsan alla ni där ute.
Har en webshop som jag har lagt in ett paging script i. Men när man skall hoppa till nästa sida så blir sidan tom. Tex. Jag har 6 st artiklar i min databas. Sidan skall visa 2 åt gången. På första sidan visas tre på resterande sidor visas ingen ting. Den länkar till dom andra sidorna men inget syns där. Nedan förljer koden, hoppas ni hittar var felet ligger.
<%
Dim a, i, sql, IntSida, IntAntal
' Om man valt en kategori så hämtar vi varorna i den

' ^^ Kollar vilken sida som skall visas, om tomt visas sida 1 : ^^
IntSida = Trim(Request.QueryString("Sida"))
If IntSida = "" Then
IntSida = 1
Else
IntSida = Cint(IntSida) ' ^^ Gör om det till ett tal ^^
End If'^^^^

If Request.Querystring("category")<>"" THEN
Rs.Open "SELECT * FROM shItems WHERE category=" & Request.QueryString("category")
numRecords = Rs.RecordCount-1 ' Vi lägger antalet poster i en variabel

'^^ Om tabellen är tom : ^^
If RS.EOF = True Then
Response.Write("Inga poster hittades i databasen!<BR>")
Else
' ^^ Bestämmer hur många inlägg det ska vara per sida : ^^
RS.PageSize = 2
' ^^ Visar önskad sida : ^^
RS.AbsolutePage = IntSida
End If
' ^^ Visar inläggen tills antalet per sida uppfylls eller inläggen tar slut : ^^
Do until RS.EOF Or IntAntal > RS.PageSize
' ^^ Räknare : ^^
IntAntal = IntAntal + 1
'^^^^
%>
</tr><tr>
<td width="382" bgcolor="#F9F8E3"><FIELDSET>
<LEGEND><font size="2" color="green"><%=Rs.Fields("title").value%></LEGEND></font>
<table width="369" border="0" cellpadding="0" cellspacing="0" align ="left" rowspan="2" bgcolor="#F9F8E3" style="border-collapse: collapse" bordercolor="#111111" height="74">

<% If Rs.Fields("smallImage")<>"" THEN %>
<td width="74" height="74" align="left" rowspan="4">">
" ></td>
<td colspan="2" width="295" color="229507" height="20"><%=Left (Rs.Fields("description").Value,30)%>...</td></tr>
<tr><td colspan="2" width="295" height="16"></td>
</tr><tr>
<td width="102"><font size="2"> Pris: <%= Rs.Fields("price").Value %>kr</font></td>
<td width="212"></td></tr>
<tr><td width="102" height="19"><p align="center">">
Info</td>

<td width="193">" target="shBasket">Lägg i kundvagnen</tr>
</table></fieldset>
<% End If
Rs.MoveNext
Loop
if RS.PageCount > 1 then ' Kollar så det finns fler sidor
For I = 1 To RS.PageCount ' Startar en loop som ska fixa alla sidnummer
If I <> IntSida Then ' Kollar så att vi ej länkar aktuellt sidnummer
Response.Write("" & I & " ")
Else ' Om det är sidan som är aktiv, gör ingen länk.
Response.Write(I & " ")
End If
Next
End If
%>
</table>

Prova att ändra din .Open-sats. Vet inte vad ditt connectionobjekt heter, men kasta även in det.

Rs.Open "SELECT * FROM shItems WHERE category=" & Request.QueryString("category") , Con, 3 , 3

Sen om category är sträng, ändra då så du får ' ' runt det värdet i din sql-sats.

Rs.Open "SELECT * FROM shItems WHERE category='" & Request.QueryString("category") & "'", Con, 3 , 3

JAg fick det inte till att fungera, Tror det ligger i hur jag anropar kategorierna, Det sker ju med en request.Querystring. Och när man skall visa nästa sida så länkar det fel på något vis. Där det står request.Querystring("sida") i min kod överst har jag ändrat till Category, men med samma fel. Sänder med scriptet på när man väljer kategori och kommer till sidan med Paging så kanske svaren kommer.

'* Vi listar de aktuella kategorierna ( Tabellen shCats )
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM shCats ORDER BY [name]",Conn,1,1
numRecords = Rs.RecordCount-1 ' Vi lägger antalet poster i en variabel

For v=0 To numRecords
Selected = ""
IF cStr(Rs.Fields("id").Value) = Request.QueryString("category") Then Selected = "Selected"
If v MOD 1 = 0 Then Response.Write "<br>"
Response.Write "&nbsp;" & UCase( Rs.Fields("name").Value ) & "" '&nbsp; | &nbsp;"
Rs.MoveNext
next
response.write"<br>"
Rs.Close%>

Tacksam för all hjälp