Mems io l'ho così scritta:

function deleteChilds(cn,valueID)
loopFunction = false
s = "SELECT IDMenu FROM Menu WHERE IDPadre = " & valueID
set Menu = cn.execute(s)
if not Menu.eof then
loopFunction = true
tempID = Menu("IDMenu")
end if
Menu.close
set Menu = nothing
cn.execute("DELETE * FROM Menu WHERE IDMenu = ") & valueID
if loopFunction then deleteChilds cn, tempID
end function

id = request.form("id")
set conn = cn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../Db/db_sinergico.mdb")
conn.open

if len(id) > 0 and isNumeric(id) then deleteChilds conn, id

conn.close
set conn = nothing

:master:

errore :
Necessario oggetto: 'Falso'