Siden "Sog.htm":
<html><head>
<title></title>
</head><body bgcolor="#9FB7C0">
<font face="verdana" color="#497383" size="2">
<form action="sog.asp" method="POST">
<b>Herunder kan du søge:<br>
</b><br>
<input type="text" name="Keyword" size="20"><br>
<br>
<input type="submit" name="Action" value="Søg">
</form></font>
</body></html>
Og siden "Sog.asp":
<% Response.Buffer = True %>
<html><head>
<title></title>
</head>
<body bgcolor="#9FB7C0">
<%
' Henter værdien fra sog.htm
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("sog.htm")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT brugernavn, navn, email, alder, kon, amt, kommune, job, ansogning FROM ansogning WHERE"
strSQL = strSQL & " (navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (email LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (alder LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (kon LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (amt LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (kommune LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (job LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (ansogning LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
Set myConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("ansogning.mdb")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write "<tr><th>Navn</th><th>Email</th><th>Alder</th><th>Køn</th><th>Amt</th><th>Kommune</th><th>Jobønske</th><th>Ansøgning</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("navn") & "</td>"
Response.Write "<td>" & rs("email") & "</td>"
Response.Write "<td>" & rs("alder") & "</td>"
Response.Write "<td>" & rs("kon") & "</td>"
Response.Write "<td>" & rs("amt") & "</td>"
Response.Write "<td>" & rs("kommune") & "</td>"
Response.Write "<td>" & rs("job") & "</td>"
Response.Write "<td>" & rs("ansogning") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</body></html>
