find en fejl

her er koden:
<LINK rel="stylesheet" type="text/css" href="..\stylesheet.css">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("db.mdb")
If session("login") <> "ja" Then
response.write "Du skal være logget ind!! <b><a href=""..\opret.asp"">opret bruger</a></b> eller  <b><a href=""..\login.asp"">login</b></a>"
Else
if request.Querystring("kat") = "" Then
Set rs = Conn.openschema(20)
Do until rs.eof
    If rs("TABLE_TYPE") = "TABLE" Then
    If LCase(rs("TABLE_NAME")) <> "tom" Then
        Response.write "<a href=default.asp?kat=" & (rs("TABLE_NAME")) & ">" & (rs("TABLE_NAME")) & "</a><br>"
    End if
    End if
rs.movenext
Loop
else if request.Querystring("kat") <> "" Then
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
strKatori = request.Querystring("kat")
Set Conn = Server.CreateObject("ADODB.Connection")

DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN
strSQL = "Select * from " & strKatori & " where hj = TRUE and svaret = False order by dato desc, klokken desc, overskrift"
set rs = conn.execute(strSQL)
response.write "I katokorien " & strKatori & "(åbne):<p>"
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
If strId = rs("id") Then
Else
        response.write rs("skrevet_af") & " "
response.write "d. " & rs("dato") & ". "
response.write "<a href=""se.asp?kat=" & strKatori & "&id=" & rs("id") & "&mode=se_hj""><code>" & rs("overskrift") & "</code></a><br>"

End if
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
If Clng(intPage) > 1 Then
    Response.Write "<a href=default.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
End If
For intNum = 1 To intPageCount
    Response.Write "<a href=default.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "&nbsp;"

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

response.write "<br> <a href=""opret.asp?mode=hj&kat=" & strKatori & """>Opret spm....</a>"
End if
End if
End if
Set rs = nothing
Conn.close
Set Conn = nothing
%>


fejlen:

ADODB.Recordset fejl '800a0cb3'

Den ønskede handling understøttes ikke af objektet eller provideren.

/on/h_forum/default.asp, linje 34

linjen er
    rs.AbsolutePage = intPage