OeN

è Un mess rivolto a te quell'altro problema l'ho risolto ora ho questo quesito

mi puoi aiutare ?




Salve ho 3 select ke attualmente nn sono combinate eccole qua



<select size="1" name="c" style="font-size: 8 pt; font-family: Tahoma; background-color: #FFFFFF; color: #0066CC; border-style: solid; border-width: 1">

<option value="">MARCA</option>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("public/database.mdb")
Con.Open Path
Set rs = Con.Execute("select c from tabella1 where accesso = 'SI' and tipologia like '%PROMOZIONE' group by c order by c Asc")
while rs.eof = false
%>

<option value="<%=Rs(0)%>"><%=Rs(0)%></option>
<%
rs.MoveNext()
wend
rs.close
con.close
%>

</select>




<select size="1" name="a" style="font-size: 8 pt; font-family: Tahoma; background-color: #FFFFFF; color: #0066CC; border-style: solid; border-width: 1">

<option value="">MODELLO</option>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("public/database.mdb")
Con.Open Path
Set rs = Con.Execute("select a from tabella1 where accesso = 'SI' and tipologia like '%PROMOZIONE' group by a order by a Asc")
while rs.eof = false
%>

<option value="<%=Rs(0)%>"><%=Rs(0)%></option>
<%
rs.MoveNext()
wend
rs.close
con.close
%>



</select>

<select size="1" name="b" style="font-size: 8 pt; font-family: Tahoma; background-color: #FFFFFF; color: #0066CC; border-style: solid; border-width: 1">

<option value="">ANNO</option>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("public/database.mdb")
Con.Open Path
Set rs = Con.Execute("select b from tabella1 where accesso = 'SI' and tipologia like '%PROMOZIONE' group by b order by b Asc")
while rs.eof = false
%>

<option value="<%=Rs(0)%>"><%=Rs(0)%></option>
<%
rs.MoveNext()
wend
rs.close
con.close
%>



</select>



Bisogna far diventare tutto combinato in base ai valori in questi 3 campi di questo db

ad esempio all interno questi valori

marca TOSHIBA ACER ASUS
modello i vari sottomodelli
anno

si puo cliccare TOSHIBA e sia modello e anno estrapolano solo i valori corrispondenti al campo TOSHIBA


Fatemi sapere resto in attesa

intanto mi sono permesso di fare alcune prove e sono andato avanti cosi ma mi da errore



<%

dim c,a,b

c=request.querystring("c")
a=request.querystring("a")
b=request.querystring("b")


Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("public/database.mdb")
Con.Open Path

%>


<!--prima select -->
<%
sql="select * c from tabella1 where accesso = 'SI' and tipologia like 'NUOVO%' group by c order by c Asc"
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("public/database.mdb")
Con.Open Path
%>
<select name="c" onchange="window.location.href='nuovo1.asp?a='+this.options[this.selectedIndex].value;">
<%
while not rs.eof
%>
<option value="<%=Rs(0)%>"><%=Rs(0)%></option>

<%
rs.movenext
wend
%>




</td>
<td width="80">


<!--seconda select-->
<%
if len(trim(c))>0 then 'ho scelto una marca
sql="select a from tabella1 where accesso = 'SI' and tipologia like 'NUOVO%' and c = '%" & Trim(Request.querystring("c")) & "%' group by a order by a Asc"
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("public/database.mdb")
Con.Open Path
%>
<select name="a" onchange="window.location.href='nuovo1.asp?c=<%= c %>&a='+this.options[this.selectedIndex].value;">
<%
while not rs.eof
%>
<option value="<%=Rs(0)%>"><%=Rs(0)%></option>

<%
rs.movenext
wend
%>
</select>
<%
end if
%>



</td>
<td width="80">


<!--terza select-->
<%
if len(trim(a))>0 then 'ho scelto una marca
sql="select b from tabella1 where accesso = 'SI' and tipologia like 'NUOVO%' and a = '%" & Trim(Request.querystring("a")) & "%' group by a order by a Asc"
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("public/database.mdb")
Con.Open Path
%>
<select name="b" onchange="window.location.href='nuovo1.asp?a=<%= a %>&b='+this.options[this.selectedIndex].value;">
<%
while not rs.eof
%>
<option value="<%=Rs(0)%>"><%=Rs(0)%></option>

<%
rs.movenext
wend
%>
</select>
<%
end if
%>



questo l errore

Object required: ''


pensi ke abbia fatto bene a fare questa struttura di query ke ne pensi

come posso migliorarlo x farlo definitivamente funzionare aspetto tue notizie


ciao grazie

scusa ma in questa settimana ho un macello di lavoro appena ho un po di tempo guardo

ciao ciao

Novità in m Merito ?