Highlight\'e et søgeord
Er det muligt at highlight\'e det ord man har søgt på i en database ?.....
kode:
.....
<% hvilket = Request.Form(\"hvilken\") %>
<html>
<head>
<title>tidligere indlæg</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"../scripts/prepress.css\">
</head>
<BODY style=\"color: #6699CC\" bgcolor=\"#F5F5F1\">
<% if hvilket = \"\" then %>
<div align=\"center\">
<center>
<table border=\"3\" cellpadding=\"0\" cellspacing=\"1\" style=\"border-collapse: collapse\" bordercolor=\"#336699\" width=\"540\" id=\"AutoNumber1\" bgcolor=\"#FFFFFF\">
<tr><td width=\"100%\">
<h2>Søg efter emner i tidligere indlæg:</h2>
<form action=\"soeg2.asp\" method=\"post\">
<h4 style=\"margin-left: 10; margin-top: 0; margin-bottom: 0\"><b>Søgeord: </b><input type=\"Text\" name=\"hvilken\" size=\"20\"><input type=\"Submit\" value=\"SØG\"> </h4>
</form>
<h2><% else %> </h2>
<%
Dim objRec, antal
antal = 0
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set objRec = Server.CreateObject(\"ADODB.recordset\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"info.mdb\")
objRec.Open \"SELECT * FROM info WHERE emne like \'%\" & hvilket & \"%\' OR info like \'%\" & hvilket & \"%\'\",conn,1,3
antal = objRec.recordcount
%>
<div align=\"center\">
<center>
<table border=\"3\" cellpadding=\"0\" cellspacing=\"1\" style=\"border-collapse: collapse\" bordercolor=\"#336699\" width=\"540\" id=\"AutoNumber1\" bgcolor=\"#FFFFFF\">
<tr>
<td width=\"100%\">
<%
if antal > 0 then
Response.write \"<b><h2>Der var \" & antal & \" fundne emner</h2></b><p>\"
While Not objRec.EOF
Response.write \"<b><h3>\" & objRec(\"emne\") & \" uge \" & objRec(\"uge\")
Response.write \"</h3></b><h5><i>skrevet af: \" & objRec(\"Init\")
Response.write \"</i></h5><h4>\" & objRec(\"info\") & \"</h4>\"
objRec.MoveNext
Response.write \"<hr width=\'100%\' align=\'left\'>\"
Wend
objRec.Close
Set objRec = Nothing
Conn.Close
Set conn = Nothing
%>
<p style=\"margin-left: 10; margin-top: 0; margin-bottom: 0\"> </p>
<form action=\"soeg2.asp\" method=\"post\">
<h2 style=\"margin-left: 10; margin-right: 0; margin-top: 0; margin-bottom: 0\">
<font color=\"#000000\"><b><font size=\"2\">Søg igen:</font></b><font size=\"2\">
</font></font>
<input type=\"Text\" name=\"hvilken\" size=\"20\">
<input type=\"Submit\" value=\"SØG\"> </h2>
</form></td></tr></table></center></div></center>
<%
else
Response.write \"<b><font color=\'#FF0000\' face=\'Arial\'> Desværre, emnet du søgte findes ikke i databasen!<p></font></b>\"
%>
<form action=\"soeg2.asp\" method=\"post\">
<h2 style=\"margin-left: 10; margin-right: 0; margin-top: 0; margin-bottom: 0\">
<font color=\"#000000\"><b><font size=\"2\">Søg igen:</font></b><font size=\"2\">
</font></font>
<input type=\"Text\" name=\"hvilken\" size=\"20\">
<input type=\"Submit\" value=\"SØG\"> </h2>
</form>
<%
end if
end if
%>
</td>
</tr>
<tr>
<td width=\"100%\">
<p align=\"center\">
<b><font size=\"2\"><a href=\"vis.asp\">Tilbage til info</a></font></b></td>
</tr>
</table>
<b><h5> </h5><h5> </h5></b>
</center>
</div>
</body>
</html>
