Problemer med paging

Prøv med dette lavet ud fra http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

Man er nød til at overføre den ting som SQL bruger eksvis
initialer  og  sortkey  eller hvodan kommer de ind i scriptet ??



<%
'Paging hendt hvilken side den er kommet til
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

SQL = "SELECT Opgave.*, Prioritet.Tekst FROM Opgave, Prioritet WHERE Prioritet.Nummer=Opgave.Prioritet AND Ansvarlig = '" & initialer & "' AND Afsluttet=1 Order By " & sortkey
SQL = SQL & " ASC;"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 1
%>

<% IF rs.eof THEN
    rs.PageSize = 10 '<--------------- poster pr. side
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
%>
  <tr>
    <td class="TblTxtBld">Der ligger ingen afsluttede opgaver, hvor har været ansvarlig<BR>N.B.: Husk at du også kan benytte dette system til at styre egne opgaver.</td>
  </tr>
    <% END IF %>
    <% IF NOT rs.EOF THEN %>
    <% opgaveid = rs("id") %>
  <tr>
    <td>
      <P class="TblTxtBld">Herunder ser du de afsluttede opgaver, hvor du er ansvarlig</p>
      <P class="TblTxt">Klik på den enkelte opgave, for at se detaljer for opgaven</p>
    </td>
  </tr>
  <tr>
    <td>
      <table border="1" cellpadding="2" cellspacing="0" width="100%" bordercolor="<%=StrBorderColor%>">
        <tr class="TblTxt" bgcolor="<%=StrBackgroundColorDark%>">
          <td width="45" align="right"><a class="TblMenu" href="<%=StrSort%>ID" Title="<%=StrSortkey%>"><img border="0" src="images/arrow_down.gif">Opg.</a></td>
          <td><a class="TblMenu" href="<%=StrSort%>Betegnelse" Title="<%=StrSortkey%>"><img border="0" src="images/arrow_down.gif">Opgavebeskrivelse</a></td>
          <td width="50"><a class="TblMenu" href="<%=StrSort%>Rekvirent" Title="<%=StrSortkey%>"><img border="0" src="images/arrow_down.gif">Rekv.</a></td>
          <td width="120"><a class="TblMenu" href="<%=StrSort%>registreret" Title="<%=StrSortkey%>"><img border="0" src="images/arrow_down.gif">Oprettet d.</a></td>
          <td width="120"><a class="TblMenu" href="<%=StrSort%>slutdato" Title="<%=StrSortkey%>"><img border="0" src="images/arrow_down.gif">Løst d.</a></td>
        </tr>
<% Do While Not rs.EOF And intRecCount > 0 %>
<%
'DIM sAdsPathDC
sAdsPathDC = "LDAP://" & GetDomain()
rekvirent = rs("rekvirent")
   
    Set conRekvirent = CreateObject("ADODB.Connection")
    Set comRekvirent = CreateObject("ADODB.Command")
    conRekvirent.Provider = "ADsDSOObject"
    conRekvirent.Open "Active Directory Provider"
    Set ComRekvirent.ActiveConnection = conRekvirent
    ComRekvirent.CommandText = "select cn,sAMAccountName,telephoneNumber,mail,department from '"&sAdsPathDC&"' WHERE objectClass='user' AND objectCategory='person' AND sAMAccountName='"&rekvirent&"'"

    Set rsRekvirent = ComRekvirent.Execute
    While Not rsRekvirent.EOF
        StrRekvirentDisName = rsRekvirent.Fields ("cn")
        StrRekvirentLogon = rsRekvirent.Fields ("sAMAccountName")
        StrRekvirentTlfnr1 = rsRekvirent.Fields ("telephonenumber")
        StrRekvirentMail = rsRekvirent.Fields ("mail")
        StrRekvirentAfd = rsRekvirent.Fields ("department")
        UserADPathRekvirent = "LDAP://" & UserPathRekvirent
    rsRekvirent.MoveNext
%>
<%wend%>
        <tr bgcolor="<%=StrBackgroundColorGrey%>" class="tbltxtSmall">   
          <td align ="right" valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="Denne opgave er oprettet af <%=StrRekvirentDisName%>, som kan kontaktes på tlf.nr.: <%=StrRekvirentTlfnr1%>"><%=rs("ID")%></a>&nbsp;</td>
          <td valign="top"><p class="TblTxt"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title=""><%=rs("Betegnelse")%></a></p></b>&nbsp;<%=rs("Problem")%>&nbsp;...<b></td>
          <td valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title=""><%=replace(rekvirent,"@xxxxxxxxxx.dk","")%></a>&nbsp;</td>
          <td valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title=""><%=rs("registreret")%></a>&nbsp;</td>
          <td valign="top"><a class="Tbl" href="default.asp?page=inc_vis_opgave.asp&id=<%=rs("ID")%>" title="<%=rs("slutdato")%>"><%=rs("slutdato")%></a>&nbsp;</td>
        </tr>
    <%    rs.movenext
          intRecCount = intRecCount - 1
        loop
    %>
</table>


    </td>
  </tr>
<% END IF %>
</table>
<% rs.close
  set rs = nothing

'Udskriver siderne  << 1 2 3 4 5 >>
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=?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=?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If

%>

hej eagleeye ...
Det var også den jeg havde forsøgt mig med, men jeg kan ikke få den til at funge:
Microsoft VBScript runtime error '800a01a8'
Object required, line 150

linie 150: <% rs.close

hvor regnes disse værdier :
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
??

glem lige sidste post - det var en tanketorsk

Arh - gennembrud
    rs.PageSize = 10 '<--------------- poster pr. side
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
skulle flyttes ned under IF NOT rs.eof

læg et svar, så deler vi :)

Ok, doh ja det var kommet ind i rs.EOF delen og ikke not rs.EOF
Ja sådan går det nogle gange ;)