Form Checkboxes in VBScript


Choose the areas you are interested in
Information systems
Systems integration
System administration
Management

<BODY>
<SCRIPT LANGUAGE="VBSCRIPT">
<!--
	Sub Button1_onclick
		Dim Selections, Count
		
		Count = 0
		
		If Form1.elements(0).checked = True Then
			Selections = "Information systems"
			Count = Count + 1
		End If
		
		If Form1.elements(1).checked = True Then
			If Count <> 0 Then
				Selections = Selections & ", "
			End If
			Selections = Selections & "Systems integrations"
			Count = Count + 1
		End If
		
		If Form1.elements(2).checked = True Then
			If Count <> 0 Then
				Selections = Selections & ", "
			End If
			Selections = Selections & "System administration"
			Count = Count + 1
		End If
		
		If Form1.elements(3).checked = True Then
			If Count <> 0 Then
				Selections = Selections & ", "
			End If
			Selections = Selections & "Management"
			Count = Count + 1
		End If
		
		If Selections = "" Then
			alert "You did not select any of the choices."
		Else
			alert "You checked the following choice(s): " & Selections
		End If		
	End Sub	
-->
</SCRIPT>

<FORM NAME="Form1">
	<B>Choose the areas you are interested in</B>
	<BR><INPUT TYPE=CHECKBOX NAME="chkIS"> Information systems
	<BR><INPUT TYPE=CHECKBOX NAME="chkSE"> Systems integration
	<BR><INPUT TYPE=CHECKBOX NAME="chkSA"> System administration
	<BR><INPUT TYPE=CHECKBOX NAME="chkMgmt"> Management
	<BR><INPUT TYPE=BUTTON NAME="Button1" VALUE="Continue">
</FORM>