<%@import namespace="System.Data.SqlClient"%>
<script language=“VB” runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
    Dim SQLText as String = "SELECT * FROM authors"
    Dim cnString as string = "server=localhost;uid=sa;pwd=;database=pubs;"
    Dim dbRead AS SQLDataReader
    Dim SQLCmd AS SQLCommand

    SQLCmd = New SQLCommand(SQLText,cnString)
    SQLCmd.ActiveConnection.Open()

    SQLCmd.execute(dbread)

    while dbRead.Read()
        response.write("<br>" & dbRead.Item("au_lname"))
    End while

End Sub
</script>