ASP.NET HtmlTable Server Control Example

<%@ Page Language="VB" AutoEventWireup="true" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<html>
<head>
	<title>HtmlTable Example</title>
</head>
<body>
<table id="tblExample" runat="server"></table>
</body>
</html>
'Default.aspx.vb
Imports System
Imports System.IO
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Configuration
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Data
Imports System.Data.OleDb
Imports System.Configuration

Partial Class _Default
	Inherits System.Web.UI.Page

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

	tblExample.Style.Value = "border-width:1px;border-style:Solid;border-color:Black;"
	tblExample.CellPadding = "3"
	tblExample.CellSpacing = "1"
	Dim tr As HtmlTableRow
	Dim td As HtmlTableCell
	tr = New HtmlTableRow
	tr.BgColor = "#000080"

	td = New HtmlTableCell
	td.ColSpan = 7
	td.Style.Value = "color:white;font-weight:bold;text-align:left;"
	td.InnerHtml = "TITLES"

	tr.Cells.Add(td)
	tblExample.Rows.Add(tr)

	tr = New HtmlTableRow
	tr.BgColor = "#AAAAAA"

	td = New HtmlTableCell
	td.NoWrap = True
	td.Style.Value = "font-weight:bold;text-align:center;"
	td.InnerHtml = "Title ID"
	tr.Cells.Add(td)

	td = New HtmlTableCell
	td.NoWrap = True
	td.Style.Value = "font-weight:bold;text-align:center;"
	td.InnerHtml = "Title"
	tr.Cells.Add(td)

	td = New HtmlTableCell
	td.NoWrap = True
	td.Style.Value = "font-weight:bold;text-align:center;"
	td.InnerHtml = "Type"
	tr.Cells.Add(td)

	td = New HtmlTableCell
	td.NoWrap = True
	td.Style.Value = "font-weight:bold;text-align:center;"
	td.InnerHtml = "Price"
	tr.Cells.Add(td)

	td = New HtmlTableCell
	td.NoWrap = True
	td.Style.Value = "font-weight:bold;text-align:center;"
	td.InnerHtml = "YTD Sales"
	tr.Cells.Add(td)

	td = New HtmlTableCell
	td.NoWrap = True
	td.Style.Value = "font-weight:bold;text-align:center;"
	td.InnerHtml = "Notes"
	tr.Cells.Add(td)

	td = New HtmlTableCell
	tr.Cells.Add(td)

	tblExample.Rows.Add(tr)

	Dim oCon As New OleDbConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectPubs").ToString())
	oCon.Open()
	'FROM THE pubs DATABASE IN MS SQL SERVER
	Dim oCmd As New OleDbCommand("SELECT title_id,title,type,price,ytd_sales,notes FROM titles", oCon)
	Dim oRdr As OleDbDataReader = oCmd.ExecuteReader()
	Dim i As Integer = 0
	While oRdr.Read()
	 tr = New HtmlTableRow
	 tr.BgColor = IIf(i Mod 2 = 0, "#CCFFCC", "#E0FFE0")

	 td = New HtmlTableCell
	 td.NoWrap = True
	 td.Style.Value = "font-weight:bold;"
	 td.InnerHtml = "" & oRdr(0)
	 tr.Cells.Add(td)

	 td = New HtmlTableCell
	 td.NoWrap = False
	 td.InnerHtml = "" & oRdr(1)
	 tr.Cells.Add(td)

	 td = New HtmlTableCell
	 td.NoWrap = True
	 td.InnerHtml = "" & oRdr(2)
	 tr.Cells.Add(td)

	 td = New HtmlTableCell
	 td.NoWrap = True
	 td.InnerHtml = String.Format("{0:c}", "0" & oRdr(3))
	 tr.Cells.Add(td)

	 td = New HtmlTableCell
	 td.NoWrap = True
	 td.InnerHtml = "" & oRdr(4)
	 tr.Cells.Add(td)

	 td = New HtmlTableCell
	 td.NoWrap = False
	 td.Style.Value = "font:7pt Arial;"
	 td.BgColor = IIf(i Mod 2 = 0, "#FFCCCC", "#FFE0E0")
	 td.InnerHtml = "" & oRdr(5)
	 tr.Cells.Add(td)

	 td = New HtmlTableCell
	 td.BgColor = IIf(i Mod 2 = 0, "#CCCCFF", "#E0E0FF")
	 td.InnerHtml = "<input type=""button"" id=""button" & oRdr(0) & _
	 """ onclick=""alert('you clicked '+this.id);"" " & _
	 "style=""height:15px;width:15px;border-color:green;background-color:green;"">"
	 tr.Cells.Add(td)

	 tblExample.Rows.Add(tr)
	 i += 1
	End While
	oRdr.Close()
	oCon.Close()
 End Sub
End Class
TITLES
Title ID Title Type Price YTD Sales Notes
BU1032 The Busy Executive's Database Guide business $19.99 4095 An overview of available database systems with emphasis on common business applications. Illustrated.
BU1111 Cooking with Computers: Surreptitious Balance Sheets business $11.95 3876 Helpful hints on how to use your electronic resources to the best advantage.
BU2075 You Can Combat Computer Stress! business $2.99 18722 The latest medical and psychological techniques for living with the electronic office. Easy-to-understand explanations.
BU7832 Straight Talk About Computers business $19.99 4095 Annotated analysis of what computers can do for you: a no-hype guide for the critical user.
MC2222 Silicon Valley Gastronomic Treats mod_cook $19.99 2032 Favorite recipes for quick, easy, and elegant meals.
MC3021 The Gourmet Microwave mod_cook $2.99 22246 Traditional French gourmet recipes adapted for modern microwave cooking.
MC3026 The Psychology of Computer Cooking UNDECIDED $0.00
PC1035 But Is It User Friendly? popular_comp $22.95 8780 A survey of software for the naive user, focusing on the 'friendliness' of each.
PC8888 Secrets of Silicon Valley popular_comp $20.00 4095 Muckraking reporting on the world's largest computer hardware and software manufacturers.
PC9999 Net Etiquette popular_comp $0.00 A must-read for computer conferencing.
PS1372 Computer Phobic AND Non-Phobic Individuals: Behavior Variations psychology $21.59 375 A must for the specialist, this book examines the difference between those who hate and fear computers and those who don't.
PS2091 Is Anger the Enemy? psychology $10.95 2045 Carefully researched study of the effects of strong emotions on the body. Metabolic charts included.
PS2106 Life Without Fear psychology $7.00 111 New exercise, meditation, and nutritional techniques that can reduce the shock of daily interactions. Popular audience. Sample menus included, exercise video available separately.
PS3333 Prolonged Data Deprivation: Four Case Studies psychology $19.99 4072 What happens when the data runs dry? Searching evaluations of information-shortage effects.
PS7777 Emotional Security: A New Algorithm psychology $7.99 3336 Protecting yourself and your loved ones from undue emotional stress in the modern world. Use of computer and nutritional aids emphasized.
TC3218 Onions, Leeks, and Garlic: Cooking Secrets of the Mediterranean trad_cook $20.95 375 Profusely illustrated in color, this makes a wonderful gift book for a cuisine-oriented friend.
TC4203 Fifty Years in Buckingham Palace Kitchens trad_cook $11.95 15096 More anecdotes from the Queen's favorite cook describing life among English royalty. Recipes, techniques, tender vignettes.
TC7777 Sushi, Anyone? trad_cook $14.99 4095 Detailed instructions on how to make authentic Japanese sushi in your spare time.