ASP paging problem

Hejsa NG.

Efter jeg har tilføjet et paging-system til mit forum er der en tæller der ikke virker:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM forum WHERE origin = True Order By id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 50
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
                  Response.Write("<tr>")
                    Response.write("<td bgcolor='#608098' width='6'></td>")
                  Response.Write("<td colspan='4' class='font' bgcolor='#FFFFFF'>")
  Response.Write "<p class='distance'><b>Side " & intPage & " af " & intPageCount & "</b></p>"
                  Response.Write("</td>")
                  Response.Write("<td bgcolor='#608098' width='6'></td></tr>")
                  Response.Write("<tr>")
                    Response.Write("<td bgcolor='#608098' width='6'></td>")
                      Response.Write("<td align='left' class='underline_left' height='14'><strong>Emne</strong></td>")
              Response.Write("<td align='right' class='underline_right' height='14'><strong>Antal</strong></td>")
              Response.Write("<td align='right' class='underline_right' height='14'><strong>Besvaret d.:</strong></td>")
              Response.Write("<td align='right' class='underline_right' height='14'><strong>Oprettet</strong></td>")
                    Response.Write("<td bgcolor='#608098' width='6'></td>")
                  Response.Write("</tr>")
  Do While Not rs.EOF And intRecCount > 0
                  Response.Write("<tr>")
                    Response.Write("<td bgcolor='#608098' width='6'></td>")
                      Response.Write("<td align='left' class='underline_left' height='14'><a class='black' href='forum.asp?mode=forum_read&id=" & rs("id") & "'>"& left(rs("emne"),30) & "</a></td>")
              Response.Write("<td align='right' class='underline_right' height='14'>")

AntalKommentarer2=0
if isNumeric(id) then
  Set rs1=objConn.Execute("SELECT COUNT(*) FROM forum where origin = false AND replyid LIKE  " & id)

  AntalKommentarer2=rs1(0).Value
                                                 
  Response.Write "" & AntalKommentarer2 & ""
end if

Response.Write("</td>")


              Response.Write("<td align='right' class='underline_right' height='14'>")


Antal=0
if isNumeric(ID) then
Set rs3=objConn.Execute("SELECT TOP 1 dato FROM forum WHERE replyid like " & rs("id") & " ORDER BY id DESC")
If not rs3.EOF Then
  Antal=rs3(0).Value
End If                                                 
Response.Write "" & Antal & ""
end if
Response.Write("</td>")

              Response.Write("<td align='right' class='underline_right' height='14'>" & rs("dato") & "</td>")
                    Response.Write("<td bgcolor='#608098' width='6'></td>")
                  Response.Write("</tr>")
                  Response.Write("<tr>")
                    Response.write("<td bgcolor='#608098' width='6'></td>")
                  Response.Write("<td colspan='4' class='font' bgcolor='#FFFFFF'>")


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


Nu er "AntalKommentarer2" = 0 uanset hvad.

Nogen der kan hjælpe?