<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyRow as new HTMLTableRow
Dim MyCell as new HTMLTableCell
Dim i as Integer
Dim j as Integer
Table2.BGColor="Ivory"
Table2.Border=2
Table2.BorderColor="LawnGreen"
Table2.CellPadding=4
Table2.CellSpacing=3
Table2.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table2.Rows.Add(MyRow)
For i = 2 to 6
MyRow = New HTMLTableRow
For j = 1 to 2
MyCell = New HTMLTableCell
MyCell.InnerText = "Cell " & i & ", " & j
MyRow.Cells.Add(MyCell)
Next
Table2.Rows.Add(MyRow)
Next
End Sub
Sub Anchor2_Click(Source As Object, E as EventArgs)
Table1.Rows.Clear
Anchor2.Visible = False
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Table Sample Page</TITLE>
</HEAD>
<BODY>
<form runat="server">
<Font Face="Tahoma" Size="+1">
<BR>
<a
id="Anchor2"
OnServerClick="Anchor2_Click"
runat=server
>Click here to remove Table 1
</a>
<BR><BR>
<Table
id="Table1"
runat=server
>
<TR
id="Row11"
runat=server
>
<TD id="Cell111" runat=Server>Cell 1</TD>
<TD id="Cell112" runat=Server BGColor="Pink">Cell 2</TD>
<TD id="Cell113" runat=Server>Cell 3</TD>
</TR>
<TR
id="Row12"
runat=server
>
<TD id="Cell121" runat=Server>The second row</TD>
<TD id="Cell122" runat=Server Disabled=True>
Disabled Cell
</TD>
<TD id="Cell123" runat=Server>Cell 3</TD>
<TD id="Cell124" runat=Server Visible=False>
Should not see this cell
</TD>
</TR>
<TR
id="Row13"
runat=server
>
<TD id="Cell131" runat=Server ColSpan=3>
The text of a long cell that spans all three columns.
</TD>
</TR>
</Table>
<BR><BR><BR><BR><BR>
<Table
id="Table2"
runat=server
>
</Table>
</Font>
</Form>
</BODY>
</HTML>
|