Søg i DB

Scriptet kommer jo meget an på din databasestruktur men her er lidt inspiration:

strSQL = \"SELECT * FROM tabel\"

arrSogeord = Split(Request.Form(\"textfield\"), \" \")
For i = 0 to Ubound(arrSogeord)
    If i = 0 Then
        strSQL = strSQL & \" WHERE (felt LIKE \'%\" & arrSogeord(i) &
\"%\')\"
    Else
        strSQL = strSQL & \" OR (felt LIKE \'%\" & arrSogeord(i) & \"%\')\"
    End if
Next

strSQL = strSQL & \"  WHERE Kategori = \" & REquest.Form(\"select\")

SQL = \"select * from tabel where der_hvor_den_skal_søge like \'%\" & text &\"%\' and kategori like \'%\" & kat & \"%\'\"

så skal der så bare ikke være nogen value under ALLE i din dropdown

hmm, min var vidst ikke helt god nok så :o)

her er min database :o)
http://www.web-zone.dk/db.zip

Tjaaa, men den har du lagt i Access2000 format ikke? Beklager, jeg køre stadig 97!

/Claus

ok jeg siger hvordan databasen ser ud :o)

kategori [tabel]
    ID
    Kategori (liv, død, gud)

Citat [tabel]
    ID
    Citat
    Kategori (liv, død, gud)

Er Kategori i Citat tabellen ikke en reference til ID i kategori tabellen?

jo

Kategori i Citat tabellen er reference til kategori i kategori tabellen?

<html>
<head>
  <title>Søg</title>
</head>
<body>
<%
strConnect = \"xxxxxxxxxx xxxxxxxxxxxx xxxxxxx\"

If Request.Form(\"Kategori\") <> \"\" Then
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
strSQL = \"SELECT * FROM Citat\"
arrSogeord = Split(Request.Form(\"Soegeord\"), \" \")
For i = 0 to Ubound(arrSogeord)
    If i = 0 Then
        strSQL = strSQL & \" WHERE (felt LIKE \'%\" & arrSogeord(i) &
\"%\')\"
    Else
        strSQL = strSQL & \" OR (felt LIKE \'%\" & arrSogeord(i) & \"%\')\"
    End if
Next

strSQL = strSQL & \"  WHERE Kategori = \" & Request.Form(\"Kategori\")
Set objRS = objConn.Execute(strSQL)

Do while Not objRS.EOF
Response.write objRS(\"Citat\") & \"<br/><hr/><br/>\"
objRS.Movenext
Loop
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Else
%>
<form action=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>\" method=\"post\">
<input type=\"text\" size=\"30\" name=\"Soegeord\"> Flere søgeord adskilles med mellemrum.<br/>
<select name=\"Kategori\">
%>
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
Set objRS = objConn.Execute(\"SELECT ID, Kategori FROM kategori\")
Do while Not objRS.EOF
Response.write \"<option value=\"\"\" & objRS(\"ID\") & \"\"\">\" & objRS(\"Kategori\") & \"</option>\"
objRS.Movenext
Loop
Response.write \"</select>\"
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<br/><input type=\"submit\" value=\"Søg\">
<%
End If
%>
</body>
</html>

Og jeg sidder så og sover:

<html>
<head>
  <title>Søg</title>
</head>
<body>
<%
strConnect = \"xxxxxxxxxx xxxxxxxxxxxx xxxxxxx\"

If Request.Form(\"Kategori\") <> \"\" Then
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
strSQL = \"SELECT * FROM Citat\"
arrSogeord = Split(Request.Form(\"Soegeord\"), \" \")
For i = 0 to Ubound(arrSogeord)
    If i = 0 Then
      strSQL = strSQL & \" WHERE (Citat LIKE \'%\" & arrSogeord(i) & \"%\')\"
    Else
      strSQL = strSQL & \" OR (Citat LIKE \'%\" & arrSogeord(i) & \"%\')\"
    End if
Next

strSQL = strSQL & \"  WHERE Kategori = \" & Request.Form(\"Kategori\")
Set objRS = objConn.Execute(strSQL)

Do while Not objRS.EOF
Response.write objRS(\"Citat\") & \"<br/><hr/><br/>\"
objRS.Movenext
Loop
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Else
%>
<form action=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>\" method=\"post\">
<input type=\"text\" size=\"30\" name=\"Soegeord\"> Flere søgeord adskilles med mellemrum.<br/>
<select name=\"Kategori\">
%>
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
Set objRS = objConn.Execute(\"SELECT ID, Kategori FROM kategori\")
Do while Not objRS.EOF
Response.write \"<option value=\"\"\" & objRS(\"ID\") & \"\"\">\" & objRS(\"Kategori\") & \"</option>\"
objRS.Movenext
Loop
Response.write \"</select>\"
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<br/><input type=\"submit\" value=\"Søg\">
<%
End If
%>
</body>
</html>

skal jeg bruge den nedeste eller ?

det virker ik med den nedste:

http://www.web-zone.dk/lunddk/sog.asp

hvordan skal jeg connect til database ??

<%
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")

If Request.Form(\"Kategori\") <> \"\" Then
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
strSQL = \"SELECT * FROM Citat\"

eller hvordan ?

og lige en ting hvad rager ID med kategori ??
(\"SELECT ID, Kategori FROM kategori\")

Du skal bruge denne her:


<html>
<head>
  <title>Søg</title>
</head>
<body>
<%
strConnect = DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")

If Request.Form(\"Kategori\") <> \"\" Then
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
strSQL = \"SELECT * FROM Citat\"
arrSogeord = Split(Request.Form(\"Soegeord\"), \" \")
For i = 0 to Ubound(arrSogeord)
    If i = 0 Then
      strSQL = strSQL & \" WHERE (Citat LIKE \'%\" & arrSogeord(i) & \"%\')\"
    Else
      strSQL = strSQL & \" OR (Citat LIKE \'%\" & arrSogeord(i) & \"%\')\"
    End if
Next

strSQL = strSQL & \"  AND Kategori = \" & Request.Form(\"Kategori\")
Set objRS = objConn.Execute(strSQL)

Do while Not objRS.EOF
Response.write objRS(\"Citat\") & \"<br/><hr/><br/>\"
objRS.Movenext
Loop
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Else
%>
<form action=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>\" method=\"post\">
<input type=\"text\" size=\"30\" name=\"Soegeord\"> Flere søgeord adskilles med mellemrum.<br/>
<select name=\"Kategori\">
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
Set objRS = objConn.Execute(\"SELECT ID, Kategori FROM kategori\")
Do while Not objRS.EOF
Response.write \"<option value=\"\"\" & objRS(\"ID\") & \"\"\">\" & objRS(\"Kategori\") & \"</option>\"
objRS.Movenext
Loop
Response.write \"</select>\"
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<br/><input type=\"submit\" value=\"Søg\">
<%
End If
%>
</body>
</html>   

Jeg henter bare dine kategorier ud fra databasen således at hvis du smider en kategori mere i din kategoritabel kommer den automatisk med i dropdownboksen.

tjek nu \"siden kan ik vises\" ?

her er min script:
<html>
<head>
  <title>Søg</title>
</head>
<body>
<%
strConnect = DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")

If Request.Form(\"Kategori\") <> \"\" Then
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
strSQL = \"SELECT * FROM Citat\"
arrSogeord = Split(Request.Form(\"Soegeord\"), \" \")
For i = 0 to Ubound(arrSogeord)
    If i = 0 Then
      strSQL = strSQL & \" WHERE (Citat LIKE \'%\" & arrSogeord(i) & \"%\')\"
    Else
      strSQL = strSQL & \" OR (Citat LIKE \'%\" & arrSogeord(i) & \"%\')\"
    End if
Next

strSQL = strSQL & \"  AND Kategori = \" & Request.Form(\"Kategori\")
Set objRS = objConn.Execute(strSQL)

Do while Not objRS.EOF
Response.write objRS(\"Citat\") & \"<br/><hr/><br/>\"
objRS.Movenext
Loop
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Else
%>
<form action=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>\" method=\"post\">
<input type=\"text\" size=\"30\" name=\"Soegeord\"> Flere søgeord adskilles med mellemrum.<br/>
<select name=\"Kategori\">
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
Set objRS = objConn.Execute(\"SELECT * From citat\")
Do while Not objRS.EOF
Response.write \"<option value=\"\"\" & objRS(\"kategori\") & \"\"\">\" & objRS(\"Kategori\") & \"</option>\"
objRS.Movenext
Loop
Response.write \"</select>\"
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<br/><input type=\"submit\" value=\"Søg\">
<%
End If
%>
</body>
</html>   

DEt er ikke forbudt at tænke selv...  Jeg får denne fejlmeddelelse:

Invalid character

/lunddk/sog.asp, line 7

strConnect = DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")

Kan du iikke selv gætte dig til at det er fordi der ikke er \" omkring altså:

strConnect = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")

jeg fik ik den fejl ???

og hvad mener du med \"DEt er ikke forbudt at tænke selv\"

Ok den virker nu...men den skulle også søger i \"Alle\" kategori på engang !

og prøve lige at søge efter noget ! måske får du en fejl meddelse !

http://www.web-zone.dk/lunddk/sog.asp

Du udskriver jo ikke kategoriIDet men navnet i Value... Brug den kode jeg gav dig sidst.

det bruger jeg også men den fungere ik som du kan se !

Du bruger ikke det som jeg siger! Din drop down ser jo sådan her ud:

<option value=\"string\">string</option>

Det skal være:

<option value=\"intreger\">string</option>

der findes ik noget der hedder <option value=\"string\">string</option> i asp filen ?

Du har ændret i den kode jeg sendte dig, det er dette du har ændret:

<select name=\"Kategori\">
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnect
Set objRS = objConn.Execute(\"SELECT * From citat\")
Do while Not objRS.EOF
Response.write \"<option value=\"\"\" & objRS(\"ID\") & \"\"\">\" & objRS(\"Kategori\") & \"</option>\"
objRS.Movenext
Loop
Response.write \"</select>\"

har ændret det, men det virker ik !!!!
http://www.web-zone.dk/lunddk/sog.asp

Prøv at udskrive SQLen istedet for at eksekvere den, så kan du se eventuelle fejl.

moonduck > jeg er nybegynder :o så jeg ved ik hvordan man udskrive SQLen ?

Har du læst tutorialen på www.html.dk ?

Response.Write (SQL)
?

moonduck > jeps ! jeg tror nok jeg skal læse den endnu engang...