Paging (Hurtigt)

PS. 30 Beskeder pr. side

Her bruges paging koden fra activedeveloper:
http://activedeveloper.dk/artikler/default.asp?articleid=31

Du skal rette de 3 "DinSide.asp" til det navn din side har. Så skulle det virke.

<%
If Session("Brugernavn") <> "" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../RaiX.mdb") & ""

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Brugere Where id = " & Session("id")
    rs.Open strSQL, Conn

%>
<FORM ACTION="OpretTagwall.asp" METHOD="POST">
<CENTER>
<%
If rs("Crew") <> "" Then
%>
<B>Brugernavn:</B> <A HREF="Profil.asp?id=<%=rs("id")%>"><%=rs("Brugernavn")%></A> - <%=rs("Crew")%><BR>
<%
Else
%>
<B>Brugernavn:</B> <A HREF="Profil.asp?id=<%=rs("id")%>"><%=rs("Brugernavn")%></A><BR>
<%
End if
%>
<B>Tag':</B> <INPUT NAME="Besked" TYPE="text"><BR>
<INPUT TYPE="submit" VALUE="Tag!">&nbsp;<BUTTON STYLE="font size: 8pt; font-family: Verdana; border: 1 solid #000000; background: #FFFFFF;" onClick="window.location='Tagwall.asp'">Opdatér</BUTTON>
</CENTER>
</FORM>
Tøm Tagwall<BR><BR>
<%
If rs1.EOF Then
  Response.Write "Der er ingen Tag's.<br><br>"
Else

  'Paging kode
  intPage = Request("page")
  If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
  End If

  Set rs1 = Server.CreateObject("ADODB.RecordSet")
  strSQL = "Select * From Tagwall ORDER BY id DESC"
  rs1.Open strSQL, Conn, 1

  If Not (rs1.BOF Or rs1.EOF) Then
    rs1.PageSize = 30
    rs1.AbsolutePage = intPage
    intRecCount = rs1.PageSize
    intPageCount = rs1.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs1.EOF And intRecCount > 0

      Set rs2 = Server.CreateObject("ADODB.RecordSet")
      strSQL = "Select * From Brugere Where Brugernavn = '" & rs1("Brugernavn") & "'"
      rs2.Open strSQL, Conn

      If rs2("Crew") <> "" Then
        Response.Write "Skrevet af <A HREF='Profil.asp?id=" & rs2("id") & "'><B>" & rs1("Brugernavn") & "</B></A> - " & rs2("Crew") & " - D " & rs1("Day") & ". " & rs1("Month") & " " & rs1("Year") & " - " & rs1("Hour") & ":" & rs1("Minute") & ":" & rs1("Second") & " - <B>Slet</B><BR>"
      Else
        Response.Write "Skrevet af <A HREF='Profil.asp?id=" & rs2("id") & "'><B>" & rs1("Brugernavn") & "</B></A> - D " & rs1("Day") & ". " & rs1("Month") & " " & rs1("Year") & " - " & rs1("Hour") & ":" & rs1("Minute") & ":" & rs1("Second") & " - <B>Slet</B><BR>"
      End if
      Response.Write "" & rs1("Besked") & "<BR><BR>"

    intRecCount = intRecCount - 1
    rs1.MoveNext
    Loop
  End If
  rs1.Close
  Set rs1 = Nothing

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

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


end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing

Else
  Response.Write "Du er ikke logget ind."
End if
%>

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'

Et objekt er obligatorisk: ''

/Community/Tagwall.asp, linje 32

Nej det er lige meget har selv lige fundet fejlen.. Tak for hjælpen :)
Smid et svar :D

No prob. Var ellers lidt nervøs over at bygge et paging system ind i en kode. Det er nemlig nemmere at gøre det omvendt (bygge kode ind i et pagingsystem), men heldigvis var din kode ikke så indviklet, men jeg havde forventet at der skulle mere tilpasning til :o)

.o) <-- One Eyed Jack

Hehe jeg koder altid overskueligt, men det eneste der var galt var at RecordSet1 skulle rykkes et par linjer op :)