<%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <% Dim conPubs As SqlConnection Dim cmdLastName As SqlCommand Dim parmLastName As SqlParameter Dim strLastName As String conPubs = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=pubs" ) cmdLastName = New SqlCommand( "getLastname", conPubs ) cmdLastName.CommandType = CommandType.StoredProcedure ' FirstName Input Parameter cmdLastName.Parameters.Add( "@firstname", "Ann" ) ' LastName Output Parameter parmLastName = cmdLastName.Parameters.Add( "@lastname", SqlDbType.Varchar ) parmLastName.Size = 40 parmLastName.Direction = ParameterDirection.Output ' Execute Command conPubs.Open() cmdLastName.ExecuteNonQuery() ' Retrieve value of output parameter If Not IsDBNull( cmdLastName.Parameters( "@lastname" ).Value ) Then strLastName = cmdLastName.Parameters( "@lastname" ).Value Else strLastName = "Unknown" End If conPubs.Close() %> The last name is <%=strLastName%>