Søking med flere valgmuligheter

kan dette hjelpe ?

<%
column = request.form(\"column\")
type  = request.form(\"type\")
qString = request.form(\"qString\")

if( request(\"mode\") = \"search\" ) then
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath( [din database] )
   
    SQL = \"SELECT * FROM [tabel] WHERE \" & column
    select case type
      case \"equals\"
          SQL = SQL & \" LIKE \'\" & qString  & \"\'\"
        case \"contain\"
          SQL = SQL & \" LIKE \'%\" & qString & \"%\'\"
        case \"startsWith\"
          SQL = SQL & \" LIKE \'\" & qString & \"%\'\"
    end select
   
  set RS = Conn.Execute( SQL )

    while not RS.EOF
    response.write( RS( column ) & \"<br>\" )
    RS.MoveNext
    wend
else
  %>
    <form action=\"?mode=search\">
    <select name=\"column\">
      <option value=\"Ansattident\">Ansattident</option>
        <option value=\"Brukernavn\">Brukernavn</option>
        <option value=\"Etternavn\">Etternavn</option>
        <option value=\"Fornavn\">Fornavn</option>
    </select>
    &nbsp;&nbsp;
    <select name=\"type\">
      <option value=\"equals\">Er lik</option>
        <option value=\"contain\">inneholder</option>
        <option value=\"startsWith\">Starter med</option>
    </select>
    &nbsp;&nbsp;
    <input type=\"text\" name=\"qString\">    <br>
    <input type=\"submit\" value=\"submit\">   
    </form>
   
    <%
end if
%>

/nute

Dette hjelper meget. Her er dine poeng!

Odd

takker