<%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <% Dim conPubs As SqlConnection Dim cmdAuthorCount As SqlCommand Dim parmReturnValue As SqlParameter Dim intAuthorCount As Integer conPubs = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=pubs" ) cmdAuthorCount = New SqlCommand( "GetAuthorCount", conPubs ) cmdAuthorCount.CommandType = CommandType.StoredProcedure parmReturnValue = cmdAuthorCount.Parameters.Add( "ReturnValue", SqlDbType.Int ) parmReturnValue.Direction = ParameterDirection.ReturnValue conPubs.Open() cmdAuthorCount.ExecuteNonQuery() intAuthorCount = cmdAuthorCount.Parameters( "ReturnValue" ).Value conPubs.Close() %> There are <%=intAuthorCount%> records in the Authors table