01.<%@ Import Namespace ="System.Data.SqlClient" %>
02.
03.<script language ="vbscript" runat ="server" >
04. Sub Page_Load()
05. Dim conCustomers As SqlConnection
06. Dim cmdCustomers As SqlCommand
07. Dim dtrCustomers As SqlDataReader
08. conCustomers = New SqlConnection("Data Source=.; Initial Catalog=Northwind; integrated security=true")
09. conCustomers.Open()
10. cmdCustomers = New SqlCommand("Select CompanyName from Customers", conCustomers)
11. dtrCustomers = cmdCustomers.ExecuteReader()
12. While dtrCustomers.Read()
13. lblMessage.Text &= "<li>"
14. lblMessage.Text &= dtrCustomers("CompanyName")
15. End While
16. dtrCustomers.Close()
17. conCustomers.Close()
18. End Sub
19.
20. </script>
22.<head id="Head1" runat="server">
23. <title>Database.aspx</title>/
24.</head>
25.<body>
26. <form id="form1" runat="server">
27. <div>
28. <asp:Label ID="lblMessage" runat="server" Text="lblMessage" ></asp:Label></div>
29. </form>
30.</body>
31.</html>
