<%
Function codareadetexto(texto)
textook = replace(texto,vbCrLf," ")
codareadetexto = textook
End Function
Function porcorreo(campos,mensaje)
camposform=campos
cabeceramail=""&Mensaje&" 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("")
end if
set Mailer = nothing
else
%>
<%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 |