<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">
Sub Page_Load
Dim conNorthwind As SqlConnection
Dim cmdSelect As SqlCommand
Dim dtrEmployees As SqlDataReader
conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Northwind" )
cmdSelect = New SqlCommand( "Select * From Employees", conNorthwind )
conNorthwind.Open()
dtrEmployees = cmdSelect.ExecuteReader()
dlstEmployees.DataSource = dtrEmployees
dlstEmployees.DataBind()
dtrEmployees.Close()
conNorthwind.Close()
End Sub
</Script>
<html>
<head><title>ExpertDataListTemplateDemo.aspx</title></head>
<body>
<form Runat="Server">
<asp:DataList
ID="dlstEmployees"
Runat="Server">
<HeaderTemplate>
<h3>Employee's Home Phone Numbers:</h3>
</HeaderTemplate>
<ItemTemplate>
<table>
<tr>
<td align="right">First Name:</td>
<td><%# Container.DataItem( "FirstName" )%></td>
</tr>
<tr>
<td align="right">Last Name:</td>
<td><%# Container.DataItem( "LastName" )%></td>
</tr>
<tr>
<td align="right">Home Phone:</td>
<td><%# Container.DataItem( "Homephone" )%></td>
</tr>
</table>
</ItemTemplate>
<SeparatorTemplate>
<hr>
</SeparatorTemplate>
</asp:DataList>
</form>
</body>
</html> |