Søgefunktion i Adressekartotek

Jeg har et søgescript som søger i mit adresse kartotek, men problemet ligger i vis "Der blev ikke fundet noget med det indtastede søgeord"

Her er hvordan mit script er opbygget:

<%
navn = Trim(Request.Form("navn"))
id = Request.Querystring("id")

If Len(navn) = 0 Then
Response.Clear
Response.Redirect("default.asp")

Else
navn = Replace(navn,"'","''")
End If

strSQL = "SELECT id, navn FROM adresse WHERE"
strSQL = strSQL & " (Navn LIKE '%" & navn & "%')"

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("adresse.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

%>

Tabeller med overskrifter til mine nedenstående tabelelr hvor data hentes i!

<%
DO WHILE NOT rs.EOF
navn = rs("navn")
id = rs("id")

%>

TABELDATA, her ligger mine tabeller, hvor <%=navn%> bliver indsat, her vil jeg så også gerne have at fejlen kommer vis den ikke fandt noget med søgeordet, f.eks med <%=error%>, eller sådan noget, men hvordan gør man det???, jeg regner med der skal gøres et elelr andet ved nedestående "Else" sætning, her er forsættelsen på scriptet:

<%
rs.MoveNext
LOOP
RS.Close

Else
Response.write "DER BLEV IKKE FUNDET NOGET MED DET INDTASTEDE SØGEORD"
End If

Set conn = nothing
Set SQLstmt = nothing
%>