<%
bala = 0
if request.form("para") = "" or request.form("sujeto") = "" or request.form("msg") = "" Then
bala = 1
end if
if bala = 1 Then
%>
<script>
alert("Ud debe ingresar los datos necesarios para el envio");
history.back();
</script>
<%
end if
SET mail = CreateObject("CDONTS.Newmail")
if IsObject(mail) THEN
mail.Value("Reply-To")="<
[email protected]>"
mail.From = session("nombre")
mail.To = trim(request.form("para"))
mail.Subject = request.form("sujeto")
mail.Body = request.form("msg")
mail.mailformat = 0
mail.Send
SET mail = Nothing
Else
%>
<%
END IF
%>
BUENO A TRAVÉS DE MI PC... QUE LO CORRO LOCAL ME LO EJECUTA...
PERO, CUANDO LO SUBO AL SERVIDOR.. NO PASA NADA--
GRACIAS...