Microsoft VBScript runtime (0x800A01A8)

Jeg har nedenstående kode og lige pludselig virker det ikke mere.

<%
ID = Request.QueryString("ID")
If ID = "" Then
    'No ID specified, list all records as links
    strSQL = "SELECT * FROM Links WHERE Kat = 'Computer' ORDER BY Navn"
    Set rstPage = conn.Execute(strSQL)
    Response.Write "<table width='350'>"
    Response.Write "<tr><td colspan='2' class='tabelfarve'>Computer</td></tr>"
    Do While Not rstPage.EOF
        Response.Write "<tr><td><a href=selinks.asp?id=" & rstPage("ID") & ">" &  rstPage("Navn") & "</a><tr></td>"
        Response.Write "<tr><td>" & rstPage("Beskrivelse") & "</td></tr>"
        Response.Write "<tr><td colspan='2'>&nbsp;</td></tr>"
        rstPage.MoveNext
    Loop
 
Else
End If
Response.Write "</table>"
%>


Jeg får følgende fejl:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/NyKasperC/www/links.asp, line 12

Hvad gør jeg galt?