<%@ Page Language="VB" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
 Dim sqlConn As String = "database='pubs';server=127.0.0.1;Trusted_Connection=False;password=;user id=sa" 
 Dim sqlCmd As String = "SELECT TOP 1 * FROM authors ORDER BY NEWID()" 
 Dim myConnection As SqlConnection = New SqlConnection(sqlConn) 
 Dim cmdRandomQuote As SqlCommand = New SqlCommand(sqlCmd, myConnection) 
 myConnection.Open 
 Dim myReader As SqlDataReader = cmdRandomQuote.ExecuteReader 
 myReader.Read 
 Response.Write("<B>Selecting a Random Row</B><BR>lname:") 
 Response.Write(myReader("au_lname").ToString) 
 myConnection.Close 
End Sub
</script>