<%@ Import Namespace="System.Data.SqlClient" %> <% Dim conPubs As SqlConnection Dim cmdSelectAuthors As SqlCommand Dim dtrAuthors As SqlDataReader conPubs = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=pubs" ) conPubs.Open() cmdSelectAuthors = New SqlCommand( "Select au_lname From Authors", conPubs ) dtrAuthors = cmdSelectAuthors.ExecuteReader() While dtrAuthors.Read() Response.Write( "

" ) Response.Write( dtrAuthors( "au_lname" ) ) End While dtrAuthors.Close() conPubs.Close() %>