Søgemaskine
Jeg har dette Asp script til en søgemaskine og jeg vil gerne have et hjemmesiderne der er hyperlink til bliver åbnet I et nyt vindue!Her er scriptet:
<form action=\"default.asp\" method=\"post\">
<table style=\"font-weight: bold\">
<tr><td>Søgeord:</td><td><input type=\"text\" name=\"soeg\"></td></tr>
<tr><td></td><td><input type=\"submit\" name=\"submit\" value=\"Søg\">
</table>
</form>
<%
If Request.Form(\"soeg\") <> \"\" then
Set DB = Server.CreateObject(\"ADODB.Connection\")
DBSti = \"DBQ=\" & Server.Mappath(\"soeg.mdb\")
DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti
SQL = \"select * from Soeg where url like \'%\" & Request.Form(\"soeg\") & \"%\' or Navn like \'%\" & Request.Form(\"soeg\") & \"%\'\"
Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write \"<table>\"
Response.Write \"<tr><td><font face=Comic Sans MS size=3><b>Navn</b></font></td><td width=30></td><td><font face=Comic Sans MS size=3><b>URL</b></font></td></tr>\"
Do until rs.eof
url = rs(\"url\")
Response.Write \"<tr><td><font face=Comic Sans MS size=2>\" & rs(\"navn\") & \"</font></td><td width=30></td><td><font face=Comic Sans MS size=2><a href=\'http://\" & url & \"\'>\" & url & \"</a></font></td></tr>\"
rs.movenext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<b>Der var intet der matchede din søgekriterier!</b>\"
End if
End if
%>
scriptet ligger på www.friserverplads.dk/klogesen/soeg/default.asp
