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