<% 'XDT: DATOS QUE SE CAMBIAN SEGUN EL CLIENTE: '=========================================================================== Servidor = "smtp.comuarte.org" 'Dominio del servidor (smtp.roseteycia.com, smtp.ppconsultores.com, etc.) Subject = "Contacto de página ComuArte" 'Título del correo CuentaDestino = "lety@comuarte.org" '(Cuenta de contacto del cliente, leticia@leticiarmijo.com, etc) DireccionRespuesta = "./MensajeEnviadoE.html" 'Página donde esta la respuesta de mensaje enviado '=========================================================================== Dim message br = vbCrLf 'Salto de Linea If Request("eMail") <> "" Then For Each x In Request.Form if x <> "Send" then message=message & ">" & x & ": " & Request.Form(x) & br end if Next Set objMail = Server.CreateObject("Dynu.Email") objMail.Host = Servidor objMail.FromName = request.Form("Nombre") objMail.From = request.form("eMail") objMail.AddAddress CuentaDestino objMail.Subject = Subject txtbody = message & "Hora de envío: " & time & vbcrlf objMail.Body = txtbody ' Response.Write( "FROMNAME: " & objMail.FromName) ' Response.Write( "FROM: " & objMail.From) objMail.Send() Response.redirect( DireccionRespuesta ) end if %>
Home
|
Contact us
Contact us
First & Last Name
:
E-mail:
Comments:
Address:
Calzada de Tlalpan 1685 C402, Col. General Anaya, C.P.04120 México,D.F.
Phone / Fax:
(005255)
5689.9991
Celular:
(04455) 27979728
E-mail:
info@comuarte.org
Address: Calzada de Tlalpan 1685 C402, Col. General Anaya, C.P.04120 México,D.F.
Phone / Fax: (005255)
5689.9991
E-mail:
info@comuarte.org