<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% id = request.querystring("id") sql = "SELECT Productos.idProducto, Productos.Modelo, Productos.idCategoria, ProductosCategorias.Categoria, Productos.idSubcategoria, ProductosSubcategorias.Subcategoria, Productos.Breve, Productos.Caracteristicas, Productos.Novedad, Productos.Foto, Productos.NumLeido, Productos.OK FROM (Productos INNER JOIN ProductosCategorias ON Productos.idCategoria = ProductosCategorias.idCategoria) INNER JOIN ProductosSubcategorias ON Productos.idSubcategoria = ProductosSubcategorias.idSubCategoria WHERE Productos.OK = 1 AND Productos.idSubcategoria = "& id &" ORDER BY Productos.Modelo" idProducto = 0 Modelo = 1 idCategoria = 2 Categoria = 3 idSubcategoria = 4 Subcategoria = 5 Breve = 6 Caracteristicas = 7 Novedad = 8 Foto = 9 NumLeido = 10 OK = 11 connOpen conn set rsProductos = conn.Execute(sql) if not rsProductos.EOF then ArrProductos = rsProductos.GetRows consulta = true else consulta = false end if rsProductos.close set rsProductos = nothing connClose conn if consulta = true then google_title = ArrProductos(Subcategoria,0) & " / " & ArrProductos(Categoria,0) foto = ArrProductos(idCategoria,0) else google_title = "los mejores seguros" end if %> <%=google_title%> - <!--#include file="../includes/inc-titulo.asp" -->
<% if consulta = true then %>

 <%=ArrProductos(Subcategoria,0)%>


<%=ArrProductos(Categoria,0)%>


<%=FormatStr(ArrProductos(Breve,0))%> <% if ArrProductos(Foto,0) = true then%> <%else %> <%end if %>

<%=FormatStr(ArrProductos(Caracteristicas,0))%>

<%end if %>
volver a <%=LCase(ArrProductos(Categoria,0))%>


<% 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 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/_solicitar-info.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, "##producto##", Request.Form("Producto")) 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] Interesado en producto: "& 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("Interesado en producto") 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 %>

 Solicitar información


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

<% sql = "SELECT Productos.idProducto, Productos.Modelo, Productos.idCategoria, ProductosCategorias.Categoria, Productos.idSubcategoria, ProductosSubcategorias.Subcategoria, Productos.Novedad, Productos.Foto, Productos.NumLeido, Productos.OK FROM (Productos INNER JOIN ProductosCategorias ON Productos.idCategoria = ProductosCategorias.idCategoria) INNER JOIN ProductosSubcategorias ON Productos.idSubcategoria = ProductosSubcategorias.idSubCategoria WHERE Productos.OK = 1 AND Productos.idCategoria = "& ArrProductos(idCategoria,0) &" AND Productos.idSubcategoria <> "& id &" ORDER BY Productos.idSubcategoria DESC" idProducto = 0 Modelo = 1 idCategoria = 2 Categoria = 3 idSubcategoria = 4 Subcategoria = 5 Novedad = 6 Foto = 7 NumLeido = 8 OK = 9 connOpen conn set rsProductos = conn.Execute(sql) if not rsProductos.EOF then ArrProductos = rsProductos.GetRows consulta = true else consulta = false end if rsProductos.close set rsProductos = nothing connClose conn if consulta = true then %>

Otros <%=LCase(ArrProductos(Categoria,i))%>:

<% for i = 0 to Ubound(ArrProductos,2)%> <%=ArrProductos(Subcategoria,i)%>  |   <% next end if %>