Side 2 af sorter efter navn!?

Jeg har følgende kode som er en paging funktion af et en slags opslagstavle fra en Access Database. Opslagstavlen kan man sortere efter dato eller efter navn.

Det virker fint at sortere efter navn men problemet er at når man går til side 2 af paging funktionen stopper ASP'en med at sortere efter navnet! Hvordan undgår jeg det? Jeg tror problemet ligger i inner joinen!?

Håber I forstår og at I kan hjælpe!

-M

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=Nyt_DSN"
%>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
%>
<%
reqsort = Request("sorter")

Select case reqsort
%>
<%
Case 2
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM OpslagsTabel INNER JOIN PersonTabel ON OpslagsTabel.PersonID = PersonTabel.PersonID Order By PersonTabel.Fornavn"
strDSN = "DSN=Nyt_DSN"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b class=""text"">Der er ialt " & rs.Recordcount & " opslag. Dette er side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
    SQLSTR = "SELECT * FROM PersonTabel WHERE PersonID =" & rs("PersonID") & ""
    Set RS2 = myConn.Execute(SQLSTR)%>
   
            <tr>
          <td height="21" valign="top" colspan="2">
            <hr>
          </td>
          <td width="89"></td>
        </tr>
        <tr>
          <td height="34" valign="top" width="210" class="text">Skrevet af: <a href="#" onClick="window.open('userprofil.asp?id=<%=RS2("Email")%>','win5','height=500,width=650, resizable=yes, scrollbars=yes, toolbar=yes')"><%=rs2("Fornavn")%></a></td>
          <td width="201" valign="top" class="text" align="right">Dato: <%=rs("Tidspunkt")%></td>
          <td></td>
        </tr>
        <tr>
          <td height="34" valign="top" colspan="2" class="text"><br>
            <%= "<b>" & rs("Overskrift") & "</b>"%> </td>
          <td></td>
        </tr>
        <tr>
          <td height="12"></td>
          <td></td>
          <td></td>
        </tr>
        <tr>
          <td height="18" colspan="2" valign="top" class="text"><%= rs("Besked")%></td>
          <td></td>
        </tr>
        <tr>
          <td height="9"></td>
          <td></td>
          <td></td>
        </tr>
        <tr>
          <td height="59" colspan="2" valign="top">
            <hr>
            <br>
          </td>
          <td></td>
        </tr>
        <%intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p class=""text"">Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=opslagstavlentemp.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=opslagstavlentemp.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=opslagstavlentemp.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>
      </table>