<%@ Page Language="vb" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
Sub Page_Load(sender as Object, e as EventArgs)
If Not Page.IsPostBack then
BindData()
End If
End Sub
Sub BindData()
Const strConnString as String = "server=localhost;uid=sa;pwd=;database=pubs"
Dim objConn as New SqlConnection(strConnString)
Const strSQL as String = "SELECT * FROM titles"
Dim objCmd as New SqlCommand(strSQL, objConn)
objConn.Open()
dlTitles.DataSource = objCmd.ExecuteReader(CommandBehavior.CloseConnection)
dlTitles.DataBind()
objConn.Close()
End Sub
Sub dlTitles_ItemCommand(sender as Object, e as DataListCommandEventArgs)
If e.CommandName = "Details" then
End If
End Sub
Title: <%# DataBinder.Eval(Container.DataItem, "title") %>
[