eliminar en cascada

[Prefontaine]

Buenas noches,
Tengo este codigo pero elimina de uno en uno, la cuestión es que elimina registros de dos tablas, pero yo quiero que los elimine todos 8los coincidentes) en cascada.

<%
lngRecordNo = Request.QueryString("equipo")

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

strSQL = "SELECT equipos.* FROM equipos WHERE ID=" & lngRecordNo
strSQL = "SELECT atletas_ins.* FROM atletas_ins WHERE codigo=" & lngRecordNo

rsDeleteEntry.LockType = 3

rsDeleteEntry.Open strSQL, Conn

rsDeleteEntry.Delete

rsDeleteEntry.Close
Set rsDeleteEntry = Nothing
Set Conn = Nothing

%>


Muchas gracias

[trasgukabi]

<%
conn.open......
lngRecordNo = Request.QueryString("equipo")
conn.execute "delete from equipos where ID=" & lngRecordNo
conn.execute "delete from atletas_ins where codigo=" & lngRecordNo
Set Conn = Nothing

%>