<%@ Page %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
Sub Page_Load(sender as Object, e as EventArgs)
Const strConnString as String = "server=localhost;uid=sa;pwd=;database=pubs"
Dim objConn as New SqlConnection(strConnString)
Const strSQL as String = "SELECT * FROM authors"
Dim objCmd as New SqlCommand(strSQL, objConn)
Dim objDA as New SqlDataAdapter()
objDA.SelectCommand = objCmd
Dim objDS as New DataSet()
objDA.Fill(objDS)
objConn.Close()
dlAuthors.DataSource = objDS
dlAuthors.DataBind()
End Sub
<%# DataBinder.Eval(Container.DataItem, "au_lname") %>,
<%# DataBinder.Eval(Container.DataItem, "au_fname") %>