søge funktion

Her er hvordan du gør:

http://activedeveloper.dk/aspdigital/kapitel2/search.asp

//>Rune

Og her har du et eksemple på en der allerede er lavet:

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=176

//>Rune

Eksempel med access database:
Det er især SQL sætningerne du skal bide mærke i

Set Conn = Server.CreateObject("ADODB.Connection")
    sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.mappath("../dinDatabase.mdb")
    Conn.Open(sConnection)

'Intet skrives ind
    if trim(fornavn) = "" and trim(efternavn) = "" and trim(nummer) = "" then
    Response.redirect "klubSoegeVindue.asp"
    end if
   
    'Kun fornavn skrives ind
    if fornavn <> "" and efternavn = "" and nummer = "" then
    strSQL = "Select * from Klub where (Navn like '" & fornavn & "%')"
    Set rs = Conn.Execute(strSQL)
    end if
   
    'Kun efternavn skrives ind
    if fornavn = "" and efternavn <> "" and nummer = "" then
    strSQL = "Select * from Klub where (Personnavn like '" & efternavn & "%')"
    Set rs = Conn.Execute(strSQL)
    end if
   
    'Kun deltagernummer skrives ind
    if fornavn = "" and efternavn = "" and nummer <> "" then
    strSQL = "Select * from Klub where Privtlfnr = '" & nummer & "'"
    Set rs = Conn.Execute(strSQL)
    end if
   
    'Kun fornavn og efternavn
    if fornavn <> "" and efternavn <> "" and nummer = "" then
    strSQL = "Select * from Klub where (Personnavn like '" & efternavn & "%') and (Navn like '" & fornavn & "%')"
    Set rs = Conn.Execute(strSQL)
    end if
   
    'Kun fornavn og nummer
    if fornavn <> "" and efternavn = "" and nummer <> "" then
    strSQL = "Select * from Klub where (Navn like '" & fornavn & "%') and Privtlfnr = '" & nummer & "'"
    Set rs = Conn.Execute(strSQL)
    end if
   
    'Kun Efternavn og nummer
    if fornavn = "" and efternavn <> "" and nummer <> "" then
    strSQL = "Select * from Klub where (Personnavn like '" & efternavn & "%') and Privtlfnr = '" & nummer & "'"
    Set rs = Conn.Execute(strSQL)
    end if
   
    'alle skrives ind
    if fornavn <> "" and efternavn <> "" and nummer <> "" then
    strSQL = "Select * from Klub where (Personnavn like '" & efternavn & "%') and Privtlfnr = '" & nummer &"' and (Navn like '" & fornavn & "%')"
    Set rs = Conn.Execute(strSQL)
   
    end if

ALLAN

>> medions

Kanon nem kode, men på søge siden har jeg brug for flere søge muligheder kan du hjælpe.

Jeg vil have et dato felt, et navn felt og selfølgelig et fritekstfelt.

kan du hjælpe med at tilrette min kode.

Tjoo det kan jeg da godt...

Det er jo ik' så svært enda!

Det er jo bare at sige:

strSQL = "SELECT * FROM tblTabelnavn WHERE (kolonne LIKE '" & Request.Form("search_field") & "%') AND TheDate = #" & Request.Form("Date_Field") & "#"

//>Rune

Hej Rune
er det den her linje jeg skal skifte ud:
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Navn, Adresse, Bynavn, Beskrivelse, Dato FROM Kunder WHERE"

med:
strSQL = "SELECT * FROM tblTabelnavn WHERE (kolonne LIKE '" & Request.Form("search_field") & "%') AND TheDate = #" & Request.Form("Date_Field") & "#"


Kan du ikke forklare den sql streng
og skal jeg ikke spørge efter de ny felter

Jeg giver dig point rune og opretter et nyt spørgsmål
Håber du vil hjælpe

Thx 4 Poinz

//>Rune