Angiv Søgeresultat fra database
Jeg har denne søge funktion som skal finde og kalde resulteter frem fra databasen. Problemet er at jeg skal have den til at søge fra et felt med html og så vise link til denne side ud fra der hvor den finde ord der passer med søgeordet. Der hvor der skal søge er i tabellen "contents" i feltet "c_text" og så udskrive et link.Jeg har disse felter i databasen:
c_id = Som angiver sidens id
c_title = Som angiver kategorien
c_text = Som indeholder html tekst
Her er det jeg har lavet en til nu:
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<%
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect("search.htm")
Else
strKeyword = Replace(strKeyword,"'","''")
End If
strSQL = "SELECT c_text FROM contents WHERE"
strSQL = strSQL & " (c_text LIKE '%" & strKeyword & "%')"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write "<tr><th>Link</th></tr>"
Do While Not rs.EOF
Response.Write "<td>" & rs("<a title='"& m_name &"' href='?action="&saction&"&what="&m_id&"'>" & m_name & "</a>") & "</td>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
myConn.Close
Set myConn = Nothing
%>
</body></html>
Håber der er en der hjælpe.
