søgeresultat er ikke rigtigt ?

når man laver en søg på min side www.feriefun.dk kommer der er underligt resultat.
Bl.a. hvis man trykker ja til pool kommer alle huse frem, og ikke bare dem med pool ?

Hvad er der galt :

<%
' 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

dim cnt(11), chk(), vr
Redim chk(11)

cnt(0) = "ipool"
cnt(1) = "sauna"
cnt(2) = "spabad"
cnt(3) = "solarie"
cnt(4) = "opvaskemaskine"
cnt(5) = "tv"
cnt(6) = "parabol"
cnt(7) = "husdyr"
cnt(8) = "brandeovn"
cnt(9) = "husdyr"
cnt(10) = "varelser"
cnt(11) = "omrade"

vr = 0

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

Redim preserve chk(vr)

cnt2 = Ubound( chk )


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

if Request("omrade") <> "0" then
  if cnt2 = 0 then
    strSQL = strSQL & " WHERE omrade = " & "'" & Request("omrade")&"'"
  else
    strSQL = strSQL & " AND omrade = " & "'" & Request("omrade")&"'"
  end if
end if

if Request("varelser") <> "0" then
  if cnt2 = 0 and Request("omrade") = "0" then
    strSQL = strSQL & " WHERE varelser = " & "'" & Request("varelser")&"'"

  else
    strSQL = strSQL & " AND varelser = " & "'" & Request("varelser")&"'"

  end if
end if


' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>