sorter erfter flere kriterier

I dit tilfælde vil jeg foreslå at du laver en mængde variabler (eller et array), hvor du giver dem værdi hvis og kun hvis svaret er ja. F.eks:

if Request("husdyrtilladt") = "Ja" then
husdyrtilladt = "husdyrtilladt = True"
end if

etc.

derefter kan du så integrere dem i din SQL á la:

SELECT noget FROM tabel WHERE " & husdyrtilladt ", " & tv etc.

SQL-linien skal være lidt mere avanceret, da den skal tage højde for antallet af kommaer, en evt. fjernelse af WHERE hvis der ingen kriterier er etc. Det er imidlertid princippet.

Rettelse:

SELECT noget FROM tabel WHERE " & husdyrtilladt & ", " & tv etc.

og som sagt skal den også tweakes yderligere, afhængig af din databaseopbygning m.v.

jeg får denne fejl når jeg gør som du beskriver:
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket ", , , , , , , ,".

/feriefun/soeg.asp, linje 66

jeg har lavet det sådan her :
<%
if Request("pool") = "ja" then
pool = "pool = True"
end if
%>
<%
if Request("sauna") = "ja" then
sauna = "sauna = True"
end if
%>
<%
if Request("spabad") = "ja" then
spabad = "spabad = True"
end if
%>
<%
if Request("solarie") = "ja" then
solarie = "solarie = True"
end if
%>
<%
if Request("opvaskemaskine") = "ja" then
opvaskemaskine = "opvaskemaskine = True"
end if
%>
<%
if Request("tv") = "ja" then
tv = "tv = True"
end if
%>
<%
if Request("parabol") = "ja" then
parabol = "parabol = True"
end if
%>
<%
if Request("husdyr") = "ja" then
husdyr = "husdyr = True"
end if
%>
<%
if Request("brandeovn") = "ja" then
brandeovn = "brandeovn = True"
end if
%>

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("huse.mdb")
Conn.Open DSN

' SQL forespørgsel

strSQL = "Select * from sommerhuse WHERE " & pool & ", " & sauna & ", " & spabad & ", " & solarie & ", " & opvaskemaskine & ", " & tv & ", " & parabol & ", " & husdyr & ", " & brandeovn
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<p align="center"><font size="6">Søgeresultat</p>
<%
' Gennemløb Recordset (rs) med en løkke
Do
%>

Jep. Sagen er som førnævnt, at der kommer for mange kommaer ud af det. Jeg prøver at omskrive din kode til noget der virker:

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("huse.mdb")
Conn.Open DSN


' MINE RETTELSER


dim cnt(), chk(), vr

cnt(0) = "pool"
cnt(1) = "sauna"
cnt(2) = "spabad"
cnt(3) = "solarie"
cnt(4) = "opvaskemaskine"
cnt(5) = "tv"
cnt(6) = "parabol"
cnt(7) = "husdyr"
cnt(8) = "brandeovn"

vr = 0

for i = 0 to 8
  if Request( cnt(i) ) = "ja" then
    chk(vr) = cnt(i) & " = True"
    vr = vr + 1
  end if
next

cnt2 = Ubound( chk )

strSQL = "SELECT * FROM sommerhuse"
if cnt2 > 1 then
  strSQL = strSQL & " WHERE "
  for j = 0 to ( cnt2 - 1 )
    strSQL = strSQL & chk(j) & " AND "   
  next
  strSQL = strSQL & chk(cnt2)
end if

' SLUT PÅ MINE RETTELSER


' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<p align="center"><font size="6">Søgeresultat</p>
<%
' Gennemløb Recordset (rs) med en løkke
Do
%>


Jeg ved godt det ser meget kompliceret ud, og der kan være fejl, da jeg ikke har testet det endnu, men har skrevet det direkte fra hovedet. Desuden er jeg ikke så skrap med arrays i ASP. Tjek det og fortæl mig om det virker.

Det skal nok bare være mig det ikke lige kan "hitte ud af det"
Men jeg kan altså ikke få det til at virke :-(
Jeg har meget optimistisk lagt 3 filer ud i en zip fil (29 kb) = soeg.htm + soeg.asp + huse.mdb
de ligger her :
http://www.fedtmule.dk/feriefun/feriefun.zip

Jeg håbede så at jeg kunne lokke dig til at kikke og se om du kan finde ud af hvad jeg gør galt.
Hvis du kan finde fejlen og få det til at virke, må vi lige finde ud af en "findeløn" :-)
Min mail adresse er : kristian@kbonline.dk

Hvad med kun at tilføje de relevante kriterier til SQL strengen?

Altså:

strSQL = "Select * from sommerhuse WHERE "

if Request("opvaskemaskine") = "ja" then
  strSQL = strSQL & "opvaskemaskine = True AND "
end if

... og så videre, for til sidst at sige

strSQL = strSQL & "1 = 1"

- så har du til sidst en ganske valid sql sætning!!!

Jeg har lavet nogle rettelser i din htm- og asp-fil. Der er stadig noget du skal tage højde for, såsom forskellen mellem indendørs og udendørs pool, men nu virker den i hvert fald.

http://www.avlund.dk/t/feriefun.zip

Jeg har lavet en udskrift ( Response.Write strSQL ) af sætningen midt i filen, så du kan se hvad der foregår. Den skal selvfølgelig fjernes inden du lægger det online.

Sig til hvis der stadig skulle være fejl. Jeg har afprøvet det og det ser ud til at fungere fint dog.

1000 tak for hjælpen

No problem, glad for at kunne hjælpe.

avlund - send mig lige en mail med din adresse igen

Min maskine "døde" og skulle formateres, og ALT gik tabt :-(

send mig lige en mail med din adresse igen - tak (var nød til at formatere min HD)