recordset paging og sortering

jeg har en side der viser lister over users
der har jeg så lavet recordset paging så den kun viser 100 users ad gangen
jeg har så også lavet sortering på så man kan sortere på navn osv ascending og descending
men hvis jeg bruger en af sorteringsmulighederne og så hopper hen på side2 med users så ryger min sortering..
nogen der har en ide til hvorfor?

koden kommer her:

<%
If Request.Querystring("crit") = "comp" Then

    sortCriteria = "firma"
   
ElseIf Request.Querystring("crit") = "name" Then

    sortCriteria = "navn"

ElseIf Request.Querystring("crit") = "phone" Then

    sortCriteria = "telefon"

ElseIf Request.Querystring("crit") = "date" Then

    sortCriteria = "expdate"

Else

    sortCriteria = "brugerid"

End If

If Request.Querystring("mode") = "ASC" Then
   
    sortMode = "ASC"
   
ElseIf Request.Querystring("mode") = "DESC" Then
   
    sortMode = "DESC"
   
Else
   
    sortMode = "DESC"
   
End If

set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3  ' adUseClient
rs.Open "SELECT brugerid,password,navn,telefon,firma,email,expdate FROM users WHERE usertype = 'guest' AND reseller = '" & xpoint_reseller & "' ORDER BY " & sortCriteria & " " & sortMode & "", conn

userCount = "SELECT COUNT(*) AS usercount FROM users WHERE usertype = 'guest' AND reseller='" & xpoint_reseller & "'"
set rsCount = Conn.Execute(userCount)

%>

<table bgcolor="white" cellpadding="10" width="800" height="350" style="border: 1px solid #004990;">
<td align="left" valign="top" width="780">
<img src="img/hdr_guestusers.gif" border="0">
<br>

<%
rs.PageSize = 100
intPageCount = rs.PageCount

If intPageCount = 0 Then

    intPageCount = 1
   
End If

Select Case Request.Form("action")
    case "<<"
        intpage = 1
    case "Show"
        intpage = Request.Form("intpage")
    case "<"
        intpage = Request.Form("intpage")-1
        if intpage < 1 then intpage = 1
    case ">"
        intpage = Request.Form("intpage")+1
        if intpage > intPageCount then intpage = IntPageCount
    Case ">>"
        intpage = intPageCount
    case else
        intpage = 1
end select
%>
<form name="MovePage" action="show_guestusers.asp?mode=<%=sortMode %>&crit=<%=sortCriteria %>" method="post">
<br>
&nbsp;<input type="hidden" name="intpage" value="<%=intpage%>">
<input type="submit" name="action" value="<<">
<input type="submit" name="action" value="<">
<input type="submit" name="action" value=">">
<input type="submit" name="action" value=">>"><br><br>
&nbsp;&nbsp;Page: <%=Intpage & " of " & intpagecount%>
</form>
<br>

&nbsp;&nbsp;Number of users: <%=rsCount("usercount") %>

<br><br>

&nbsp;&nbsp;<img src="img/green.gif" border="0"> Open
&nbsp;&nbsp;&nbsp;<img src="img/yellow.gif" border="0"> 1 day left
&nbsp;&nbsp;&nbsp;<img src="img/red.gif" border="0"> Expired
&nbsp;&nbsp;&nbsp;<img src="img/black.gif" border="0"> Closed
<table cellpadding="5">
<tr>
<td align="left" valign="top" width="250" style="border-bottom: 1px dotted silver">
<font color="#004990"><b>Company</b></font>
<a href="show_guestusers.asp?mode=ASC&crit=comp" onfocus="this.blur();">
<img src="img/uparrow.gif" border="0"></a>
<a href="show_guestusers.asp?mode=DESC&crit=comp" onfocus="this.blur();">
<img src="img/downarrow.gif" border="0"></a>
</td>
<td align="left" valign="top" width="250" style="border-bottom: 1px dotted silver">
<font color="#004990"><b>Name</b></font>
<a href="show_guestusers.asp?mode=ASC&crit=name" onfocus="this.blur();">
<img src="img/uparrow.gif" border="0"></a>
<a href="show_guestusers.asp?mode=DESC&crit=name" onfocus="this.blur();">
<img src="img/downarrow.gif" border="0"></a>
</td>
<td align="left" valign="top" width="10" style="border-bottom: 1px dotted silver">
&nbsp;
</td>
<td align="left" valign="top" width="135" style="border-bottom: 1px dotted silver">
<font color="#004990"><b>Telephone</b></font>
<a href="show_guestusers.asp?mode=ASC&crit=phone" onfocus="this.blur();">
<img src="img/uparrow.gif" border="0"></a>
<a href="show_guestusers.asp?mode=DESC&crit=phone" onfocus="this.blur();">
<img src="img/downarrow.gif" border="0"></a>
</td>

<td align="left" valign="top" width="135" style="border-bottom: 1px dotted silver">
<font color="#004990"><b>Expiredate</b></font>
<a href="show_guestusers.asp?mode=ASC&crit=date" onfocus="this.blur();">
<img src="img/uparrow.gif" border="0"></a>
<a href="show_guestusers.asp?mode=DESC&crit=date" onfocus="this.blur();">
<img src="img/downarrow.gif" border="0"></a>
</td>
</tr>

<%
if not rs.EOF then

rs.AbsolutePage = intPage

For intRecord = 1 To rs.PageSize

If IsNull(rs("expdate")) Then   

    expiredate = today

Else

    expiredate = CLng(rs("expdate"))

End If

if expiredate > today then

    datecolor = "green"

elseif expiredate < today then

    datecolor = "red"

elseif expiredate = today then

    datecolor = "yellow"

end if

passVar = rs("password")

if passVar = "access_denied" then

    datecolor = "black"

end if

userid = rs("brugerid")
%>
<tr>
<td align="left" valign="top" width="250">
<a href="show_user.asp?id=<%=userid %>">
<font color="#004990">
<%=rs("firma") %>
</font>
</a>
</td>
<td align="left" valign="top" width="250">
<a href="show_user.asp?id=<%=userid %>">
<font color="#004990">
<%=rs("navn") %>
</font>
</a>
</td>
<td align="left" valign="top" width="10">
<a href="mailto:<%=rs("email") %>" target="_blank">
<img src="img/mailicon.gif" border="0">
</a>
</td>
<td align="left" valign="top" width="135">
<font color="#004990">
<%=rs("telefon") %>
</font>
</td>
<td align="left" valign="top" width="135">
<font face="verdana" size="1" color="<%=datecolor %>"><%=rs("expdate") %>
</td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next

end if
%>


</table>
</td>
</table>