Dropdown søgning

http://natureeyes.dk/fotoarkiv.asp

Jeg skal søge i resultater i min db ud fra en dropdown der skal indsnævre søgningen.

Fx hvis jeg søger på fisk i søgefeltet og vælger dropdownværdieen sommerfugl - skal søgningen helst være tom.

Som det er nu - søger den hele databasen og den tager ikke hensyn til dropdown.

Koden kommer her:

<%
strquery = Trim(request.form("sogefelt")) '*** er input fra søgefeltet
strquery = Replace(strquery,"'","''")
strkat = request.form("sog_kat") '*** er valg af dropdown


'SQL = "select * from diasliste where kategori_dansk or underkat_dansk = '"& strkat & "'"
'Set rs = objConn.Execute(SQL)

if strquery <> "" then
    strresult ="select id, thumbnail, dias, bestillingsnr, fotograf, beskrivelse, dansk_navn, videnskabeligt_navn, geografisk_lokalitet, land, teknisk_info from diasliste where "
    strresult = strresult&" ( bestillingsnr LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( fotograf LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( billedformat LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( pictureformat LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( beskrivelse LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( description LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( emneord LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( captions LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( dansk_navn LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( roedliste_status LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( videnskabeligt_navn LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( engelsk_navn LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( familie_latin LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( familie_dansk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( familie_engelsk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( orden_latin LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( orden_dansk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( orden_engelsk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( geografisk_lokalitet LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( naturtype LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( naturetype LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( amt LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( land LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( country LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( aarstid LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( season LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( kategori_dansk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( kategori_engelsk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( underkat_dansk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( underkat_engelsk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( kommentar_dansk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( kommentar_engelsk LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( teknisk_info LIKE '%" & strquery & "%')"
    strresult = strresult&" or ( teknisk_info_eng LIKE '%" & strquery & "%')"
    strresult = strresult&" and (underkat_dansk like '%" & strkat & "%')"
    strresult = strresult&" and (kategori_dansk like '%" & strkat & "%')"
   
    set objres = objconn.execute(strresult)
    If Not (objres.BOF Or objres.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<b>Søgeresultat</b><br><br>"
    Do While Not objres.EOF
    Response.Write "<a href=""#"" onclick=""java script:window.open('seresul.asp?Id=" & objReS("ID") & "','popup','height=150,width=270,menubar=no,scrollbars=no,toolbar=no,status=no,location=no');return false;""><img border='0' src='..\_thumb\" & objres("thumbnail") & "'><br><br>"

    objres.MoveNext
    Loop
    Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<b>Intet resultat</b>"
    End If
    objConn.Close
    end if
    Set objConn = Nothing
%>