Hej!
Jag får inte min onpage att fungera, koden ser ut så:

<code>
Set Antal = Connect.Execute("Select Count(*) As Antal From gastbok where tillid =" & Request.Querystring("ide") & "")

Const perSida = 20
Dim onPage
If Request.QueryString("onPage") = "" then
onPage = 1
Else
onPage = Request.QueryString("onPage")
End If

Dim RecSet
Set RecSet= Server.CreateObject("ADODB.Recordset")
RecSet.CursorLocation = 3 'Här kan du byta ut 3 mot adUseClient om du inkluderar filen adobvs.inc
RecSet.CacheSize = perSida %>
Det finns sammanlagt <b><%= Antal("Antal") %></b> inlägg i gästboken.<br>
&email=<%= Request.QueryString("email") %>&username=<%=Request.QueryString("username") %>">Gå
till <%= Request.QueryString("username") %>´s sida.<br>
<br>
<% Set Recset = Connect.Execute("Select * From gastbok where tillid =" & Request.Querystring("ide") & " order by datum desc")

If Recset.EOF Then
Response.Write "Det finns inga inlägg i gästboken än.<br>"
Else

RecSet.MoveFirst
RecSet.PageSize = perSida

Dim TotalPages
TotalPages = RecSet.PageCount

Dim count

Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize
%>
<table width="35%" border="0">
<tr>
<td height="17"><b> Av:</b> &email=<%= Recset("avemail") %>&username=<%=Recset("avuser") %>"><%= Recset("avuser") %><br>
<strong>S&auml;nt:</strong> </b><%=TRIM(Server.HTMLEncode(Recset("datum")))%><b><br>
<br>
Meddelande: </b><br>
<%= smile(Recset("text")) %>
<br>
<br>
&sesid=<%= Session("id") %>&email=<%= Recset("avemail") %>&username=<%= Recset("avuser") %>">Gå
Till
<% If Request.QueryString("ide") = Request.QueryString("sesid") Then %>
- &avuser=<%= Recset("avuser") %>&avemail=<%= Recset("avemail") %>','MyWindow','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=300,height=300'); return false;">Svara
- &iden=<%= Request.Querystring("ide") %>&sesid=<%= Session("id") %>&email=<%= Request.QueryString("email") %>&username=<%=Request.QueryString("username") %>" onclick='return confirm("Är du säker på att du vill ta bort detta inlägg?");'>Ta
Bort
<% End If %>
<hr width="100%" align="left"> </td>
</tr>
</table>
<%
Count = Count + 1
Recset.MoveNext
Loop
Recset.Close
Set Recset = Nothing
End If

If TotalPages <> 1 Then
If (Int(onPage)) <> 1 Then
%>
<br>
&sesid=<%= Session("id") %>&email=<%= Request.QueryString("email") %>&username=<%=Request.QueryString("username") %>"><<
föregående
<%Else%>
&#60;&#60; föregående
<% End If

Dim Pages
For Pages = 1 To TotalPages
If (Int(Pages)) = (Int(onPage)) Then %>
<b><%=Pages%></b>
<%Else%>
&sesid=<%= Session("id") %>&email=<%= Request.QueryString("email") %>&username=<%=Request.QueryString("username") %>"><%=Pages%>
<%End If
Next
End If

If (Int(onPage)) <> (Int(TotalPages)) Then
%>
&sesid=<%= Session("id") %>&email=<%= Request.QueryString("email") %>&username=<%=Request.QueryString("username") %>">nästa
>>
<%Else%>
nästa &#62;&#62;
<%End If%>
</code>

Såvitt jag ser så har du inte satt recset.page-saken till onPage någonstanns