Fejl i søgemaskine

<% Response.Buffer = True %>
<html><head>
<title>Soegeresultat</title>
</head><body>

<%
strType = Trim(Request.Form("Type"))
strAarstal = Trim(Request.Form("Aarstal"))
strNummer = Trim(Request.Form("Nummer"))

If Len(strType) = 0 Then
    Response.Clear
    Response.write "Indtast venligst en udgivelse"
Else
    ' Hvis der er skrevet i feltet
    strType = Replace(strType,"'","''")
End If

If Len(strAarstal) <> 0 Then
    strAarstal = Replace(strAarstal,"'","''")
End If

If Len(strNummer) = 0 OR Len(strNummer) <> "0" Then
    ' Hvis der er skrevet i feltet
    strNummer = Replace(strNummer,"'","''")
End If

If strType = "AS" OR strType = "AA" OR strType = "AE" OR strType = "BB" OR strType = "EH" OR strType = "GP" OR strType = "MH" OR strType = "OJ" Then
    strSQL = "SELECT Type, Aarstal, Nummer FROM udgivelser WHERE"
    strSQL = strSQL & " (Type LIKE '%" & strType & "%')"
    strSQL = strSQL & " AND (Aarstal LIKE '%" & strAarstal & "%')"
    strSQL = strSQL & " AND (Nummer LIKE '%" & strNummer & "%')"
Elseif strType = "GH" OR strType = "HIA" OR strType = "JX" OR strType = "JB" OR strType = "MG" OR strType = "SE" Then
    strSQL = "SELECT Type, Nummer FROM udgivelser WHERE"
    strSQL = strSQL & " (Type LIKE '%" & strType & "%')"
    strSQL = strSQL & " AND (Nummer LIKE '%" & strNummer & "%')"
End if


' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p>Søgeresultat</p>"
    Response.Write "<table border=1>"
    Response.Write "<tr><td>Id</td><td>Type</td><td>Aarstal</td><td>Nummer</td><td>Bibliotek</td></tr>"
    Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("id") & "</td>"
        Response.Write "<td>" & rs("type") & "</td>"
        Response.Write "<td>" & rs("aarstal") & "</td>"
        Response.Write "<td>" & rs("nummer") & "</td>"
        Response.Write "<td>" & rs("bibliotek") & "</td></tr>"
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

</body></html>


Når jeg søger med flg. kriterier:
AA  2002  42

, får jeg flg. fejl:

Error Type:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
/raplioteket/check.asp, line 53


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 30 bytes to /raplioteket/check.asp

POST Data:
type=AA&aarstal=2002&nummer=42

Time:
Saturday, October 19, 2002, 3:27:14 PM


More information:
Microsoft Support

Hvad er fejlen?

    52'  Do While Not rs.EOF
    53'  Response.Write "<tr><td>" & rs("id") & "</td>"
    54'  Response.Write "<td>" & rs("type") & "</td>"

Please help...

/cotus