<%
if Request("enviar")="si" then
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=Request("camposok")
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
dominio="hiperrecambiosandalucia.es"
campos= Request("campos")
asunto_email="Landing page - Hiperrecambios Andalucía"
texto_previo="Mensaje enviado desde landing page en hiperrecambiosandalucia.es:"
emaildestino = "pedidos@desguacesolivares.es"
mensaje=porcorreo(campos,texto_previo)
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.IsHTML= true
'Mailer.FromName = Mailer.EncodeHeader(Request("nombre"), "utf-8")
'Mailer.From = Request("email")
Mailer.From = "atencioncliente@hiperrecambiosandalucia.es"
Mailer.Subject = asunto_email
Mailer.Host = "smtp."&dominio
Mailer.Username = "atencioncliente@hiperrecambiosandalucia.es"
Mailer.Password = "2017Olivares"
Mailer.AddAddress emaildestino
Mailer.CharSet = "UTF-8"
Mailer.ContentTransferEncoding = "Quoted-Printable"
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("
Ocurrió un Error
Estimado/a "&Request("nombre")&" debido a un error no hemos recibido tu petición.
Te pedimos disculpas y te pedimos que ten pongas en contacto con nostros en el 955 990 424.
")
else
bSuccess = True
Response.Write("
Gracias por Confiar en Nosotros
Estimado/a "&Request("nombre")&" hemos recibido tu petición correctamente y nos pondremos en contacto contigo de forma inmediata.
")
end if
set Mailer = nothing
%>
<%
else
%>
Dinos Qué Pieza Necesitas
<%end if%>