Søg på flere kriterier

strSQL = \"Select * From tbl_products Where Product_Id LIKE \'%\" & strSearch & \"%\'\"

Tak for hjælpen!

jeg bruger denne:
hvor html filen heder: search.htm



<html>

<head>

<title>Fritekst søgning</title>
</head>

<body>

<form method=\"POST\" action=\"search.asp\">
  <p><input type=\"text\" name=\"Keyword\" size=\"20\"><br>
  <input type=\"submit\" value=\"Søg\" name=\"Action\"></p>
</form>
</body>
</html>




og så er der en fil der heder:search.asp



<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>

<%
\' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
    \' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect(\"search.htm\")
Else
    \' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT ID, id, beskrivelse, problem_mulighed, info, henvisning FROM fb_rap WHERE\"
strSQL = strSQL & \" (beskrivelse LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (problem_mulighed LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (info LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (henvisning LIKE \'%\" & strKeyword & \"%\')\"

\' 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><th>ID nr</th><th>Adresse</th><th>Adresse</th><th>By</th><th>Beskrivelse</th></tr>\"
    Do While Not rs.EOF
        Response.Write \"<tr><td>\" & rs(\"id\") & \"</td>\"
        Response.Write \"<tr>\" & rs(\"beskrivelse\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"problem_mulighed\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"info\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"henvisning\") & \"</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>

koden skal selvf. lige rettes så den passer til din db :)