<%
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,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("")
end if
set Mailer = nothing
else
%>
<%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 |