en søge side :
<td width=\"33%\" valign=\"top\">
<form method=\"GET\" name=\"navn\" action=\"search.asp\">
<p align=\"center\"><input TYPE=\"text\" SIZE=\"16\" NAME=\"Keyword\"><br>
<input type=\"hidden\" name=\"mode\" value=\"navn\">
<input TYPE=\"submit\" VALUE=\"Navn\" NAME=\"Action\"></p>
</form>
</form>
</td>
<td width=\"33%\" valign=\"top\">
<form method=\"GET\" name=\"overskrift\" action=\"search.asp\">
<p align=\"center\"><input TYPE=\"text\" SIZE=\"16\" NAME=\"Keyword\"><br>
<input type=\"hidden\" name=\"mode\" value=\"overskrift\">
<input TYPE=\"submit\" VALUE=\"Overskrift\" NAME=\"Action\"></p>
</form>
</form>
</td>
<td width=\"34%\">
<form method=\"GET\" name=\"indhold\" action=\"search.asp\">
<p align=\"center\"><input TYPE=\"text\" SIZE=\"19\" NAME=\"Keyword\"><br>
<input type=\"hidden\" name=\"mode\" value=\"indhold\">
<input TYPE=\"submit\" VALUE=\"Indhold\" NAME=\"Action\"></p>
</form>
</form>
</td>
Og en output side :
<%
Temp = request.querystring(\"Keyword\")
mode = Request.querystring(\"mode\")
If mode = \"navn\" Then
strSQL = \"SELECT * FROM drink where (navn like \'%\"& Temp &\"%\') ORDER BY overskrift ASC\"
End if
If mode = \"overskrift\" Then
strSQL = \"SELECT * FROM drink where (overskrift like \'%\"& Temp &\"%\') ORDER BY overskrift ASC\"
End if
If mode = \"indhold\" Then
strSQL = \"SELECT * FROM drink where (drink like \'%\"& Temp &\"%\') ORDER BY overskrift ASC\"
End if
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")
set rs = Server.CreateObject(\"ADODB.RecordSet\")
rs.open strSQL, conn, 1
if rs.eof then
response.write \"Din søgning efter \"& temp &\" gav intet resultat\"
else
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
end if
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
records = rs.RecordCount
Response.write \"Din søgning på \"& temp &\" gav \"& records &\" hit(s) side \"& intPage &\"/\"& intPagecount &\"<p>\"
do while NOT rs.eof And intRecCount > 0
Response.Write \"<br><A HREF=\"\"drink.asp?id=\"& rs(\"id\") & \"\"\">\"& rs(\"overskrift\")
intRecCount = intRecCount - 1
rs.movenext
loop
end if
rs.close
set rs = nothing
%>
Skal rettes til efter dig jo
Den bruger jeg her :
http://www.fredericia-bynight.dk/drinks/searchform.aspAndet så skriv på : 92064248 (icq)