<%
On Error Resume Next
myDSN = "DSN=Student;uid=student;pwd=magic"
mySQL = "DELETE FROM authors WHERE au_id=200"
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open myDSN
Conn.Execute mySQL,howmany
Response.Write "The statement " & mySQL & " deleted " & howmany & " records
"
Call ErrorVBScriptReport("Deleting...")
Call ErrorADOReport(mySQL,conn)
Conn.Close
Set conn=Nothing
%>