Filtrer dropdown menu .... med SQL sætning

Jeg har følgende kode og vil gerne kunne filtrerer list/menu\'erne hver for sig, under at skulle lave en database connection til hver....????

***
Filtreringen kunne ud som følger :
Produkter__MMColParam = \"Motherboard - Intel\"
Produkter.Source = \"SELECT *  FROM PC_Celeron  WHERE Kategori = \'\" + Replace(Produkter__MMColParam, \"\'\", \"\'\'\") + \"\'\"
***


KODE -----------------------------
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"../Connections/conProdukter.asp\" -->
<%
set Produkter = Server.CreateObject(\"ADODB.Recordset\")
Produkter.ActiveConnection = MM_conProdukter_STRING
Produkter.Source = \"SELECT * FROM PC_Celeron\"
Produkter.CursorType = 0
Produkter.CursorLocation = 2
Produkter.LockType = 3
Produkter.Open()
Produkter_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<form name=\"form1\" method=\"post\" action=\"\">
  <p>
    <select name=\"select\">
      <%
While (NOT Produkter.EOF)
%>
      <option value=\"<%=(Produkter.Fields.Item(\"Pris1\").Value)%>\" ><%=(Produkter.Fields.Item(\"VareNavn\").Value)%></option>
      <%
  Produkter.MoveNext()
Wend
If (Produkter.CursorType > 0) Then
  Produkter.MoveFirst
Else
  Produkter.Requery
End If
%>
    </select>
  </p>
  <p>
    <select name=\"select2\">
      <%
While (NOT Produkter.EOF)
%>
      <option value=\"<%=(Produkter.Fields.Item(\"Pris1\").Value)%>\" ><%=(Produkter.Fields.Item(\"VareNavn\").Value)%></option>
      <%
  Produkter.MoveNext()
Wend
If (Produkter.CursorType > 0) Then
  Produkter.MoveFirst
Else
  Produkter.Requery
End If
%>
    </select>
  </p>
  <p>
    <select name=\"select3\" title=\"<%=(Produkter.Fields.Item(\"VareNavn\").Value)%>\">
      <%
While (NOT Produkter.EOF)
%>
      <option value=\"<%=(Produkter.Fields.Item(\"Pris1\").Value)%>\" ><%=(Produkter.Fields.Item(\"VareNavn\").Value)%></option>
      <%
  Produkter.MoveNext()
Wend
If (Produkter.CursorType > 0) Then
  Produkter.MoveFirst
Else
  Produkter.Requery
End If
%>
    </select>
  </p>
</form>
</body>
</html>
<%
Produkter.Close()
%>
KODE -----------------------------

HJÆLP, Haster lidt da jeg er ved at lave en \"lille\" PC-konfigurator.....