Excluir dados em 2 tabelas! Fritando e nada!

Olá pessoal!

Preciso excluir de uma tabela chamada "SUPPLIERCATEGORY" uma categoria, e atualizar automaticamente na tabela ""SUPPLIER" os cadastros que possuem a categoria, passando para "Não categorizado". Segue o que imaginei - e que não está dando certo...

ASP
vDELETE = REQUEST ("DELETE")                        IF vDELETE <> "" THEN

vCATEGORY = REQUEST ("CATEGORY")

                                        SET SQL1 = DB.EXECUTE ("SELECT * FORM SUPPLIER WHERE CATEGORY = '"&vCATEGORY&"'")

                                                WHILE NOT SQL1.EOF

                                                        vSQL1_ID = SQL1 ("ID")

                                                                SET SQL2 = DB.EXECUTE ("UPDATE SUPPLIER SET CATEGORY = 'NÃO INFORMADO' WHERE ID = "&vSQL1_ID&"")

                                                        SQL1.MOVENEXT

                                                WEND

 

                                        SET DELETECATEGORY = DB.EXECUTE ("DELETE * FROM CATEGORY WHERE SUPPLIERCATEGORY = '"&vCATEGORY&"' ")

                                vMESSAGE = "DELETED"

                        END IF

Obrigado!!!