<%@ Import Namespace="System.Data.SqlClient" %> <% Dim conPubs As SqlConnection Dim strDelete As String Dim cmdDelete As SqlCommand Dim intDeleteCount As Integer conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" ) strDelete = "Delete Authors Where au_lname='Bennet'" cmdDelete = New SqlCommand( strDelete, conPUbs ) conPubs.Open() intDeleteCount = cmdDelete.ExecuteNonQuery() conPubs.Close() %> <%=intDeleteCount %> Records Deleted!