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

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