Problem med records i f.m. paging

Jeg anvender scriptet herunder til at vise de første 10 poster fra en database. Troede jeg.
For den viser kun den første record. Er der nogen der kan gennemskue fejlen?
Scriptet er taget fra spørgsmål 90358

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

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strConn = "Driver={mysql};Server=localhost;Database=DB-navn;UID=brugernavn;PWD=password;"

    strSQL = "SELECT * FROM gdguest ORDER BY dato DESC;"
    Rs.CursorLocation = 3
    Rs.Open strSQL, strConn, 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>Side " & intPage & " af " & intPageCount & "</b></p>"

        While Not rs.EOF And intRecCount > 0

            strmessage = rs("tekst")
            'strMessage = LinkString(strMessage)

            response.write "<table border=1 width=500 align=center><tr><th     width='20%'>Data</th><th>Indlæg</th></tr>"
            emaillink= "mailto:" & rs("email")
            If rs("email") <> "" Then
                response.write "<tr><td class=TDLeft><a href='" & emaillink & "'>" & rs("Navn") & "</a><br>" & rs("dato") & "<br>" & rs("tidspunkt") & "</td>"
            Else
                response.write "<tr><td class=TDLeft>" & rs("Navn") & "<br>" & rs("dato") & "</td>"
            End if
            response.write "<td class=TDLeft>" & strmessage & "</td></tr></table><br>"
            rs.MoveNext
       
        intRecCount = intRecCount - 1
        rs.MoveNext
        Wend
    End If

    Rs.Close
    Set Rs = Nothing

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

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

%>