paging

varför funkar inte paging scriptet??????????????????

SQL = "SELECT * FROM diskussioner WHERE Kategori LIKE '"& request.querystring("kategori") &"' ORDER BY Datum DESC"
Set rs = Server.Createobject("ADODB.Recordset")

Const perSida = 1
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If

RS.CursorLocation = 3
RS.CacheSize = perSida

rs.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("Database/Admin.mdb") 
SQL2 = "SELECT * FROM Diskussioner WHERE kategori LIKE '"& request.querystring("Kategori")&"'"
Set rs2 = Server.Createobject("ADODB.Recordset")

rs2.open SQL2, "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("Database/Admin.mdb")

Jaha, då är det väl något fel då. Förklara lite mer vad du menar med att det inte fungerar.

Var är resten av koden? Jag ser ingen paging-funktionalitet.

Varför har du 2 recordset? Rs2 verkar överflödigt.

onödigt för att det här funkar!!!!!!!

          If TotalPages <> 1 Then
          If (Int(page)) <> 1 Then
          %><font face="Tahoma" size="1"> </font>
                    </font> 
           <span class="text">
           <font size="1" face="Verdana"> <a href="visa_diskussioner.asp?page=<%=(Int(page)-1)%>" onFocus="this.blur()">
           <font face="Tahoma" size="1"><b>« Bakåt</b></font></a></font><font size="1" face="Tahoma"> <font color="#006600"><b>|</b></font> 
                    <%Else%> <b>« Bakåt</b> <font color="#006600"><b>|</b></font> 
                    <%End If%>
                    <% 
          For Pages = 1 To TotalPages 
          %>
                    <%If (Int(Pages)) = (Int(page)) Then%> <font color="#000000"><b><%=Pages%></b></font> 
                    <%Else%> </b> <font size="1" face="Verdana">
                    <a href="visa_diskussioner.asp?page=<%=Pages%>" onFocus="this.blur()"><b>
           <font face="Tahoma" size="1"><%=Pages%></font></b></a></font><b> 
                    <%End If%>
                    <%Next%>
                    <%End If%>
                    <%
          If (Int(page)) <> (Int(TotalPages)) Then
          %>
                    <font color="#006600"><b>|</b></font><font size="1" face="Verdana"><a onFocus="this.blur()" href="visa_diskussioner.asp?page=<%=(Int(page)+1)%>"><font face="Tahoma" size="1"><b> Framåt »</b></font></a><font face="Tahoma"> 
                    <%Else%>
                    <% end if %>