<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <% Dim dstAuthors As DataSet Dim conPubs As SqlConnection Dim dadAuthors As SqlDataAdapter Dim dvwAuthors As DataView Dim arrValues(2) As Object Dim intRowIndex As Integer ' Grab Authors Table dstAuthors = New DataSet() conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Pubs" ) dadAuthors = New SqlDataAdapter( "Select * From Authors", conPubs ) dadAuthors.Fill( dstAuthors, "Authors" ) ' Create DataView dvwAuthors = dstAuthors.Tables( "Authors" ).DefaultView() dvwAuthors.Sort = "au_lname, au_fname" ' Find Ann Dull arrValues( 0 ) = "Dull" arrValues( 1 ) = "Ann" intRowIndex = dvwAuthors.Find( arrValues ) ' Display Phone Number If intRowIndex <> -1 Then Response.Write( dvwAuthors( intRowIndex ).Row( "Phone" ) ) Else Response.Write( "Can't find Ann Dull" ) End If %>