Fejl ved kald.

Prøv at se denne kode:

<%
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("skadeanmeldelsefejlbrugt.asp")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If
strSQL = "SELECT * FROM skadeanmeldelse WHERE"
strSQL = strSQL & " (IDNUMMER LIKE '" & strKeyword & "')"
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\info.dk\db\skadeanmeldelse.mdb"
Conn.Open DSN
Conn.Execute(strSQL)
Set rs = Conn.Execute(strSQL)
if rs("status") = "brugt" then Response.Redirect "skadeanmeldelsefejlbrugt.asp"
end if
If Not (rs.BOF Or rs.EOF) Then
%>

Jeg kan ikke rigtigt finde ud af hvad jeg skal gøre:

1: Der checkes for om nummeret har været brugt, hvilket giver en 500 fejl hvis nummeret ikke eksisteret er feltet "status" jo ikke udfyldt.

Jeg prøvede at bytte om på det sådan :
If Not (rs.BOF Or rs.EOF) Then
if rs("status") = "brugt" then Response.Redirect "skadeanmeldelsefejlbrugt.asp" end if


Så virker fejl delen, hvis nummeret ikke eksisterer, men hvis man nu bruger et nummer der er OK , får man at vide
at nummeret ikke eksisteret.

Håber på en løsning.