<script language="javascript">
function listChecked()
{
var elements = document.forms[0].elements;
for (var i=0; i < elements.length; i++)
{
if (elements[i].type == "checkbox" && elements[i].checked)
alert(elements[i].name + " is checked");
}
}
</script>
Sub listChecked()
dim chk,i
set chk = document.forms(0).elements
For i=0 To chk.length-1
If chk(i).type="checkbox" Then
If chk(i).checked Then
msgbox chk(i).name
End If
End If
Next
End Sub