Her et forslag. Dette script vil virke, og hente data fra en database der hedder testbase.mdb, med en tabel der hedder test1, hvor der er 2 kolloner der hedder Test1 og Test2. Brug dette script i forbindelse med en anden html side, hvor du opretter en form. Denne form skal senden en streng videre til siden, hvor du har nedenstående kode i. Navnet som den skal bruge er "Keyword".
Hvis der ikke bliver indtastet noget i formen, vil man blive dirigeret tilbage til indtastningssiden. Hvis der står nogen i formen, vil den søge på kollone "test1" i databasen.
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="#000000" text="#FFFFFF">
<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("soeg.asp")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, test1, test FROM test1 WHERE"
strSQL = strSQL & " (test1 LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("testbase.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
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>Værdi af Test1</th><th>Værdi af Test2</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("Test1") & "</td>"
Response.Write "<td>" & rs("Test2") & "</td>"
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>
