<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if session("CLAVE") = "" then ' Empezamos el random... randomize ' cambiar el valor de la siguiente variable para... ' modificar la longitud del código que generaremos largo_del_codigo = 10 For contador = 1 to largo_del_codigo ' hacemos random entre 97 y 122. numero = Int(26 * Rnd + 97) ' tomamos el numero y lo cambiamos por la letra letra = Chr(numero) ' Agregamos la nueva letra codigo = codigo & letra next session("CLAVE") = codigo end if '**************************************************************************** Public DSN Public aMarcas7 'Public aVSaMarcas Public aRubros7 'Public aVSaRubros Public nIndice 'Public aVSIndice Public query Public cC 'Texto de la búsqueda Public xR 'Rubro seleccionado Public xM 'Marca Seleccionada Public nCanMar 'Cuenta la cantidad de marcas Public xDolar Public xO Public Orden especial = request("esp") cC = request("txtBuscado") xR = request("RubroX" ) xM = request("MarcaX" ) xO = request("Orden" ) if xO=1 then Orden = "Marca" elseif xO=2 then Orden = "Modelo" elseif xO=3 then Orden = "PrecioPublico DESC" elseif xO=4 then Orden = "PrecioPublico" elseif xO="" then Orden = "Marca" end if conectar() set dbDolar = Server.CreateObject("ADODB.Recordset") queryDolar = "SELECT * FROM Varios" dbDolar.open queryDolar,DSN,1 dbDolar.movefirst xDolar = dbDolar("dolar") dbDolar.close cargar_rubros_marcas() llenar_recordset() set db = Server.CreateObject("ADODB.Recordset") db.open query,dsn,1 Dim CantidadDePantallas if db.recordcount > 0 then CantidadDePantallas = db.recordcount / 10 if CantidadDePantallas > int(CantidadDePantallas) then CantidadDePantallas = CantidadDePantallas+1 end if end if NdP2 = request("Ndp") ' Indica el numero de pantalla if NdP2="" or NdP2 < 1 then NdP2=1 elseif NdP2 > CantidadDePantallas then NdP2 = CantidadDePantallas - 1 end if %> Rock Center- Instrumentos Musicales
   
COLOQUE LA DESCRIPCIÓN
SELECCIONE EL RUBRO
SELECCIONE LA MARCA
ORDENADO POR
>
Rubro: <%=xR%>
Marca: <%=xM%>
Texto: <%=cC%>
Orden: <%=Orden%>
**LOS PRECIOS PUEDEN ESTAR DESACTUALIZADOS, POR FAVOR CONFIRMELOS TELEFONICAMENTE O POR EMAIL**
Edita los articulos
se encontraron <%=db.recordcount%> registros
Páginas: < <% ' if db.recordcount > 0 then ' CantidadDePantallas = db.recordcount / 10 ' if CantidadDePantallas > int(CantidadDePantallas) then ' CantidadDePantallas = CantidadDePantallas+1 ' end if for a=1 to CantidadDePantallas if a=NdP2 then response.Write("" & a & "") else response.Write(""& a &"") end if next ' end if %> >
<%response.Write("")%>
<% if cC <> "" and db.recordcount > 0 or xM <> "Todas" and db.recordcount > 0 or xR <> "Todos" and db.recordcount > 0 then db.MoveFirst '------------------------------------------------------------------------------- 'Busca la pantalla que se le indica con NdP if NdP2<>1 then for a=1 to db.recordcount if NdP2=(a/10)+1 then a=db.recordcount 'Fuerza la finalización db.movenext else db.movenext end if next end if '------------------------------------------------------------------------------- Dim color color = "#D7D7D7" dim vCant vCant = 0 Do while not db.EOF and vCant < 10 vCant = vCant + 1 if color = "#D7D7D7" then color="#F4F4F4" else color="#D7D7D7" end if %> <% db.MoveNext loop db.close end if %>
Código Marca Modelo Descripción    
6 pagos
$
  
"> <% 'if db("WebTieneFoto") = "S" then %> .jpg" width="80" border="0"> <% 'else ' response.write("No hay foto en el archivo") 'end if %> "> <% response.Write(db("Num_articu")&" ") %> "> <% response.Write(db("Marca")) %> "> <% response.Write(db("Modelo")) %> ">"> <%response.Write(db("Descripcion"))%>
<% response.write("Agregar al Presupuesto") %>
6 Pagos
<% if db("Moneda") = "U" or db("Moneda") = "U$S" then if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(((db("PrecioPublico") * 1.15 * xDolar/6)/100),0)) else response.Write("Consultar ") end if else if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(((db("PrecioPublico") * 1.15 /6)/100),2)) else response.Write("Consultar ") end if end if %>
Contado
<% if db("Moneda") = "U" or db("Moneda") = "U$S"then if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(((db("PrecioPublico") * 1 *xDolar)/100),0)) else response.Write("Consultar ") end if else if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(((db("PrecioPublico") * 1 )/100),2)) else response.Write("Consultar ") end if end if %>
<%response.Write(replace(replace(replace(left(db("FichaTecnica"),300),"<",""),">",""),"br",""))%> ...
Páginas: < <% ' if db.recordcount > 0 then ' CantidadDePantallas = db.recordcount / 10 ' if CantidadDePantallas > int(CantidadDePantallas) then ' CantidadDePantallas = CantidadDePantallas+1 ' end if for a=1 to CantidadDePantallas if a=NdP2 then response.Write("" & a & "") else response.Write(""& a &"") end if next ' end if %> >
RockCenter®. Talcahuano 180, Buenos Aires, Argentina. Tel: (54-11) 4381-8518 | Copyright 2006 - RockCenter.com.ar
Todos los derechos reservados | info@rockcenter.com.ar | Desarrollado por •• ivang & Heaven ••
<% '**************************************************************************** '* SECCION: F U N C I O N E S * '**************************************************************************** function conectar() 'Conexion a la base de datos DSN = "Driver={Mysql}; Server=mysql.rockcenter.com.ar;" &_ "Database=rockcenter;" &_ "UID=rockcenter;" &_ "PWD=ffa4tg8" end function function cargar_rubros_marcas() if Session("nMarcas") = 0 then 'Cargo todos los rubros en un array de 3 columnas (Numero, Nombre, Existe) dim aRubros(3,100) dim nn nn = 0 set dbr = Server.CreateObject("ADODB.Recordset") query = "SELECT * FROM Rubro ORDER by Nombre" ' Abro la tabla rubros dbr.open query,dsn,1 dbr.movefirst do while not dbr.EOF 'recorro la tabla llenando la matriz nn = nn + 1 aRubros(1, nn) = dbr("Numero") aRubros(2, nn) = dbr("Nombre") dbr.movenext loop dbr.close 'cierro el recordset set db = Server.CreateObject("ADODB.Recordset") '------------------------Llena las MARCAS query = "SELECT Marca, idRubro, WebHabilitado FROM Articulos ORDER BY MARCA" 'Abro la lista de precios ordenada por marca db.open query,dsn,1 db.MoveFirst Dim aMarcas(2000) 'Array para cargar todas las marcas Dim cMarcas 'Variable para guardar la marca actual y ver cuando cambia cMarcas = "" nCanMar = 0 'Recorro la tabla llenando la matriz de marcas y marcando en el array de rubros si este tiene artículos Do while not db.EOF if db("WebHabilitado") = "S" then if cMarcas <> db("Marca") then nCanMar = nCanMar + 1 cMarcas = db("Marca") aMarcas(nCanMar) = db("Marca") 'busco el RUBRO en el array, y si la encuentro completo la tercer columna con "S" for i = 1 to 100 if aRubros(1,i) = db("idRubro") then aRubros(3,i) = "S" end if next end if end if db.MoveNext loop Session("aVSaMarcas") = aMarcas Session("nMarcas") = nCanMar db.close Dim nCuantos nCuantos = 0 for i = 1 to 100 if aRubros(3,i) = "S" then nCuantos = nCuantos + 1 end if next 'dim aRubros7() redim aRubros7(2,nCuantos) nIndice = 0 for i = 1 to 100 if aRubros(3,i) = "S" then nIndice = nIndice + 1 aRubros7(1,nIndice) = aRubros(1,i) aRubros7(2,nIndice) = aRubros(2,i) end if next session("aVSIndice") = nIndice session("aVSaRubros") = aRubros7 end if nCanMar = Session("nMarcas" ) aMarcas7 = Session("aVSaMarcas") nIndice = session("aVSIndice" ) aRubros7 = session("aVSaRubros") end Function Function llenar_recordset() if cC = "" and xR = "Todos" and xM = "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE Marca ='NATIVO' AND WebHabilitado = 'S' ORDER BY " & Orden elseif cC <> "" and xR = "Todos" and xM = "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE Descripcion LIKE '%" & _ cC & "%' AND WebHabilitado = 'S' OR Marca LIKE '%" & cC & "%' AND WebHabilitado = 'S' OR Modelo LIKE '%" & cC _ & "%' AND WebHabilitado = 'S' OR Num_articu LIKE '%" & cC & "%' AND WebHabilitado = 'S' ORDER BY " & Orden elseif cC <> "" and xR <> "Todos" and xM = "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE Descripcion LIKE '%" & _ cC & "%' AND idRubro ='" & xR & "' AND WebHabilitado = 'S' OR Marca LIKE '%" & cC & "%' AND idRubro ='" & xR _ & "' AND WebHabilitado = 'S' OR Modelo LIKE '%" & cC & "%' AND idRubro ='" & xR _ & "' AND WebHabilitado = 'S' OR Num_articu LIKE '%" & cC & "%' AND idRubro ='" & xR & "' AND WebHabilitado = 'S' ORDER BY " & Orden elseif cC <> "" and xR = "Todos" and xM <> "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE Descripcion LIKE '%" & _ cC & "%' AND Marca ='" & xM & "' AND WebHabilitado = 'S' OR Marca LIKE '%" & cC & "%' AND Marca ='" & xM _ & "' AND WebHabilitado = 'S' OR Modelo LIKE '%" & cC & "%' AND Marca ='" & xM & _ "' AND WebHabilitado = 'S' OR Num_articu LIKE '%" & cC & "%' AND Marca ='" & xM & "' AND WebHabilitado = 'S' ORDER BY " & Orden elseif cC <> "" and xR <> "Todos" and xM <> "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE Descripcion LIKE '%" & _ cC & "%' AND Marca ='" & xM & "' AND idRubro ='" & xR & "' AND WebHabilitado = 'S' OR Marca LIKE '%" & cC & _ "%' AND Marca ='" & xM & "' AND idRubro ='" & xR & "' AND WebHabilitado = 'S' OR Modelo LIKE '%" & cC & _ "%' AND Marca ='" & xM & "' AND idRubro ='" & xR & "' AND WebHabilitado = 'S' OR Num_articu LIKE '%" & cC & _ "%' AND Marca ='" & xM & "' AND idRubro ='" & xR & "' AND WebHabilitado = 'S' ORDER BY " & Orden elseif cC = "" and xR <> "Todos" and xM = "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE idRubro ='" & xR & _ "' AND WebHabilitado = 'S' ORDER BY " & Orden elseif cC = "" and xR = "Todos" and xM <> "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE Marca ='" & xM & _ "' AND WebHabilitado = 'S' ORDER BY " & Orden elseif cC = "" and xR <> "Todos" and xM <> "Todas" then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE idRubro ='" & xR & _ "' AND Marca ='" & xM & "' AND WebHabilitado = 'S' ORDER BY " & Orden end if if especial = 1 then query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica FROM Articulos WHERE Descripcion LIKE '%Orgenao%' OR Descripcion LIKE '%Teclado%' OR Descripcion LIKE '%Sintetizzador%' AND WebHabilitado = 'S' ORDER BY " & Orden end if end Function %>