"Andreas Slot-Henriksen" <andreas.s-h@mail.dk> wrote in message
news:3b74fe34$0$406$edfadb0f@dspool01.news.tele.dk...
> Jeg leder efter et eksempel på en søgefunktion, hvor man
> via en combo-box kan vælge følgende for søgningen:
>
> Indeholder alle ord (vilkårlig rækkefølge)
> Indeholder alle ord (eksakt)
> Indeholder bare ét af ordene
>
Det er skam let nok...:
Opret en dialog box med en pull down menu med navnet "SearchType", med
følgende options:
<Option Value="Exact">Indeholder alle ord (eksakt)</Option>
<Option Value="Any">Indeholder alle ord (vilkårlig rækkefølge)</Option>
<Option Value="All">Indeholder bare ét af ordene</Option>
Og en tekst input box med navnet "SearchStr".
I dit ASP script laver du noget ala nedenstående:
'Dette er et eksempel, scriptet søger i feltet FileName.
If Request("SearchType") = "All" Then
SearchStrs = Split(Request("SearchStr"), " ")
For n = lBound(SearchStrs) To uBound(SearchStrs)
If Kriterier = "" Then
Kriterier = "WHERE FileName LIKE '%" & SearchStrs(n) & "%'"
Else
Kriterier = Kriterier & " AND FileName LIKE '%" & SearchStrs(n) & "%'"
End If
Next
ElseIf Request("SearchType") = "Any" Then
SearchStrs = Split(Request("SearchStr"), " ")
For n = lBound(SearchStrs) To uBound(SearchStrs)
If Kriterier = "" Then
Kriterier = "WHERE FileName LIKE '%" & SearchStrs(n) & "%'"
Else
Kriterier = Kriterier & " OR FileName LIKE '%" & SearchStrs(n) & "%'"
End If
Next
Else
Kriterier = "WHERE FileName LIKE '%" & Request("SearchStr") & "%'"
End If
SQL = SQL = "SELECT * FROM Files " & Kriterier & " ORDER BY FileName"
I variablen SQL er nu gemt din SQL statement, du kan give videre til dit
ADODB.Connection object.
Hilsen
M@ds
mads@iname.com