ciao a tutti...
ho la necessità di riempire una seconda listbox dopo aver selezionato una voce in una prima..

ho questo codice
<font face="verdana, arial, helvetica"size="2">Prodotto:</font>
<form name="form1" method="get" action="distribuzione1.asp">
<select name="gg" id = "gg" onchange="submit()">
<%
Dim titolo,titolo1

Set objConn = Server.CreateObject("ADODB.Connection")
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\database\bcd.mdb")
objConn.Open cString,adOpenKeyset, adLockOptimistic
Set objRs = Server.CreateObject("ADODB.Recordset")




set objRs = objConn.Execute("SELECT DISTINCT macrocat from prodotti ")
objRs.movefirst
Do while NOT objRs.EOF

%>

<option value="<%=objRs(0)%>"><%=objRs(0)%></option>







<%objRs.Movenext
Loop

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</SELECT>

ke mi popola la prima listbox e quando seleziono mi spara alla seconda pagina "distribuzione1.asp" ke ha questo codice

<font face="verdana, arial, helvetica"size="2">Tipologia:</font><SELECT NAME="descrizione" >
<%
Dim gg


Set objConn = Server.CreateObject("ADODB.Connection")
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\database\bcd.mdb")
objConn.Open cString,adOpenKeyset, adLockOptimistic
Set objRs = Server.CreateObject("ADODB.Recordset")


gg = request.QueryString("gg")

set objRs = objConn.Execute("SELECT distinct sottocat from prodotti where macrocat = " & gg & " ")
objRs.movefirst
Do while NOT objRs.EOF

%>

<option><%=objRs(0)%></option>







<%objRs.Movenext
Loop

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</SELECT>


ma mi da questo errore
Microsoft JET Database Engine (0x80040E14)
Errore di sintassi (operatore mancante) nell'espressione della query 'macrocat = SCHEDE VIDEO'.
/bcd/distribuzione1.asp, line 157

ndò sbaglio?