prøv denne:
**********
search.htm
**********
<html>
<body>
<form action=\"searchresult.asp?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>
<select name=\"condition\">
<option value=\"equals\">Er lik</option>
<option value=\"contain\">inneholder</option>
<option value=\"startsWith\">Starter med</option>
</select>
<input type=\"text\" name=\"qString\"> <br>
<input type=\"submit\" value=\"submit\">
</form>
</body>
</html>
****************
searchresult.asp
****************
<html>
<body>
<%
column = request.form(\"column\")
condition = request.form(\"condition\")
qString = request.form(\"qString\")
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
if( LEN(request(\"orderBy\")) > 0 ) then
SQL = SQL & \" ORDER BY \" & request(\"orderBy\")
else
SQL = SQL & \" ORDER BY Brukernavn\"
end if
set RS = Conn.Execute( SQL )
with response
.write \"<table width=300><tr><td width=100>\"
.write \"<a href=\'?column=\" & column & \"&condition=\" & condition & \"&qString=\" & qString & \"&orderBy=Brukernavn\'>Brukernavn</a>\"
.write \"</td><td width=100>\"
.write \"<a href=\'?column=\" & column & \"&condition=\" & condition & \"&qString=\" & qString & \"&orderBy=Etternavn\'>Etternavn</a>\"
.write \"</td><td width=100>\"
.write \"<a href=\'?column=\" & column & \"&condition=\" & condition & \"&qString=\" & qString & \"&orderBy=Fornavn\'>Fornavn</a>\"
.write \"</td></tr>\"
end with
while not RS.EOF
with response
.write \"<tr><td width=100>\" & RS(\"Brukernavn\") & \"</td>\"
.write \"<td width=100>\" & RS(\"Etterrnavn\") & \"</td>\"
.write \"<td width=100>\" & RS(\"Forrnavn\") & \"</td>\"
.write \"</tr>\"
end with
RS.MoveNext
wend
response.write \"</table>\"
%>
</body>
</html>
/nute
Ny bruger
Nybegynder
Opret
Preview
