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