Method that returns the number of rows affected by the update SQL statement

The number of rows that can be affected directly by the following methods:

<%
Dim conn
Dim sql
Dim lngrecs

sql= "UPDATE table1 set field1= ' good '"
Set Conn=server.createobject ("Adodb.connection")
Conn.Open DSN
Conn.execute Sql,lngrecs
Conn.close:set conn=nothing

Response.Write Lngrecs
%>

The same functionality is available with stored procedures:
<%
Dim cmd
Dim lngrecs
Dim sql

sql= "UPDATE table1 set field1= ' good '"
Set Cmd=server.createobject ("Adodb.command")
With cmd
. activeconnection=dsn
. Commandtype=adcmdstoredproc
. commandtext=sql
. Execute Lngrecs,,adexecutenorecords
End With
Set cmd.activeconnection.nothing
Set cmd=nothing

Response.Write Lngrecs
%>