INICIO - HOME - HOSTAL MONTEFINO LIMA PERÚ

 

<%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%>
DATOS DEL CLIENTE / CUSTOMER´S INFORMATION
Apellidos y Nombres /
Names and Last Names
E-mail / E-mail
Dirección / Address
Teléfono / Telephone
Comentario / Comments
<%end if%>
Manuel Villavicencio 843 - Lince
Telf. 441-8575 / 422-7232
contacto@hostalmontefino.com