Ciao,
di seguito eccoti il codice che volevi. Devi adattare i nomi delle tabelle, il nome della pagina (si chiama prova.asp e c'è un redirect alla line 97 alla stessa pagina che devi correggere col nome della tua pagina). Se hai problemi fammi sapere.
Ciao
Umb
******************************************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/MiaConnessione.asp" -->
<%
Dim rsRegioni
Dim rsRegioni_cmd
Dim rsRegioni_numRows
Set rsRegioni_cmd = Server.CreateObject ("ADODB.Command")
rsRegioni_cmd.ActiveConnection = MM_MiaConnessione_STRING
rsRegioni_cmd.CommandText = "SELECT IDRegione, Regione FROM dbo.Regioni ORDER BY Regione"
rsRegioni_cmd.Prepared = true
Set rsRegioni = rsRegioni_cmd.Execute
rsRegioni_numRows = 0
%>
<%
Dim rsProvince__Param1
rsProvince__Param1 = "-1"
If (Request.QueryString("Regione") <> "") Then
rsProvince__Param1 = Request.QueryString("Regione")
End If
%>
<%
Dim rsProvince
Dim rsProvince_cmd
Dim rsProvince_numRows
Set rsProvince_cmd = Server.CreateObject ("ADODB.Command")
rsProvince_cmd.ActiveConnection = MM_MiaConnessione_STRING
rsProvince_cmd.CommandText = "SELECT IDProvincia, Provincia FROM dbo.Province WHERE IDRegione = ? ORDER BY Provincia"
rsProvince_cmd.Prepared = true
rsProvince_cmd.Parameters.Append rsProvince_cmd.CreateParameter("param1", 5, 1, -1, rsProvince__Param1) ' adDouble
Set rsProvince = rsProvince_cmd.Execute
rsProvince_numRows = 0
%>
<%
Dim rsClienti__Param1
rsClienti__Param1 = "-1"
If (Request.Form("Regione") <> "") Then
rsClienti__Param1 = Request.Form("Regione")
End If
%>
<%
Dim rsClienti__Param2
rsClienti__Param2 = "-1"
If (Request.Form("Provincia") <> "") Then
rsClienti__Param2 = Request.Form("Provincia")
End If
%>
<%
Dim rsClienti
Dim rsClienti_cmd
Dim rsClienti_numRows
Set rsClienti_cmd = Server.CreateObject ("ADODB.Command")
rsClienti_cmd.ActiveConnection = MM_MiaConnessione_STRING
rsClienti_cmd.CommandText = "SELECT ID, Nome, Cognome FROM dbo.Clienti WHERE IDRegione = ?"
rsClienti_cmd.Prepared = true
rsClienti_cmd.Parameters.Append rsClienti_cmd.CreateParameter("param1", 5, 1, -1, rsClienti__Param1) ' adDouble
If CStr(Request.Form("Provincia")) <> "-1" then
rsClienti_cmd.CommandText = rsClienti_cmd.CommandText + " AND IDProvincia = ?"
rsClienti_cmd.Parameters.Append rsClienti_cmd.CreateParameter("param2", 5, 1, -1, rsClienti__Param2) ' adDouble
End If
Set rsClienti = rsClienti_cmd.Execute
rsClienti_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsClienti_numRows = rsClienti_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<div align="center">
<label>Regione:
<select name="Regione" id="Regione" onChange="MM_goToURL('parent','Prova.asp?Regione=' + this.options[this.selectedIndex].value + '');return document.MM_returnValue">
<option value="-1" <%If (Not isNull((Request.QueryString("Regione")))) Then If ("-1" = CStr((Request.QueryString("Regione")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>(scegli)</option>
<%
While (NOT rsRegioni.EOF)
%><option value="<%=(rsRegioni.Fields.Item("IDRegione").Value)%>" <%If (Not isNull((Request.QueryString("Regione")))) Then If (CStr(rsRegioni.Fields.Item("IDRegione").Value) = CStr((Request.QueryString("Regione")))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(rsRegioni.Fields.Item("Regione").Value)%></option>
<%
rsRegioni.MoveNext()
Wend
If (rsRegioni.CursorType > 0) Then
rsRegioni.MoveFirst
Else
rsRegioni.Requery
End If
%>
</select>
</label>
<label>Provincia:
<select name="Provincia" id="Provincia">
<option value="-1" <%If (Not isNull((Request.Form("Provincia")))) Then If ("-1" = CStr((Request.Form("Provincia")))) Then Response.Write("selected=""selected""") : Response.Write("")%>>(tutte)</option>
<%
While (NOT rsProvince.EOF)
%><option value="<%=(rsProvince.Fields.Item("IDProvincia").Value)%>" <%If (Not isNull((Request.Form("Provincia")))) Then If (CStr(rsProvince.Fields.Item("IDProvincia").Value) = CStr((Request.Form("Provincia")))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(rsProvince.Fields.Item("Provincia").Value)%></option>
<%
rsProvince.MoveNext()
Wend
If (rsProvince.CursorType > 0) Then
rsProvince.MoveFirst
Else
rsProvince.Requery
End If
%>
</select>
</label>
<label>
<input type="submit" name="Submit" value="Invia" />
</label>
</div>
</form>
<% If Not rsClienti.EOF Or Not rsClienti.BOF Then %>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<th>ID</th>
<th>Nome</th>
<th>Cognome</th>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsClienti.EOF))
%>
<tr>
<td><%=(rsClienti.Fields.Item("ID").Value)%></td>
<td><%=(rsClienti.Fields.Item("Nome").Value)%></td>
<td><%=(rsClienti.Fields.Item("Cognome").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsClienti.MoveNext()
Wend
%>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<% End If ' end Not rsClienti.EOF Or NOT rsClienti.BOF %>
<p> </p>
</body>
</html>
<%
rsRegioni.Close()
Set rsRegioni = Nothing
%>
<%
rsProvince.Close()
Set rsProvince = Nothing
%>
<%
rsClienti.Close()
Set rsClienti = Nothing
%>
******************************************************
