Questa è la funzione javascript


<script type="text/javascript">

function Cliccato()
{
if(document.getElementById('Check').checked){
if(document.getElementById('prodfin').disabled=tru e)
{
document.getElementById('prodfin').disabled=false;
document.getElementById('semilavorato').disabled=t rue;
}
else
{
document.getElementById('prodfin').disabled=true;
document.getElementById('semilavorato').disabled=f alse;
}
}
else
{
if(document.getElementById('semilavorato').disable d=true)
{
document.getElementById('prodfin').disabled=true;
document.getElementById('semilavorato').disabled=f alse;
}
else
{
document.getElementById('prodfin').disabled=false;
document.getElementById('semilavorato').disabled=t rue;
}
}
}
</script>



a seguire i campi del form che ci interessano


...
<%
dim RSProdsem, RSProdfin
idtipo=rs(20)
Set cn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cn.Open Objconn
strsql = "SELECT semilavorato, codice FROM T_TipologiaProdotti where id=" & idtipo
rst.open strsql, cn, 3, 3
tipo=rst(0)
codice=rst(1)
rst.close
cn.Close
Set cn = Nothing
Set rst = Nothing

if tipo = 0 then

%>
Prodotto Finito:
<select size=1 style="font-family:tahoma; font-size:11px; margin-right:3px" name="prodfin">
<%
set RSProdfin = Server.CreateObject("ADODB.RECORDSET")
RSProdfin.ActiveConnection=Objconn
RSProdfin.Open("Select * from T_TipologiaProdotti where semilavorato=0")
Response.Write("<option selected>" & Codice & "</option>")
while not RSProdfin.EOF
if Codice <> (RSProdfin(2)) then
Response.Write "<option value=" & trim(RSProdfin(0)) & ">" & RSProdfin(2) & "</option>" & vbcrlf
end if
RSProdfin.movenext
wend
RSProdfin.close
set RSProdfin=nothing
%>
</select>
Scegli<INPUT type="checkbox" ID="Check" onclick="javascript:Cliccato();" >
Semilavorato:
<select disabled="disabled" size=1 style="font-family:tahoma; font-size:11px; margin-right:3px" name="semilavorato">
<%
set RSProdsem = Server.CreateObject("ADODB.RECORDSET")
RSProdsem.ActiveConnection=Objconn
RSProdsem.Open("Select * from T_TipologiaProdotti where semilavorato=1")
Response.Write("<option selected>Scegli</option>")
while not RSProdsem.EOF
Response.Write "<option value=" & trim(RSProdsem(0)) & ">" & RSProdsem(2) & "</option>" & vbcrlf
RSProdsem.movenext
wend
RSProdsem.close
set RSProdsem=nothing
%>
</select>
<%
else
%>
Prodotto Finito:
<select disabled="disabled" size=1 style="font-family:tahoma; font-size:11px; margin-right:3px" name="prodfin">
<%
set RSProdfin = Server.CreateObject("ADODB.RECORDSET")
RSProdfin.ActiveConnection=Objconn
RSProdfin.Open("Select * from T_TipologiaProdotti where semilavorato=0")
Response.Write("<option selected>Scegli</option>")
while not RSProdfin.EOF
Response.Write "<option value=" & trim(RSProdfin(0)) & ">" & RSProdfin(2) & "</option>" & vbcrlf
RSProdfin.movenext
wend
RSProdfin.close
set RSProdfin=nothing
%>
</select>
Scegli<INPUT type="checkbox" ID="Check" onclick="javascript:Cliccato();" >
Semilavorato:
<select size=1 style="font-family:tahoma; font-size:11px; margin-right:3px" name="semilavorato">
<%
set RSProdsem = Server.CreateObject("ADODB.RECORDSET")
RSProdsem.ActiveConnection=Objconn
RSProdsem.Open("Select * from T_TipologiaProdotti where semilavorato=1")
Response.Write("<option selected>" & Codice & "</option>")
while not RSProdsem.EOF
if Codice <> (RSProdsem(2)) then
Response.Write "<option value=" & trim(RSProdsem(0)) & ">" & RSProdsem(2) & "</option>" & vbcrlf
end if
RSProdsem.movenext
wend
RSProdsem.close
set RSProdsem=nothing
%>
</select>
<%
end if
%>

...