Jeg har selv brugt følgende kode til af finde hjemmeside adresser fra en database...:
<html>
<head>
<title>Søgning i database - Du søgte på: <% Response.Write(Request.Form("soeg")) %></title>
<style type="text/css">
input {
border: 1px solid #5881CA;
background-color: transparent;
height: 17px;
text-decoration: none;
font-family: Tahoma;
font-size: 8pt;
letter-spacing: 0.05em;
}
a:link {
color: #5881CA;
text-decoration: none;
font-family: Tahoma;
}
a:visited {
color: #5881CA;
text-decoration: none;
}
a:hover {
color: #800000;
text-decoration: none;
}
body {
background: #f0f0f0;
font-family: Tahoma;
font-size: 8pt;
letter-spacing: 0.05em;
}
td {
font-family: Tahoma;
font-size: 8pt}
</style>
<script type="text/javascript">
<!--
function check(f) {
if (f.soeg.value.length<3) {
alert("Du skal skrive mindst 3 tegn");
return false;
}
if (f.soeg.value.length>50) {
alert("Du kan højst 50 tegn");
return false;
}
return true;
}
//-->
</script>
</head>
<base target="_new">
<body>
<form action="soeg.asp" method="post" target="_self" onsubmit="return check(this)">
Angiv søgeord:
<input type="text" name="soeg"> <input type="submit" name="submit" value=" Søg ">
</form>
<%
If Request.Form("soeg") <> "" then
Set DB = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("DATABASENAVN.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") & "%' or Ord like '%" & Request.Form("soeg") & "%'"
Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write "Søgningen på <b>" & request("soeg") & "</b> gav følgende resultater:<br><br><br>"
Do until rs.eof
url = rs("url")
Response.Write "<b>»</b> <a href='
http://" & url & "'>" & rs("navn") & "</a><br>"
rs.movenext
Loop
Else
Response.Write "Søgningen på <b>" & request("soeg") & "</b> gav ingen resultater..."
End if
End if
%>
</body>
</html>