Eliminar registros de forma masiva en varias tablas

[oooriii]

Claro te borra solo lo de la segunda comanda SQL!

borrar = CINT(Request.QueryString("codigo"))

Set rsDeleteEntry = Server.CreateObject("ADODB.Recordset")

strSQL = "Delete * FROM atletas_ins WHERE codigo="&borrar
strSQL = "Delete * FROM equipos WHERE ID=" & borrar

rsDeleteEntry.LockType = 3

rsDeleteEntry.Open strSQL, Conn

rsDeleteEntry.Delete

Mira yo lo haria asi:
Creo primero un objeto Connection llamado conn y luego
strSQL = "Select * FROM atletas_ins WHERE codigo="&Request.QueryString("codigo")
strSQL2 = "Select * FROM equipos WHERE codigo="&Request.QueryString("codigo")

Set rsDeleteEntry= Server.CreateObject("ADODB.Recordset")
rsDeleteEntry.Open strSQL, conn, adOpenKeyset, adLockOptimistic, adCmdText
Set rsDeleteEntry2= Server.CreateObject("ADODB.Recordset")
rsDeleteEntry2.Open strSQL2, conn, adOpenKeyset, adLockOptimistic, adCmdText
While not rsDeleteEntry.Eof
rsDeleteEntry.Delete
rsDeleteEntry.MoveNext
Wend
rsDeleteEntry.Close
While not rsDeleteEntry2.Eof
rsDeleteEntry2.Delete
rsDeleteEntry2.MoveNext
Wend
rsDeleteEntry2.Close

No hace falta pasar el Request.QueryString("codigo") a int, puesto k sql es un string
Hay k recorrer todo el recordset puesto que puede contener mas de una fila (todos los que tengan codigo = Request.QueryString("codigo"))


Espero haberte podido ayudar un poco

Saludos