<% Function codareadetexto(texto) textook = replace(texto,vbCrLf,"
") codareadetexto = textook End Function Function porcorreo(campos,mensaje) camposform=campos cabeceramail="

"&Mensaje&"

    " cierremail="
Correo enviado el "&Date()&" a las "&Time()&" desde la IP: "&Request.ServerVariables("REMOTE_ADDR")&"" campos = Split(camposform,",") camposok=Replace(camposform,"_"," ") camposok=Split(camposok,",") i=0 total=ubound(campos) Do while total>=i email=email&"
  • "&camposok(i)&": "&codareadetexto(Request(campos(i)))&"
  • " i=i+1 Loop porcorreo=cabeceramail&email&cierremail End Function if Request("enviar")="si" then campos= "Nombre_completo,Ciudad,Teléfono1,Teléfono2,e-mail,Interesado_en_el_apartamento,Mensaje" mensaje=porcorreo(campos,"Mensaje enviado desde la web de Las Casas de Moratín:") email = "info@casasmoratinsevilla.com" asunto="Contacto desde la web de Las Casas de Moratín" Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.IsHTML= true Mailer.FromName = "Web de Las Casas de Moratín" Mailer.From = email Mailer.Subject = asunto Mailer.Host = "smtp.casasmoratinsevilla.com" Mailer.AddAddress "web@casasmoratinsevilla.com" Mailer.Body = mensaje strErr = "" bSuccess = False On Error Resume Next ' catch errors Mailer.Send ' send message if Err <> 0 Then ' error occurred strErr = Err.Description Response.Write("No se pudo enviar el email. El error fue:" &strErr&".") else bSuccess = True Response.Write("
    Estimado "&Request("Nombre_completo")&", su mensaje se han enviado correctamente.
    Nos pondremos en contacto con usted a la mayor brevedad posible.
    Gracias.

    Pulse aquí para enviar un Nuevo Mensaje
    ") end if set Mailer = nothing else %>
    Nombre completo:
    Ciudad :
    Teléfonos: /
    e-mail:
    Indique el apartamento en el que está interesado:
    Escriba aquí su mensaje:
    <%end if%>
    Las Casas de Moratín
    Conjunto formado por 5 casas en la Calle Moratín, en pleno corazón de Sevilla.

    Precios desde 100€ la noche


    Puede solicitar más información sobre nuestros apartamentos o solicitar una reserva completando el formulario de contacto e indicando la vivineda en la que está interesado o, si lo prefiere, también puede ponerse en contacto con nosotros por teléfono o email y le atenderemos con mucho gusto:


    Teléfono: 672 018 071

    email: info@casasmoratinsevilla.com
    Las Casas de Moratín - 4 casas en la Calle Moratín, en pleno corazón de Sevilla - Tlf.: 672 018 071 - email: info@casasmoratinsevilla.com - Diseño Web
    inicio - las casas - el entorno - donde estamos - contacto y reservas