metti nell'head questa funzioncina
codice:
function AbilitaSubmit(){
ff = document.Informazioni
ff.scelta.disabled = (ff.anno.options[ff.anno.selectedIndex].value==0)||(ff.mese.options[ff.mese.selectedIndex].value==0)
}
richiamala all'onload della pagina
codice:
<body onload="AbilitaSubmit();">
e all'onchange della combo dei mesi
codice:
<%
Set RecSet = Server.CreateObject("Adodb.Recordset")
%>
<p align="center"><font size="4">Libro Interattivo</font></p>
<p align="center"><font size="4">[img]att.gif[/img]</font></p>
<form Name="Informazioni" method="post" action="libro.asp">
<input type="hidden" Name="Azione" Value="Ricerca">
<div align="center">
<center>
<table Width="500">
<tr>
<td nowrap width="250">
<p align="center"><font Size="2">Anno: <select id="anno" name="anno" onchange="return Cliccato()">
<option Value="0">Selezionare un Anno</option>
<%
RecSet.Open "Select anno From cronologia Group By anno Order by anno", Db,0,1
While not RecSet.EOF%>
<option Value="<%=RecSet("anno")%>" <%If cdbl(RecSet("anno")) = cdbl(Request("anno")) Then Response.Write " Selected "%>><%=RecSet("anno")%></option>
<%
RecSet.MoveNext
Wend
RecSet.Close
%>
</select></font></p>
</td>
<td nowrap width="250">
<p align="center"><font Size="2">Mese: <select id="mese" name="mese" onchange="AbilitaSubmit()">
<option Value="0">Selezionare un Mese</option>
<%If Request("anno") = 0 Then%>
<option Value="0">Selezionare un Mese</option>
<%Else
RecSet.Open "Select * from cronologia Where anno = " & Request("anno") & " " , Db, 0,1
while not RecSet.EOF%>
<option Value="<%=RecSet("mese")%>"><%=RecSet("mese")%></option>
<%
RecSet.MoveNext
Wend
RecSet.Close
End If%>
</select></font><input type="submit" name="scelta" value="Vai!">
</p>
</td>
<%db.Close%>
</tr>
</table>
</center>
</div>
</body>