Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<HTML>
<HEAD>
<SCRIPT LANGUAGE=VBScript>
Option Explicit
Function StrIIf(blnCond, strTrue, strFalse)
If blnCond Then
StrIIf = strTrue
Else
StrIIf = strFalse
End If
End Function
Sub cmdShow_onClick()
Dim strResults
Dim i
For i = 0 To 2
strResults = strResults & _
"<P>Option " & CStr(i + 1) & ": " & _
StrIIF(document.all.chkTest(i).checked, _
"Checked!", "Unchecked.") & "</P>"
Next
document.all.celResults.innerHTML = strResults
End Sub
</SCRIPT>
</HEAD>
<BODY>
<TABLE>
<TR>
<TD width="150">
<P><INPUT id=chkTest type=checkbox name=chkTest>Option 1</P>
<P><INPUT id=chkTest type=checkbox name=chkTest>Option 2</P>
<P><INPUT id=chkTest type=checkbox name=chkTest>Option 3</P>
<P><INPUT id=cmdShow type=button value="Show Me" name=cmdShow></P>
</TD>
<TD id=celResults width="150" valign=top>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>