mensaje de advertencia

[iPunto]

Mira en el primer post de este foro y en las rutinas facilitas creo q está la respuesta a tu pregunta:

[FONT=Courier New]
sub escribe(str)
response.write str & chr(10)
end sub

sub mensaje(txt)
escribe "<script>"
escribe "alert(""" & txt & """)"
escribe "</script>"
end sub