Søgefunktion med ja/nej felter og selectboks

Øhh, i input siden (hvor ja/nej osv. tingene er) laver du naturligvis en form. I submitsearch.asp eller hvad du vil kalde den skriver du:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

strSQL = "Select * From tabelnavn Where "
If Request("TekstFelt1") <> "" Then strSQL = strSQL & "TekstFelt1 = '" & Request("TekstFelt1") & "'"
If Request("TalFelt1") <> "" Then strSQL = strSQL & "TalFelt1 = " & Request("TalFelt1")

osv.

// Mathias

Set rs = Conn.Execute(strSQL)

Ups, glemte lige %> til sidst ;)

Og noget andet, her er den færdige kode:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

strSQL = "Select * From tabelnavn Where "
If Request("TekstFelt1") <> "" Then strSQL = strSQL & "TekstFelt1 = '" & Request("TekstFelt1") & "'"
If Request("TalFelt1") <> "" Then strSQL = strSQL & "TalFelt1 = " & Request("TalFelt1")

Set rs = Conn.Execute(strSQL)

Do Until rs.EOF
Response.Write Et eller andet
Og noget andet
Loop

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

Mangler der ikke noget med AND eller sådant noget i sætningen?

så man kan søge efter flere ting på én gang

Jo selvfølgelig...
Du erstatter bare

strSQL = "Select * From tabelnavn Where "
If Request("TekstFelt1") <> "" Then strSQL = strSQL & "TekstFelt1 = '" & Request("TekstFelt1") & "'"
If Request("TalFelt1") <> "" Then strSQL = strSQL & "TalFelt1 = " & Request("TalFelt1")

med

strSQL = "Select * From tabelnavn Where "
If Request("TekstFelt1") <> "" Then
  If Not Right(strSQL, 6) = "Where " Then
    strSQL = strSQL "And "
  End If
  strSQL = strSQL & "TekstFelt1 = '" & Request("TekstFelt1") & "'"
End If
If Request("TalFelt1") <> "" Then
  If Not Right(strSQL, 6) = "Where " Then
    strSQL = strSQL "And "
  End If
  strSQL = strSQL & "TalFelt1 = '" & Request("TalFelt1") & "'"
End If

det virker ikke helt med den nye kode du har skrevet

Undskyld jeg ikke har svaret, det er fordi jeg ikke har brugt min Hotmail i et stykke tid *retter hurtigt sin email* men her er koden, den burde virke:

strSQL = "Select * From tabelnavn Where "
If Request("TekstFelt1") <> "" Then
  If Not Right(strSQL, 6) = "Where " Then
    strSQL = strSQL " And "
  End If
  strSQL = strSQL & "TekstFelt1 = '" & Request("TekstFelt1") & "'"
End If
If Request("TalFelt1") <> "" Then
  If Not Right(strSQL, 6) = "Where " Then
    strSQL = strSQL " And "
  End If
  strSQL = strSQL & "TalFelt1 = '" & Request("TalFelt1") & "'"
End If

Hvis du husker at skrive fejlen, deskriptionen og linien, så er det lettere at hjælpe dig ;-)