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?
Rispondi quotando
