søgefunktion
Jeg har et problem her ,dette er en søgefunktion med søgning fra en mbd.Jeg vil gerne have resultatet vist i en anden frame. i dette tilfælde hedder den
\"indhold\" ,altså søgeboksen i en frame med visningen i en anden frame.
det hele består nu af to filer en med boksen, den anden er asp\'en der redirecter.
-------------------------------------------
<% Response.Buffer = True %>
<!-- #INCLUDE FILE=\"search.htm\" -->
<html>
<head>
<!-- Minus AutoDato -->
<title>S E A R C H . A S P</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<style>
<!--A:link, A:visited { text-decoration: none;}A:hover { text-decoration: underline;color:red}-->
</style>
</head>
<body bgcolor=black text=white link=white alink=red vlink=white>
<font face=verdana size=2>
<center>
<font color=green>
Your Search Result . . .
</font>
<p>
<table border=0 cellspacing=0 bgcolor=#003366 width=80%>
<tr>
<td valign=top><font face=verdana size=2>
<%
\' Henter værdien fra search.htm
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
\' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect(\"search.htm\")
Else
\' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT Id, Emne, Link, Besk FROM link WHERE\"
strSQL = strSQL & \" (Id LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Emne LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Link LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (Besk LIKE \'%\" & strKeyword & \"%\')\"
\' Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"123.mdb\")
Conn.Open DSN
\' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)
\' Hvis der er fundet poster på søgningen
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
\' Variabler deklæres
Navn = rs(\"Link\")
Besked = rs(\"Besk\")
\' Generere et link, som er defineret i databasen
Link = \"<b><a href=\" & Navn & \" target=\'new\'>\" & Navn & \"</a></b>\"
\' Udskriver linket som det blev genereret ovenfor + tilhørende kommentar
Response.Write \"<li>\" & Link & \"</li>\" & \" - \" & Besked
rs.MoveNext
Loop
Else
\' Hvis der ikke er fundet poster på søgningen
Response.Write \"<li>N / A\"
End If
\' Databaseforbindelsen lukkes
Conn.Close
Set Conn = Nothing
%>
</table>
</body>
</html>
