Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
<HTML>
<HEAD>
<Script language="vbScript">
Dim Flag
Flag = true
Sub button1_OnClick()
if Flag then TableRow.style.display = "none" else TableRow.style.display = "inline"
<!-- This if statement switches between hidden and visible for the DIV tag depending on the
state of the Flag variable.-->
if Flag then DivTag.style.Display = "None" Else DivTag.style.Display = "Block"
Flag = not Flag
End Sub
</Script>
</HEAD>
<BODY>
<TABLE>
<COL bgcolor="pink">
<TR id="TableRow">
<TD>This cell is hidden when you click the button.
<!-- The DIV tag style depends on the value of the Flag variable. The starting value is True
when the page first loads or is reloaded, this then will make the contents of the DIV
tag hidden until the button is clicked. -->
<DIV id="DivTag">
<SELECT id=select1 name=select1>
<OPTION>Option1</OPTION>
<OPTION>Option2</OPTION>
</SELECT>
</DIV>
</TD>
</TR>
</TABLE>
<INPUT type="button" value="Button" id=button1 name=button1>
</BODY>
</HTML>Keywords: KB828527, kbbug, kbnofix