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
%>