prueba esto
Código asp:
Ver originalsql="delete from m_galeriasalas " &_
"where cod_mensaje in ( "&_
"select b.cod_mensaje, c.cod_sala " &_
"from t_salasmensajes b, m_salas c " &_
"where b.cod_sala = c.cod_sala "&_
"c.cod_proyecto="& cod_proyecto&")"
conexion.execute SQL