en søgefunktion

Du skal vel bare sætte en    WHERE title like \'%\" & Request(\"soegeord\") &\"%\'    ind i din sql sætning.

Jeg ved ikke hvordan man gør alt det der:)
Jeg skal bare have et søge script som søger i de title og den kode jeg skal bruge på min hjemmeside (til søgefeltet)

Prøv det her! Jeg har sat navnet for inputfeltet i din form til Searchword:

------------------------------------------------

<%@ LANGUAGE=\"VBSCRIPT\" %>

<%
Dim strConnect

\' husk at æmdre DIN_DATABASE.mdb til din databases navn!
strConnect = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"DIN_DATABASE.mdb\") &\";DefaultDir=\"& Server.MapPath(\".\") &\";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5\"
%>

<%
Set resultat = Server.CreateObject(\"ADODB.Recordset\")
Set objConn = Server.CreateObject (\"ADODB.Connection\")
objConn.Open strConnect
%>

<%
Dim strAryWords
Dim strValue
Dim firstSQL1

\'Input navnet i formen hedder searchword...
strValue = Request(\"searchword\")
strAryWords = Split(strValue, \" \")
Dim intCol
For intCol = 0 to UBound(strAryWords)

\'Her søges der i Title
firstSQL1 = firstSQL1 & \" (Title LIKE \'%\" & strAryWords(intCol) & \"%\')\"
if intCol < UBound(strAryWords) then
firstSQL1 = firstSQL1 + \" OR \"
end if
Next

\' Ændre DIN_TABEL til den tabel som du vil søge i
set firstSQL = objConn.Execute(\"SELECT * FROM DIN_TABEL WHERE \"&firstSQL1&\" ORDER BY dato ASC;\") %>


<% While Not firstSQL.EOF
\'Herunder udskrives resultaterne
%>

<%= firstSQL(\"title\") %><br>

<%
firstSQL.MoveNext
Wend
%>

<%
    objConn.Close
    Set resultat = Nothing
%>

ok den ser sådan her ud... hvordan får jeg editboxen til at bruge search.asp til at søge i min database....


<%@ LANGUAGE=\"VBSCRIPT\" %>

<%
Dim strConnect

\' husk at æmdre DIN_DATABASE.mdb til din databases navn!
strConnect = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"../db/database.mdb\") &\";DefaultDir=\"& Server.MapPath(\".\") &\";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5\"
%>

<%
Set resultat = Server.CreateObject(\"ADODB.Recordset\")
Set objConn = Server.CreateObject (\"ADODB.Connection\")
objConn.Open strConnect
%>

<%
Dim strAryWords
Dim strValue
Dim firstSQL1

\'Input navnet i formen hedder searchword...
strValue = Request(\"searchword\")
strAryWords = Split(strValue, \" \")
Dim intCol
For intCol = 0 to UBound(strAryWords)

\'Her søges der i Title
firstSQL1 = firstSQL1 & \" (Title LIKE \'%\" & strAryWords(intCol) & \"%\')\"
if intCol < UBound(strAryWords) then
firstSQL1 = firstSQL1 + \" OR \"
end if
Next

\' Ændre DIN_TABEL til den tabel som du vil søge i
set firstSQL = objConn.Execute(\"SELECT * FROM title WHERE \"&firstSQL1&\" ORDER BY dato ASC;\") %>


<% While Not firstSQL.EOF
\'Herunder udskrives resultaterne
%>

<%= firstSQL(\"title\") %><br>

<%
firstSQL.MoveNext
Wend
%>

<%
    objConn.Close
    Set resultat = Nothing
%>

<form NAME=\"form\" action=\"search.asp\" method=\"post\">
<INPUT TYPE=\"text\" NAME=\"searchword\" SIZE=\"15\" value=\"\">
<INPUT TYPE=\"Submit\" NAME=\"submit\">
</form>

jeg får denne fejl

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query \'title\'. Make sure it exists and that its name is spelled correctly.
list/search.asp, line 35

det er her det går galt SELECT * FROM title WHERE

er du helt sikker på at du har et table der hedder title?

ja.... jeg tjecker lige om det er den rigtige database base sti jeg har angivet

du har sikkert en tabel der hedder ****** og i den har du 3 celler(hedder de vist?) som hedder title, dato og type

jeg har en der hedder title

ok hvilken celle vil du så søge i, i tabellen title?

når jeg dobbelt klikker på min database kan jeg se en tabel der hedder list dobbelt klikker jeg på den er der title type og dato

ja

ok det virker nu... men den skriver kun navnet på filerne....

nåå ok, så skal du skrive    SELECT * FROM list WHERE    istedet.

den skriver for eksempel..

c++ Tutorial
delphi tutorial

men man kan ikke klikke på dem

hvis du også vil have dato og type skriver du dette:

<% While Not firstSQL.EOF
\'Herunder udskrives resultaterne
%>

Title: <%= firstSQL(\"title\") %><br>
Dato: <%= firstSQL(\"dato\") %><br>
type: <%= firstSQL(\"type\") %><br><br>

<%
firstSQL.MoveNext
Wend
%>

...istedetfor det der stod før.

jeg vil have at man kan klikke på title da det er et link :) hvordan gør jeg det

hov...linket kan findes i cellen ved siden af title som hedder    link

der står url\'en i ..hjalp deT?

i title ser det sådan her ud

<a href=\"./out.asp?id=<% Response.Write rs(\"id\")%>\" target=\"_blank\">

id er en celle lige ved siden af title

prøv <a href=\"<%= firstSQL(\"link\") %>\"><%= firstSQL(\"title\") %></a>

PERFEKT!

Takker:)

Jeg takker også for scriptet, se dog her:

http://www.eksperten.dk/spm/125419