<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>RepeaterTemplate</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name=vs_defaultClientScript content="JavaScript">
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<style rel="StyleSheet">
.tablebody
{
font-family: Verdana, Arial, Helvetica, Sans-Serif;
color:Black;
font-size: 10pt;
}
.alttablebody
{
font-family: Verdana, Arial, Helvetica, Sans-Serif;
color:Green;
font-size: 10pt;
}
</style>
</head>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:Repeater ID="rptEmps"
Runat="server">
<HeaderTemplate>
<table>
<tr>
<th colspan="2">
<font face="verdana" size="2">
Listing of Employees and Home Telephone Numbers
</font>
</th>
</tr>
<tr><td colspan="2"> </td></tr>
</HeaderTemplate>
<ItemTemplate>
<tr DataBinder.Eval(Container.DataItem, "LastName") & ", " _
& DataBinder.Eval(Container.DataItem, "FirstName") %>
</td>
<td>
<%# DataBinder.Eval(Container.DataItem, "HomePhone") %>
</td>
</tr>
</ItemTemplate>
<AlternatingItemTemplate>
<tr DataBinder.Eval(Container.DataItem, "LastName") & ", " _
& DataBinder.Eval(Container.DataItem, "FirstName") %>
</td>
<td>
<%# DataBinder.Eval(Container.DataItem, "HomePhone") %>
</td>
</tr>
</AlternatingItemTemplate>
<SeparatorTemplate>
<tr>
<td colspan="2"><hr></td>
</tr>
</SeparatorTemplate>
<FooterTemplate>
<tr><td colspan="2"> </td></tr>
<tr>
<td colspan="2" align="center">
<font color="red">-- End of Listing --</font>
</td>
</tr>
</table>
</FooterTemplate>
</asp:Repeater>
</form>
</body>
</html>
Imports System.Data.SqlClient
Imports System.Configuration
Public Class RepeaterTemplate
Inherits System.Web.UI.Page
Protected rptEmps As System.Web.UI.WebControls.Repeater
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim strSql As String = "Select LastName, FirstName, HomePhone From Employees Order By LastName"
Dim objConn As New SqlConnection(ConfigurationSettings.AppSettings("NorthwindConnection"))
Dim objCmd As New SqlCommand(strSql, objConn)
Try
objConn.Open()
rptEmps.DataSource = objCmd.ExecuteReader()
rptEmps.DataBind()
Catch exc As SqlException
Response.Write(exc.ToString())
Finally
objConn.Dispose()
End Try
End If
End Sub
End Class
You may download the code here.