Ho un form per l'inserimento di dati. Ho 2 campi: Provincia e comune che prendo da due tabelle diverse di un database.
Alla selezione di provincia vorrei che nel campo comune venissero elencati solo i comuni associati a quella provincia.
Questi 2 dati verranno poi scritti su un'altra tabella del database.
Naturalmente nella tabella comune c'è un IDProvincia.
La domanda di ciò che ti serve?
Cioè le stelte fatte nei due menù a tendina finiranno in un'altra tabella?
Quella è la cosa più semplice. Per vedere solo i comuni della provincia selezionata, fai una ricerca nel forum per "OnChange".
E' un mix tra ASP e javascript.
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Ho cercato e adesso provo a testarne qualcuno... vediamo cosa ne esce!! Grazie..
Ho editato questo codice e funziona... non riesco però a far rimanere nella prima select il nome della regione scelta.
<%
Dim rsRegione
Dim rsRegione_numRows
Set rsRegione = Server.CreateObject("ADODB.Recordset")
rsRegione.ActiveConnection = MM_Connessione_STRING
rsRegione.Source = "SELECT * FROM dbo.GE05_REGIONI ORDER BY GE05_Nome"
rsRegione.CursorType = 0
rsRegione.CursorLocation = 2
rsRegione.LockType = 1
rsRegione.Open()
rsRegione_numRows = 0
%>
<%
Dim rsProvincia__IDRegione
rsProvincia__IDRegione = "2"
If (Request.querystring("IDRegione") <> "") Then
rsProvincia__IDRegione = Request.querystring("IDRegione")
End If
%>
<%
IDRegione=request.QueryString("IDRegione")
pagina = request.servervariables("path_info")
%>
<%
Dim rsProvincia
Dim rsProvincia_numRows
Set rsProvincia = Server.CreateObject("ADODB.Recordset")
rsProvincia.ActiveConnection = MM_Connessione_STRING
rsProvincia.Source = "SELECT * FROM dbo.GE06_PROVINCIE WHERE GE06_IDRegione_GE05=" + Replace(rsProvincia__IDRegione, "'", "''") + " "
rsProvincia.CursorType = 0
rsProvincia.CursorLocation = 2
rsProvincia.LockType = 1
rsProvincia.Open()
rsProvincia_numRows = 0
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=1;
}
//-->
</script>
</head>
<body>
<form name="form1" method="post" action="">
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<option value="">Seleziona</option>
<%
While (NOT rsRegione.EOF)
%>
<option value="<%=Pagina%>?IDRegione=<%=(rsRegione.Fields. Item("GE05_IDRegione").Value)%>"><%=(rsRegione.Fie lds.Item("GE05_Nome").Value)%></option>
<%
rsRegione.MoveNext()
Wend
If (rsRegione.CursorType > 0) Then
rsRegione.MoveFirst
Else
rsRegione.Requery
End If
%>
</select>
</p>
<select name="Provincia" onChange="MM_jumpMenu('parent',this,0)">
<option selected value="">Seleziona</option>
<%
While (NOT rsProvincia.EOF)
%>
<option value="regione2.asp?IDRegione=<%=request.QueryStri ng("IDRegione")%>&IDProvincia=<%=(rsProvincia.Fiel ds.Item("GE06_IDProvincia").Value)%>"><%=(rsProvin cia.Fields.Item("GE06_Nome").Value)%></option>
<%
rsProvincia.MoveNext()
Wend
If (rsProvincia.CursorType > 0) Then
rsProvincia.MoveFirst
Else
rsProvincia.Requery
End If
%>
</select>
</p>
</form>
</body>
</html>
<%
rsRegione.Close()
Set rsRegione = Nothing
%>
<%
rsProvincia.Close()
Set rsProvincia = Nothing
%>
Perché non glielo dici:
Robycodice:<option value="<%=Pagina%>?IDRegione=<%=(rsRegione.Fields.Item("GE05_IDRegione").Value)%>" <%if CStr(IDRegione) = Cstr(rsRegione.Fields.Item("GE05_IDRegione").Value) then%>selected<%end if%>><%=(rsRegione.Fields.Item("GE05_Nome").Value)%></option>
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Graaaazie!!! Funonzia...
Permessi di invio
Rispondi quotando