<select> Dipendente Asp-database

[GFORGER666]

Ho una <select> Modello che dipende dalla <select> Marca.
Una volta selezionato la Marca, mi si deve riempire la <select> Modello con i rispettivi modelli della data marca.

<select name="marca">
		<option value="0">Seleziona</option>
<% 
dim qry1
qry1="SELECT id, marca FROM Marche"
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open qry1,con
Do Until rs.EOF 
%>
<option value="<%=rs("id")%>"><%=rs("marca")%></option>
<%
rs.MoveNext
Loop
rs.Close
%>
</select>

<select  name="modello">
		<option value="0">Seleziona</option>
<% 
dim appmarca
appmarca=Request.Form("marca")
dim qry2
qry2="SELECT id,modello from Modelli WHERE id_marche="&"'appmarca'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open qry2,con
Do Until rs.EOF 
%>
<option value="<% =rs("id")%>"><%=rs("modello")%></option>
<%
rs.MoveNext
Loop
rs.Close
%>
</select>

Non so proprio come fare ç_ç

[cavicchiandrea]

Prova cosi:
<select name="marca" onchange="if(this.options.selectedIndex!=0){locati on.href='?marca='+this.options[this.selectedIndex].value}else{location.href=location.href}">
e cambia la variabile:
appmarca=Request.QueryString("marca")

Ma questa soluzione ricaricherà la pagina cancellando eventuali campi del form se non vuoi che questo accada devi usare ajax, ma l'operazione si complica. Ci sono diverse post sul forum javascript fai una ricerca

[GFORGER666]

I modelli di tale marca ho deciso di stamparli in una table.
Lo sto facendo apparte ma riscontro quest'errore quando seleziono una marca :


Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto

/selectdipendente.asp, riga 43

<form  name="form1" action="selectdipendente.asp"
<label>Marca</label>

<select name="q" onchange="submit()">
<option value="0">Seleziona</option>
<% 
dim qry1
qry1="SELECT id, marca FROM Marche"
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open qry1,con
dim id
dim r
Do Until rs.EOF 
id=cint(rs("id"))
r=cint(request("q"))
if(id=r) then 
%>
<option  selected="selected" value="<%=rs("id")%>"><%=rs("marca")%></option>
<%else %>
<option value="<%=rs("id")%>"><%=rs("marca")%></option>
<%
end if
rs.MoveNext
Loop
rs.close
set rs = Nothing
%>
</select>
<% 
if(request("q")<>"") then
dim s1
s1="SELECT id, modello FROM Modelli WHERE id_marche='"&q&"'"
rs.Open s1, con       <-Riga 43---QUESTA. poi nn sò se la s1 sopra è giusta
%>
<table border="2">
<%
Do Until rs.EOF
%>
<tr>
<td><h6>ID</td><td><%=rs("id")%></h6></td>
</tr>
<tr>
<td><h6>MODELLO</td><td><%=rs("modello")%></h6></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<%
end if
set rs=nothing
%>
</form>

[robbe2000]

se vuoi caricare nella stessa pagina devi utilizzare ajax. Ma devi cercare come funziona nel forum corretto.


Per il tuo errore

Necessario oggetto

è un campo o un nome della tabella sbagliati.

1) Inanzi tutto controlla se la connessione sia corretta.
2) esiste la tabella Modelli?????? scritta proprio in questa maniera
3) esistono i campi id, modello,id_marche
4) id_marche se è un numero puoi scriverlo in questa maniera WHERE id_marche="&q

[cavicchiandrea]

<form  name="form1" action="selectdipendente.asp"
<label>Marca</label>

<select name="q" onchange="document.form1.submit()">
<option value="">Seleziona</option>
<% 
dim qry1, q
qry1="SELECT id, marca FROM Marche"
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open qry1,con
dim id
dim r
Do Until rs.EOF 
id=cint(rs("id"))
r=cint(request("q"))
if(id=r) then 
%>
<option  selected="selected" value="<%=rs("id")%>"><%=rs("marca")%></option>
<%else %>
<option value="<%=rs("id")%>"><%=rs("marca")%></option>
<%
end if
rs.MoveNext
Loop
rs.close
set rs = Nothing
%>
</select>
<%
q = request("q")
if(q <> "") then
dim s1, query
'se id_marche e una stringa altrimenti usa la select sottostante spostando il commento (') sopra
s1="SELECT id_marche, id, modello FROM Modelli WHERE id_marche='"&q&"'"
's1="SELECT id_marche, id, modello FROM Modelli WHERE id_marche="&q
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open s1, con
%>
<table border="2">
<%
Do Until rs.EOF
%>
<tr>
<td><h6>ID</td><td><%=rs("id")%></h6></td>
</tr>
<tr>
<td><h6>MODELLO</td><td><%=rs("modello")%></h6></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<%
end if
set rs=nothing
%>
</form>