Søge efter de ting som stemmer overens med det valgte

Jeg har et script hvor jeg godt kunne tænke mig at man får vist alle tingene som nu men at man så i toppen har mulighed at klikker på nogle forskellige checkbox felter og så klikke søg og så vises alle de vælgte ting.

Jeg vil gerne have flg.

- En menu (som den har på siden når man klikker opret spm og hvor man så vælger en Kat.) jeg indtaster nogle navne.
skal søge i feltet "FIRM" i min DB.

- En menu (igen) hvor man kan søge efter 1-2, 3-4 og 5-? knapper og dette har feltet "KNAP"

- så nogle checkbox kasser hvor man kan sætte flg til.
  Scroller Feltet "WHEEL"
  Optical Feltet "OPTICAL"
  Trådløs Feltet "TRÅDLØS"
  Seriel Feltet "SERIEL"
  Usb Feltet "USB"
  Alle felter er JA/NEJ i min db og standart værdien er NEJ fra start af.

- Et felt (som det hvor man kan skrive et P antal over 60) hvor man kan søge efter en MAX pris som søger i feltet "PRICE1".

- og et felt igen hvor man kan skrive en MIN. pris som også søger i feltet "PRICE1".

siden skal vise det vælgte MEN slette alle de valgte ting mm i søge toppen så den er klat til en ny søgning.


MIN side code er (Og den virker og viser alle ting og skal vise tinge i samme orden)

<%
' Databaseforbindelse - MUS OPSÆTNING.
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td class='black'>&nbsp;Mus</td>"
Response.Write "<td width='70' class='black'>Incl. Moms</td>"
Response.Write "</table>"
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"

    Dim tr_class13
    Sub changeColor13()
        If tr_class13 = "yellow" Then
            tr_class13 = "white"
        Else
            tr_class13 = "yellow"
        End If
    End Sub
   
    tr_class13 = "yellow"
   
    sql = "SELECT * FROM Mus ORDER BY FIRM, MODEL"
    Set rs13 = cn.Execute(sql)

    If rs13.EOF Then

Response.Write "<tr>"
Response.Write "<td width='100%' colspan='4' class='white' align='center'>Der findes ingen vare i denne Kategori.</td>"
Response.Write "</tr>"

    Else
    While Not rs13.EOF

Response.Write "<tr onclick=""java script:ShowHide('" & rs13("VNR") & "');"" style=""cursor: hand;"">"
Response.Write "<td width='14' valign='middle' align='center' class=" & tr_class13 & "><img src=""../../images/plus.gif"" border='0' id=""in-" & rs13("VNR") & """></td>"

if rs13("WHEEL")=True then
  we13="&nbsp;Med Scroller"
else
  we13=""
end if

if rs13("OPTICAL")=True then
  op13="&nbsp;Optical"
else
  op13=""
end if

Response.Write "<td colspan='2' align='left' class=" & tr_class13 & "><b>&nbsp;&nbsp;" & rs13("FIRM") & "&nbsp;" & rs13("MODEL") & op13 & we13 & "</b></td>"
Response.Write "<td width='70' valign='top' align='right' class=" & tr_class13 & "><b>" & rs13("PRICE1") & "&nbsp;kr</b></td>"
Response.Write "</tr>"
Response.Write "<tr class=" & tr_class13 & " style=""display: none;"" id=""" & rs13("VNR") & """>"
Response.Write "<td width='14' valign='top'></td>"

Dim strImage13
strImage13 = rs13("IMAGE")

If (strImage13) = "N/A" then 
  strImage13 = "nophotosmall.gif"
End if

Response.Write "<td valign='top' align='center' width='62'><img src=""images/"&strImage13&""" border='1' width='60' height='60'></td>"
Response.Write "<td width='100%' valign='top' align='left'><table border='0' cellspacing='3' cellpadding='3' width='100%'><tr>"

if rs13("TRÅDLØS")=True then
  tr13="JA"
else
  tr13="NEJ"
end if

if rs13("SERIEL")=True then
  se13="JA"
else
  se13="NEJ"
end if

if rs13("PS2")=True then
  ps13="&nbsp;PS/2"
else
  ps13=""
end if

if rs13("USB")=True then
  us13="&nbsp;/&nbsp;USB"
else
  us13=""
end if

Response.Write "<td valign='top'><b>Vare Nr.:</b>&nbsp;" & rs13("VNR") &"<br><b>Model:</b>&nbsp;" & rs13("MODEL") &"<br><b>Knapper:</b>&nbsp;" & rs13("KNAP") & "&nbsp;Stk.<br><b>Trådløs:</b>&nbsp;" & tr13 & "&nbsp;<br><b>Seriel:</b>&nbsp;" & se13 & "<br><b>Tilslutning:</b>" & ps13 & us13 & "<br><br>" & rs13("INFO") & "</td>"
Response.Write "</tr></table></td>"
Response.Write "<td valign='top' width='70'>&nbsp;</td>"
Response.Write "</tr>"

    changeColor13
    rs13.MoveNext
    Wend
    End If

    rs13.Close
    Set rs13 = Nothing   

Response.Write "<tr>"
Response.Write "<td colspan='4' class='bottom'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan='4' class='middle'></td>"
Response.Write "</tr>"
Response.Write "</table>"
%>

Nogle der kan hjælpe og få det bygget ind i mig eks !??
Hvis der ikke findes ting evter det valgte så skal den skrive det hvor der står "Der findes ingen vare i denne Kategori" skal den også kunen skrive "Søgningen gav intet resultat"