<%@ Language=VBScript %> <% Response.Buffer = True 'Mando todo junto (todo el Buffer) Response.CacheControl = "Private" 'Evito Proxy por ASP Response.AddHeader "cache-control", "private" 'Evito el proxy por HTML Response.AddHeader "pragma", "no-cache" 'Evito la cache del navegador por HTML Response.ExpiresAbsolute = DateAdd("yyyy", -10, Date) 'Expira página Absolutamente Response.Expires = -100000 'Expira página ' Creo un objeto Conexion Set ObjConn = Server.CreateObject("adodb.connection") ' Abro la conexion ObjConn.Open Application("DBConnection") ' Creo un objeto Conexion Set oRs = Server.CreateObject("adodb.RecordSet") ' Obtengo las configuraciones. strSQL = " SELECT * FROM site_settings " oRs.Open strSQL, ObjConn strMostrarPopupHome = "N" If(Not oRs.EOF)Then strMostrarPopupHome = oRs("mostrar_popup_home") End If oRs.Close Function RecortarDatos(strString, iLimite) If ( len(strString) > iLimite ) Then RecortarDatos = Trim("" & left(strString, iLimite)) & "..." Else RecortarDatos = strString End If End Function Randomize() intRandomNumber = Int(1000*Rnd)+1 %> Tuning Pro - Extreme Site onload="popUp();"<%End If%>>
<% 'Traigo todas las notas que sean "Nota de Arriba" strSQLComm = "SELECT TOP 2 * FROM Notas WHERE id_categ_nota = 1 AND activo = 'Y' ORDER BY fecha DESC" oRs.Open strSQLComm, ObjConn If (Not oRs.EOF)Then iCant = 1 While (Not oRs.EOF) If ( oRs("link") <>"" ) Then strLink = oRs("link") Else strLink = "#" End If If (iCant = 1)Then%> /<%=oRs("foto")%>" height="90" width="90" border="0">

<%=oRs("titulo")%>

<% strDescripcion = oRs("descripcion")%> <%=RecortarDatos(strDescripcion, 165)%>

+ información <% Else %> /<%=oRs("foto")%>" height="90" width="90" border="0">

<%=oRs("titulo")%>

<% strDescripcion = oRs("descripcion")%> <%=RecortarDatos(strDescripcion, 165)%>

+ información <% End If %> <% iCant = iCant + 1 oRs.MoveNext Wend End If iCant = 0 oRs.Close %> <% 'Traigo todas las notas que sean "Nota de Arriba" strSQLComm = " SELECT TOP 4 MAX(PRO.imagen) AS imagen, CP.id_categ, P.nombre, P.precio, P.id_producto, P.fotochica " & _ " FROM (((Categ_productos AS CP INNER JOIN Productos AS P ON CP.id_categ = P.id_categ) " & _ " LEFT JOIN Productos_Promociones AS PPRO ON P.id_producto = PPRO.id_producto) " & _ " LEFT JOIN Promociones AS PRO ON PPRO.id_promocion = PRO.id_promocion) " & _ " WHERE P.es_promo = 'Y' AND P.activo = 'Y' " & _ " GROUP BY CP.id_categ, P.nombre, P.id_producto, P.fotochica, P.precio " & _ " ORDER BY Rnd(" & -1 * (intRandomNumber) & "*P.id_producto) " oRs.Open strSQLComm, ObjConn If (Not oRs.EOF)Then iCant = 0 While (Not oRs.EOF) iIdCateg = oRs("id_categ") iIdProducto = oRs("id_producto") If (iCant = 0)Then iStyleLeftA = 15 iStyleLeftP = 16 Else If (iCant = 1)Then iStyleLeftA = 151 iStyleLeftP = 152 Else iStyleLeftA = iStyleLeftA + 136 iStyleLeftP = iStyleLeftP + 136 End If End If %> /<%=oRs("fotochica")%>" height="130" width="130" border="0">

<%=RecortarDatos(oRs("nombre"), 37)%>

$ <%=FormatNumber("0" & oRs("precio"), 2)%>

<% iCant = iCant + 1 oRs.MoveNext Wend End If oRs.Close %> <% 'Traigo todas las notas que sean "Nota de Arriba" strSQLComm = " SELECT TOP 4 CP.id_categ, P.nombre, P.id_producto, P.fotochica " & _ " FROM Categ_productos AS CP INNER JOIN Productos AS P ON CP.id_categ = P.id_categ " & _ " WHERE P.es_novedad = 'Y' AND P.activo = 'Y' " & _ " ORDER BY Rnd(" & -1 * (intRandomNumber) & "*P.id_producto) " oRs.Open strSQLComm, ObjConn If (Not oRs.EOF)Then iCant = 0 While (Not oRs.EOF) iIdCateg = oRs("id_categ") iIdProducto = oRs("id_producto") If (iCant = 0)Then iStyleLeftA = 15 iStyleLeftP = 16 Else If (iCant = 1)Then iStyleLeftA = 151 iStyleLeftP = 152 Else iStyleLeftA = iStyleLeftA + 136 iStyleLeftP = iStyleLeftP + 136 End If End If %> /<%=oRs("fotochica")%>" height="130" width="130" border="0">

<%=RecortarDatos(oRs("nombre"), 37)%>

<% iCant = iCant + 1 oRs.MoveNext Wend End If oRs.Close %> Tuning Pro en los Medios Calendario de eventos Controlá tus envíos Venta telefónica Puntos de venta A.T.A. <% 'Traigo todas las notas que sean "Nota de Arriba" strSQLComm = " SELECT TOP 4 CP.id_categ, P.nombre, P.id_producto, P.fotochica " & _ " FROM Categ_productos AS CP INNER JOIN Productos AS P ON CP.id_categ = P.id_categ " & _ " WHERE P.es_oferta = 'Y' AND P.activo = 'Y' " & _ " ORDER BY Rnd(" & -1 * (intRandomNumber) & "*P.id_producto) " oRs.Open strSQLComm, ObjConn If (Not oRs.EOF)Then iCant = 0 While (Not oRs.EOF) iIdCateg = oRs("id_categ") iIdProducto = oRs("id_producto") If (iCant = 0)Then iStyleLeftA = 15 iStyleLeftP = 16 Else If (iCant = 1)Then iStyleLeftA = 151 iStyleLeftP = 152 Else iStyleLeftA = iStyleLeftA + 136 iStyleLeftP = iStyleLeftP + 136 End If End If %> /<%=oRs("fotochica")%>" height="130" width="130" border="0">

<%=RecortarDatos(oRs("nombre"), 37)%>

<% iCant = iCant + 1 oRs.MoveNext Wend End If oRs.Close %> <% 'Traigo todas las notas que sean "Nota de Arriba" strSQLComm = "SELECT TOP 2 * FROM Notas WHERE id_categ_nota = 2 AND activo = 'Y' ORDER BY fecha DESC" oRs.Open strSQLComm, ObjConn If (Not oRs.EOF)Then iCant = 1 While (Not oRs.EOF) If ( oRs("link") <>"" ) Then strLink = oRs("link") Else strLink = "#" End If If (iCant = 1)Then%> /<%=oRs("foto")%>" height="90" width="90" border="0">

<%=oRs("titulo")%>

<% strDescripcion = oRs("descripcion")%> <%=RecortarDatos(strDescripcion, 165)%>

+ información <% Else %> /<%=oRs("foto")%>" height="90" width="90" border="0">

<%=oRs("titulo")%>

<% strDescripcion = oRs("descripcion")%> <%=RecortarDatos(strDescripcion, 165)%>

+ información <% End If %> <% iCant = iCant + 1 oRs.MoveNext Wend End If iCant = 0 oRs.Close %> ¿Cómo Comprar? Formas de pago ¿Es seguro comprar online? ¿Comó se entregan
los productos? ¿En qué moneda estan
expresados los precios? ¿Existe seguro de compra? ¿Puedo Cambiar Productos? ¿Si necesito factura A? <% 'Traigo todas las notas que sean "Nota de Arriba" strSQLComm = "SELECT TOP 2 * FROM Notas WHERE id_categ_nota = 3 AND activo = 'Y' ORDER BY fecha DESC" oRs.Open strSQLComm, ObjConn If (Not oRs.EOF)Then iCant = 1 While (Not oRs.EOF) strFoto = oRs("foto") If ( oRs("link") <>"" ) Then strLink = oRs("link") Else strLink = "#" End If If (iCant = 1)Then%> /<%=strFoto%>" height="90" width="90" border="0">

<%=oRs("titulo")%>

<% strDescripcion = oRs("descripcion")%> <%=RecortarDatos(strDescripcion, 165)%>

+ información <% Else %> /<%=strFoto%>" height="90" width="90" border="0">

<%=oRs("titulo")%>

<% strDescripcion = oRs("descripcion")%> <%=RecortarDatos(strDescripcion, 165)%>

+ información <% End If %> <% iCant = iCant + 1 oRs.MoveNext Wend End If oRs.Close %> <% 'Traigo todas las notas que sean "Nota de Arriba" strSQLComm = "SELECT TOP 1 * FROM Notas WHERE id_categ_nota = 4 AND activo = 'Y' ORDER BY fecha DESC" oRs.Open strSQLComm, ObjConn If (Not oRs.EOF)Then While (Not oRs.EOF) strFoto = oRs("foto") If ( oRs("link") <>"" ) Then strLink = oRs("link") Else strLink = "#" End If %> /<%=strFoto%>" height="90" width="90" border="0">

<%=oRs("titulo")%>

<% strDescripcion = oRs("descripcion")%> <%=RecortarDatos(strDescripcion, 560)%>

+ información <% oRs.MoveNext Wend End If oRs.Close %>