Søg?!?!?!?

jeg går ud fra at du har defineret og oprettet databaseforbindelsen
RS er det recordsheet du arbejder med


if InStr(RS(\"søgefelt\"),\"det du søger efter\") > 0 then
Response.Write \"fundet\"
end if

hvad mener du?

Kender du noget til Databaser og Recordsheets ?

ikke så meget... =)

hvad skal hele koden være?

øhh, det er sq et længere svar :)

hvis du ikke kender så meget til db\'er og sådan, så vil jeg foreslå du kigger lidt på www.haneng.com der er nogle meget gode toturials til acces (synes jeg i hvert fald)

Findes også en lille tutorial på www.html.dk

hvad er der galt med denne kode?

<% Response.Buffer = True %>
<table border=0 cellspacing=0 width=80%>
<tr>
  <td height=15>
<tr> 
  <td valign=top align=center><font face=verdana size=2>

  <form action=\"search.asp\" method=\"post\">
  <input type=\"text\" name=\"Keyword\">
  <input type=\"submit\" value=\"[Search]\">
  <input type=\"reset\" value=\"[Reset]\">
  </form>
<%
\' 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(\"søg.asp\")

Else

\' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")

End If

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT Id, script, url, name FROM messages WHERE\"
strSQL = strSQL & \" (Id LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (script LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (url LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (name LIKE \'%\" & strKeyword & \"%\')\"

\' Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data/script.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
script = rs(\"script\")
name = rs(\"name\")

\' Generere et link, som er defineret i databasen
Link = \"<b><a href=\" & name & \" target=\'new\'>\" & script & \"</a></b>\"

\' Udskriver linket som det blev genereret ovenfor + tilhørende kommentar
Response.Write \"<li>\" & script & \"</li>\" & \" - \" & name

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>

jeg fandt en på netcoders.dk

:-) ellers tak

ja, netcoders.dk er et excellente site :)