 |
|
 |
|
||
<%if request.Form("submit")="Enviar" then %> <% Dim strBody 'Holds the body of the e-mail Dim objCDOMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail Dim strReturnEmailAddress 'Holds the return e-mail address of the user strMyEmailAddress = "contacto@hostalmontefino.com" strCCEmailAddress = "" strBCCEmailAddress = "" strReturnEmailAddress = Request.Form("emailCliente") 'Initialse strBody string with the body of the e-mail strBody = " E-mail de reservación" strBody = strBody & "Nombre y Apellidos: " & Request.Form("nombre") strBody = strBody & " País: " & Request.Form("pais") strBody = strBody & " Teléfono: " & Request.Form("telefono") strBody = strBody & " E-mail: " & strReturnEmailAddress strBody = strBody & " Comentario : " & Request.Form("comentario") 'Send the e-mail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("nombre") & " <" & strReturnEmailAddress & ">" objCDOMail.To = strMyEmailAddress objCDOMail.Cc = strCCEmailAddress objCDOMail.Bcc = strBCCEmailAddress objCDOMail.Subject = "Mensaje de contacto desde la Web Site" objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Body = strBody objCDOMail.Importance = 2 objCDOMail.Send Set objCDOMail = Nothing%> <%response.Write("Su reversa ha sido enviado con éxito, Lo atenderemos lo más pronto posible.Gracias.")%> <%response.Write("Su reversa ha sido enviado con éxito, Lo atenderemos lo más pronto posible.Gracias.")%> <%else%> <%end if%> |
| Manuel
Villavicencio 843 - Lince Telf. 441-8575 / 422-7232 contacto@hostalmontefino.com |
