<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="../../comun/includes/inc-titulo.asp"-->

 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 %>

Formulario de contacto


Datos básicos

" size="30" maxlength="40" /> <%if error_nombre = True then%> * <%end if%>

" id="email" /> <%if error_Email = True then%> * <%end if%>

" id="telefono" /> <%if error_telefono = True then%> * <%end if%>

Comentarios

   <%if error_comentario = True then%> * <%end if%>



<%end if %>