<%@ 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!