Eliminar registros de forma masiva en varias tablas

[Prefontaine]

Pués nada de nada sigue igual, es más nisiquiera borra, el codigo es el siguiente:

<%
Dim strSQL2
Dim rsDeleteEntry2

strSQL = "Select * FROM atletas_ins WHERE codigo="&Request.QueryString("codigo")
strSQL2 = "Select * FROM equipos WHERE ID="&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
Response.Redirect "crear_equipo.asp?noregistrado=Su equipo no a sido registrado, cree uno de nuevo."

rsDeleteEntry.Close
Set rsDeleteEntry = Nothing
Set Conn = Nothing

%>