29/09/2005, 10:10
|
 | | | Fecha de Ingreso: diciembre-2001 Ubicación: Guadalajara, Mexico
Mensajes: 3.672
Antigüedad: 23 años, 4 meses Puntos: 16 | |
Con CDONTS envias asi: <%
' Recogemos los datos del formulario
para = TRIM( Request( "para" ) )
asunto = TRIM( Request( "asunto" ) )
mensaje = TRIM( Request( "mensaje" ) )
' Comprobamos y enviamos el mail
IF para <> "" THEN
Set myMail = Server.CreateObject( "CDONTS.Newmail" )
myMail.From = "[email protected]"
myMail.To = para
myMail.Subject = asunto
myMail.Body = mensaje
myMail.Send
Set myMail = Nothing
Response.Write "Email enviado con éxito"
ELSE
Response.Write "Debes incluir una dirección de email"
END IF
%>
__________________ CreandoWebs.com www.creandowebs.com PLANTILLAS TEMPLATEMONSTER CON 10% DE DESCUENTO
|