01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.SqlClient"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06.Dim objConn As SqlConnection
07.Dim objCmd As SqlCommand
08.
09.Sub Page_Load(sender As Object, e As EventArgs)
10.Dim strConnString As String
11.strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
12.objConn = New SqlConnection(strConnString)
13.objConn.Open()
14.
15.BindData()
16.End Sub
17.
18.Sub BindData()
19.Dim strSQL As String
20.strSQL = "SELECT * FROM customer"
21.
22.Dim dtReader As SqlDataReader
23.objCmd = New SqlCommand(strSQL, objConn)
24.dtReader = objCmd.ExecuteReader()
25.
26.
27.myRepeater.DataSource = dtReader
28.myRepeater.DataBind()
29.
30.dtReader.Close()
31.dtReader = Nothing
32.
33.End Sub
34.
35.Sub Page_UnLoad()
36.objConn.Close()
37.objConn = Nothing
38.End Sub
39.
40.
41.</script>
42.<html>
43.<head>
44.<title>ThaiCreate.Com ASP.NET - SQL Server 2005</title>
45.</head>
46.<body>
47.<form id="form1" runat="server">
48.<asp:Repeater id="myRepeater" runat="server">
49.<HeaderTemplate>
50.<table border="1">
51.<tr>
52.<th>CustomerID</th>
53.<th>Name</th>
54.<th>Email</th>
55.<th>CountryCode</th>
56.<th>Budget</th>
57.<th>Used</th>
58.</tr>
59.</HeaderTemplate>
60.<ItemTemplate>
61.<tr>
62.<td align="center"><asp:Label id="lblCustomerID" runat="server" Text=
63.<td><asp:Label id="lblName" runat="server" Text=
64.<td><asp:Label id="lblEmail" runat="server" Text=
65.<td align="center"><asp:Label id="lblCountryCode" runat="server" Text=
66.<td align="right"><asp:Label id="lblBudget" runat="server" Text=
67.<td align="right"><asp:Label id="lblUsed" runat="server" Text=
68.</tr>
69.</ItemTemplate>
70.<AlternatingItemTemplate>
71.<tr bgcolor="#e8e8e8">
72.<td align="center"><asp:Label id="lblCustomerID" runat="server" Text=
73.<td><asp:Label id="lblName" runat="server" Text=
74.<td><asp:Label id="lblEmail" runat="server" Text=
75.<td align="center"><asp:Label id="lblCountryCode" runat="server" Text=
76.<td align="right"><asp:Label id="lblBudget" runat="server" Text=
77.<td align="right"><asp:Label id="lblUsed" runat="server" Text=
78.</tr>
79.</AlternatingItemTemplate>
80.</asp:Repeater>
81.</form>
82.</body>
83.</html>
