afkrydsningsbox

Jeg har et script som lister varegrupper op som links.
Dette ser sådan ud:
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"Computervarer.mdb\")

strSQL = \"SELECT * FROM Varegrupper\"
set rs = myconn.execute(strSQL)

Do
    Id = rs(\"Id\")
    Varegruppe = rs(\"Varegruppe\")
    Varegruppebeskrivelse = rs(\"Varegruppebeskrivelse\")

    Gruppelink = \"<a href=Computervarer.asp?Id=\" & rs(\"Id\") & \">\" & Varegruppe & \"</a>\"

    Response.Write \"<li>\" & Gruppelink & \"</li>\"

rs.MoveNext
Loop While Not rs.EOF
myconn.Close
Set myconn = Nothing
%>

Den næste side, som viser varerne i hver varegruppe, ser således ud:
<%
  Set myConn = Server.CreateObject(\"ADODB.Connection\")
  myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"Computervarer.mdb\")

  strSQL = \"SELECT * FROM Computervarer WHERE Varegruppe_id=\" & Request.Querystring(\"Id\")
set rs = myConn.execute(strSQL)

%>

Normalt ville den jo liste alle varerne op med den bestemte varegruppe, men jeg kunne godt tænke mig at det også var afhængigt af en tabel i min access db som er defineret som et ja/nej felt (afkrydsningsfelt til flueben). Tabellen kunne så hedde \"vis på web\"

Hvordan gøres dette..??

/Mekaniker