Microsoft VBScript runtime error '800a000d'

Jeg er ved at lavet et linkscript, hvor besøgende kan tilføje links. Mit problem er jeg ikke kan få linket, som man skal klikke på for at tilføje links til at virke. Jeg får denne fejl i mit script:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

link.asp, line 101
line 101 Response.Write "<a href=""tilfoj.asp?categoryID="& RS("categoryID") & ">tilføj</a>"

i dben, i tabellen links har jeg
Links:
LinkID          auto
LinkTitle        Tekst
LinkURL          Tekst
LinkDescription  Notat
LinkVisits      Tal
LinkDateAdded    Dato og klokkeslæt
CategoryID      Tal
Live            Tal
Email            Tekst


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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT LinkID, LinkTitle,LinkDescription, LinkVisits, categoryID FROM Links Where Live = 1 and categoryID =" & Request.Querystring("id")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/links2.mdb")


rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 3
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<center>Side " & intPage & " af " & intPageCount & "</center>"
  Do While Not rs.EOF And intRecCount > 0
response.write "<fieldset style='padding: 2'>"
response.write "<legend><font face='Verdana' size='1'COLOR='#473262'><a href=""redirect.asp?LinkID="&RS("LinkID")&""">"& RS("LinkTitle")  & "</a>&nbsp;"& RS("LinkVisits")& "&nbsp;klik</FONT>"
response.write "</legend>"
response.write "<font face='Verdana' size='1'>"
response.write RS("LinkDescription")&"<br>"
response.write "</FONT></div>"
response.write "</fieldset>"
response.write ""
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<a href=""tilfoj.asp?categoryID="& RS("categoryID") & ">tilføj</a>"
Response.Write "<p><center><a href='links.asp'>Tilbage til link oversigt</a></center>"
Response.Write "<hr color='#DCB7DC' size='1'>"
For intNum = 1 To intPageCount
Next
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='400'>"
Response.Write "<tr>"
Response.Write "<td width='33%' align='left'>&nbsp;"
If Clng(intPage) > 1 Then
Response.Write "<a href=link.asp?page=" & intPage - 1 & "&id="& request.querystring("id") &"><font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b> </a>"
Else
Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Forrige</b>"
End If
Response.Write "</td>"
Response.Write "<td width='33%' align='center'></td>"
Response.Write "<td width='34%' align='right'>"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=link.asp?page=" & intPage + 1 & "&id="& request.querystring("id") &"><font face='Verdana' size='1' COLOR='#473262'><b>Næste</b></a> &nbsp;</td>"
Else
  Response.Write "<font face='Verdana' size='1' COLOR='#473262'><b>Næste</b><p>"
End If
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
%>