Contacto
Sí quieres ponerte en contacto con nosotros a continuación
encontrarás los datos de contacto. También podrás hacerlo
rellenando el formulario de contacto:
Infosegur
Santurtzi
c/Jose
Miguel Barandiarán, 9 - entrep.
48980 Santurtzi (Bizkaia)
Teléfono: 94 461 48 57
e-mail: info@infosegur.es |
Infosegur
Bilbao
c/Juan de Ajuriaguerra, 19 entreplanta
48009 Bilbao
(Bizkaia)
Teléfono: 94 423 11 13
e-mail: info@infosegur.es |
<%
nombre = request.form("Nombre")
Email = request.form("Email")
telefono = request.form("Telefono")
comentario = request.form("Comentario")
if request.form("Enviado")="OK" then
msg=""
msg2=""
if nombre = "" then
msg="Nombre"
error_nombre = True
end if
if Email="" then
if msg="" then
msg = "E-mail"
else
msg = "Nombre, E-mail"
end if
error_Email = True
else
if not isValidEmail(Email) then
msg2="E-mail"
end if
error_Email = True
end if
if telefono="" then
if msg="" then
msg="Teléfono"
else
msg=msg&", Teléfono"
end if
error_telefono = True
end if
if comentario="" then
if msg="" then
msg="Comentario"
else
msg=msg&", Comentario"
end if
error_comentario = True
end if
if inStr(comentario, "http") then ' para evitar a los robots
if msg="" then
msg="Comentario"
else
msg=msg&", Comentario"
end if
error_comentario = true
end if
if msg<>"" OR msg2<>"" then
if msg<>"" then %>
ATENCIÓN:
Faltan por rellenar los siguientes campos:
<%=msg%>.
<% elseif msg2 <> "" then %>
ATENCIÓN:
Hay algún campo incorrecto :
<%=msg2%>.
<%end if %>
<%
'si los datos son correctos enviamos el email
else
Server.ScriptTimeout = 5000 'Definimos el tiempo máx de ejecucion del script
'enviamos el email
set fso = Server.CreateObject("Scripting.FileSystemObject")'creamos el objeto
set text = fso.OpenTextFile(Server.MapPath("../plantillas/_contacto.html"))'abrimos la plantilla del email y pasamos el codigo a texto plano en la variable text
email_cuerpo = text.ReadAll'pasamos a la variable email_cuerpo todo el texto con la propiedad ReadAll
text.close'cerramos el objeto
set text = nothing'borramos text
set fso = nothing'borramos fso
email_cuerpo = Replace(email_cuerpo, "##nombre##", Request.Form("Nombre"))' dentro del cuerpo del email reemplazamos ##nombre## por el nombre que mete el usuario
email_cuerpo = Replace(email_cuerpo, "##telefono##", Request.Form("Telefono"))
email_cuerpo = Replace(email_cuerpo, "##email##", Email)'lo mismo pero con el email
email_cuerpo = Replace(email_cuerpo, "##comentarios##", FormatStr(Request.Form("Comentario")))'llamamos a la funcion FormatStr para que los comentarios no queden en una sola linea y que respete los saltos de linea.
set Mail = Server.CreateObject ("Persits.MailSender")'objeto email de asp
Mail.Host = "smtp.segurosinfosegur.com"
Mail.Port = 25
Mail.From = "info@segurosinfosegur.com"'desde que email se manda
Mail.FromName = Mail.EncodeHeader("Seguros Infosegur")'formateamos por si hay algun caractet raro la cabecera
Mail.Subject = Mail.EncodeHeader("[Web] Contacto: "& Request.Form("Nombre"))'lo mismo pero le añadimos el nombre de quien lo envia
Mail.Username = "xcq768c"'usuario del email de arriba
Mail.Password = "Alvaro08"'password del email de arriba
Mail.Body = email_cuerpo'pasamos a la propiedad body del objeto mail el
Mail.isHTML = true'le damos el formato html
Mail.AddAddress "info@segurosinfosegur.com"'direccion a la que se manda el mail
On Error Resume Next'si hay algun error salta la linea de abajo es un tipo break, y no manda el mail
Mail.SendToQueue'manda el email y lo pone en la bandeja de salida
Mail.Reset'resetea el email
Mail.FromName = Mail.EncodeHeader("[Infosegur - WEB]")
Mail.Subject = Mail.EncodeHeader("Solicitud de informacion")
Mail.Body = email_cuerpo
Mail.isHTML = true
Mail.AddAddress "info@gurenet.com"
On Error Resume Next
Mail.SendToQueue
set Mail = nothing
if Err <> 0 then %>
ATENCIÓN:
Ha habido un error en el envio del e-mail.
<%=Err.Description%>
<%else %>
Tu consulta ha sido tramitada
correctamente.
Te responderemos con la mayor brevedad posible.
Gracias por tu interés.
volver
<%
end if'if err <>0
end if
end if
if Request.Form("Enviado") <> "OK" or msg <> "" or msg2 <> "" then %>
<%end if %>
