<%@ Import Namespace="System.Data.SqlClient" %> <% Dim conPubs As SqlConnection Dim strUpdate As String Dim cmdUpdate As SqlCommand Dim intUpdateCount As Integer conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Pubs" ) strUpdate = "Update Authors Set au_lname='Smith' Where au_lname='Bennet'" cmdUpdate = New SqlCommand( strUpdate, conPubs ) conPubs.Open() intUpdateCount = cmdUpdate.ExecuteNonQuery() conPubs.Close() %> <%=intUpdateCount%> Records Updated!