Søgning i db

<% hvilket = Request.Form(\"hvilken\") %>
<html>
<head>
    <title>Søg efter en person</title>
</head>
<body>
<%
if hvilket = \"\" then  %>
<h1>Søg efter en person:</h1>
<form action=\"../dag2/soeg.asp\" method=\"post\">
    <input type=\"Text\" name=\"hvilken\" size=\"20\"><br>
    Kriteriet er <b>\"fornavn\"</b>
    eller <b>\"efternavn\"</b><p>
    <input type=\"Submit\" value=\"SØG\">
</form>
<% else %>

<h1>Personoplysninger:</h1>

<%
Dim objRec, antal
antal = 0
Set objRec = Server.CreateObject(\"ADODB.recordset\")

objRec.Open \"SELECT * FROM DIN_DATABASE WHERE DIT-KRITERIE = \'\" & hvilket & \"\' OR DIT-NÆSTE-KRITERIE =\'\" & hvilket & \"\'\", \"dsn=minodbc\", 1

antal = objRec.recordcount

if antal > 0 then
    Response.write \"<b>Der var \" & antal & \" fundne personer</b><p>\"
    While Not objRec.EOF
    Response.write \"<b>\" & objRec(\"NAVN-FRA-DB\") & \" \" & objRec(\"EFTERNAVN-FRA-DB\")
    Response.write \"</b><br>Nick: <b>\" & objRec(\"NICK-FRA-DB\")
    Response.write \"</b><br>NICK-FRA-DB: <b>\" & objRec(\"EMAIL-FRA-DB\")
    Response.write \"</b><br>EMAIL: <b>\" & objRec(\"EMAIL-FRA-DB\") & \"</b>\"
    objRec.MoveNext
Response.write \"<hr width=\'250\' align=\'left\'>\"
Wend
else
    Response.write \"Desværre, navnet du søgte findes ikke i databasen!<p>\"
end if

objRec.Close
Set objRec = Nothing

end if %>

</body>
</html>

http://www.activeserverpages.dk/aspdigital/kapitel2/search.asp

Sådan drenge, tark for det hurtige svar!