<% Response.Buffer = True %>
<html><!-- #include file="databasenavn.inc" -->
<head>
<title>Søgeresultat</title>
</head><body>
<%
Dim oConn
Dim oRS
Dim sSQL
Dim strSQL
Dim rs
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("search.asp")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
strSQL = "SELECT dkname, resume, dkyear, dkpage FROM Nkrtest WHERE"
strSQL = strSQL & " (dkname LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (resume LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (dkyear LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (dkpage LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " ORDER BY dkyear DESC,dkpage "
Set oConn = Server.CreateObject ("ADODB.Connection")
Set oRS = Server.CreateObject ("ADODB.Recordset")
oConn.Open strConnect
Set rs = oConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<p>Resultat af søgning på <b>" & strKeyword &
"</b></p>"
Response.Write "<table border=1>"
Response.Write
"<tr><th>Titel</th><th>Resume</th><th>Årgang</th><th>Side</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td valign=top>" & rs("dkname") & "</td>"
Response.Write "<td valign=top>" & rs("resume") & "</td>"
Response.Write "<td valign=top>" & rs("dkyear") & "</td>"
Response.Write "<td valign=top>" & rs("dkpage") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
</body></html>
Lars Grove Mortensen skriver:
> Jeg er ved at forsøge at indarbejde en intern søgemaskine i mit
> website.
>
> Er der nogen der har et forslag til, hvordan man laver
> fritekstsøgning i en tabel i en Access database??
>
> Jeg håber meget at nogen kan/vil hjælpe!
>
> På forhånd mange mange tak!
>
> MVH
> Lars G. Mortensen
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials