Posted: May/27/2006 at 9:56am | IP Logged

the code to do so:

dim intDeletedRecords
intDeletedRecords=0

objStr = "DELETE FROM maildata WHERE (Mail='"&Request.Form("Email")&"' AND MailRole='CC');"
   
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set objRS = Server.CreateObject("ADODB.Recordset")

    objConn.Open "DSN=DBName-MySQL"

    objrs.open objStr,objConn,2,3

do until objrs.eof
intDeletedRecords=intDeletedRecords+1
objrs.delete
objrs.update
objrs.movenext
loop
response.write "The Number of deleted records is:" & intDeletedRecords

    objConn.close
    Set objConn = Nothing :    Set objRS = Nothing

Hope this helps

Best Regards

Posted: April/16/2007 at 5:56am | IP Logged

Hi ThePriest,

I was looking for the same this, ThePriest, and there is a very very simple way to do this.

for your code:

objStr = "DELETE FROM maildata WHERE (Mail='"&Request.Form("Email")&"' AND MailRole='CC');"

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")

objConn.Open "DSN=DBName-MySQL"

objConn.Execute(objStr, intAffectedRows)

response.write "Rows affected: " & intAffectedRows

objConn.close
Set objConn = Nothing
Set objRS = Nothing

As you see: just add an extra parameter to the execute method.