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


    " 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,País,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("
    Dear "&Request("Nombre_completo")&", your message has been sent.
    We will contact you as soon as possible.

    Click here to send a New Message
    ") end if set Mailer = nothing else %>
    Full Name:
    Country :
    Telephones: /
    Check the apartment in which you are interested:
    Enter your message here:
    <%end if%>
    Las Casas de Moratín
    Complex made up of 5 houses in Calle Moratín, in the heart of Seville.

    Prices from 100€ per night

    You can request more information about our apartments or make a reservation by completing the contact form and indicating which dwelling you are interested in. If you prefer, you can also either call us or send us an e-mail to:

    Telephone: +34 672 018 071

    email: info@casasmoratinsevilla.com
    Las Casas de Moratín - 4 houses in Calle Moratín, in the heart of Seville- Tlf.: 672 018 071 - email: info@casasmoratinsevilla.com - Web Design
    home - apartments - environment - location - contact and bookings