| 1 | public class oldtable |
| 2 | Inherits System.Web.UI.Page |
| 3 | protected WithEvents Alliance1 as DPM.Alliance |
| 4 | protected WithEvents Alliance2 as DPM.Alliance |
| 5 | protected WithEvents Literal1 as System.Web.UI.WebControls.Literal |
| 6 | |
| 7 | private Sub Page_Load(ByVal sender as System.object, ByVal e as System.EventArgs) Handles MyBase.Load |
| 8 | 'create the table |
| 9 | Literal1.Text = "<Table Border=1 Width=50%><tr>" |
| 10 | 'create the title |
| 11 | Literal1.Text += "<td colspan=2 align=center bgcolor=silver>Server Created Table</td></tr>" |
| 12 | |
| 13 | 'loop and create some rows |
| 14 | Dim i as Integer |
| 15 | for i = 0 To 10 |
| 16 | Literal1.Text += "<tr bgcolor=" + (&H999999 + (i * 1024)).ToString + ">" |
| 17 | Literal1.Text += "<td>" + i.ToString + "</td>" |
| 18 | Literal1.Text += "<td> this is row " + i.ToString + "</td>" |
| 19 | Literal1.Text += "</tr>" |
| 20 | Next |
| 21 | Literal1.Text += "</table>" |
| 22 | |
| 23 | End Sub |
| 24 | |
| 25 | private Sub InitializeComponent() |
| 26 | |
| 27 | End Sub |
| 28 | End class |
