codice:
<%
Response.Expires = 0
dato = TRIM(Request.Form("group"))
'Response.Write dato &"
</P>"
function ckform(valore)
riga = Split(dato,",")
for i = 0 to ubound(riga)
valoreck = riga(i)
IF valore = valoreck then
ckform = "CHECKED"
else
ckform ="a"
end if
next
end function
%>
<form id="modulo" method="post" action="layer.asp">
<table>
<tr>
<td colspan="4"><input type="button" value="VISUALIZZA" onClick="dualButt()"></td>
</tR>
</table>
<table>
<tr><TD>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="checkbox" name="group" value="018" id="group" <%=ckform("018")%>></font></TD><TD>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Gruppo n.1</font></TD><TD>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="checkbox" name="group" value="010" <%=ckform("010")%>></font></TD><TD>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Gruppo n. 4</font></TD></tr>
<tr><TD>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="checkbox" name="group" value="014" <%=ckform("014")%>></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></TD><TD><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Gruppo
n.2</font></TD><TD>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="checkbox" name="group" value="013" <%=ckform("013")%>></font></TD><TD>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Gruppo n. 5</font></TD></tr>
<tr><TD>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="checkbox" name="group" value="012" <%=ckform("012")%>></font></TD><TD>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Gruppo n.3</font></TD><TD>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="checkbox" name="group" value="011" <%=ckform("011")%>></font></TD><TD>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Gruppo n. 6</font></TD></tr>
<td colspan=4>
<input type=submit name=INVIA value="INVIA DATI"> </td>
</table></div>
</form>