<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim clave
clave = request("pass")
if clave <> "rockcenter25" then response.redirect "clave.asp"
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 'idRubro seleccionado
Public xM 'Marca Seleccionada
Public nCanMar 'Cuenta la cantidad de marcas
Public xDolar
cC = request("txtBuscado")
xR = request("RubroX" )
xM = request("MarcaX" )
conectar()
cargar_rubros_marcas()
llenar_recordset()
set dbDolar = Server.CreateObject("ADODB.Recordset")
queryDolar = "SELECT * FROM Varios"
dbDolar.open queryDolar,DSN,1
dbDolar.movefirst
xDolar = dbDolar("dolar")
dbdolar.close
set db = Server.CreateObject("ADODB.Recordset")
db.open query,dsn,1
%>
Rock Center - Instrumentos Musicales
<%
'response.Write(FormatNumber(Cdbl(replace(Cstr(db("PrecioPublico")),".",",")/100),2))
%>
<%
if cC <> "" and db.recordcount > 0 or xM <> "Todas" and db.recordcount > 0 or xR <> "Todos" and db.recordcount > 0 then
db.MoveFirst
Dim color
color = "#D7D7D7"
Do while not db.EOF
if color = "#D7D7D7" then
color="#F4F4F4"
else
color="#D7D7D7"
end if
if db("WebHabilitado") = "S" then
color = "A"
else
color = "B"
end if
%>
>
<%response.write("")%>
<%
if db("WebHabilitado") = "S" then
response.Write("")
else
response.Write("")
end if
%>
<%
'****************************************************************************
'* 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,400)
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 FROM Articulos ORDER BY MARCA" 'Abro la lista de precios ordenada por marca
db.open query,dsn,1
db.MoveFirst
Dim aMarcas(400) 'Array para cargar todas las marcas
Dim cMarcas 'Variable para guardar la marca actual y ver cuando cambia
cMarcas = ""
nCanMar = 0
Do while not db.EOF 'Recorro la tabla llenando la matriz de marcas y marcando en el array de rubros si este tiene artículos
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 400
if aRubros(1,i) = db("idRubro") then
aRubros(3,i) = "S"
end if
next
end if
db.MoveNext
loop
Session("aVSaMarcas") = aMarcas
Session("nMarcas") = nCanMar
db.close
Dim nCuantos
nCuantos = 0
for i = 1 to 400
if aRubros(3,i) = "S" then
nCuantos = nCuantos + 1
end if
next
'dim aRubros7()
redim aRubros7(2,nCuantos)
nIndice = 0
for i = 1 to 400
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, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE Marca ='NATIVO' ORDER BY Modelo"
elseif cC <> "" and xR = "Todos" and xM = "Todas" then
query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE Descripcion LIKE '%" & _
cC & "%' OR Marca LIKE '%" & cC & "%' OR Modelo LIKE '%" & cC & "%' OR Num_articu LIKE '%" & _
cC & "%' ORDER BY Marca"
elseif cC <> "" and xR <> "Todos" and xM = "Todas" then
query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE Descripcion LIKE '%" & _
cC & "%' AND idRubro ='" & xR & "' OR Marca LIKE '%" & cC & "%' AND idRubro ='" & xR & "' OR Modelo LIKE '%" & _
cC & "%' AND idRubro ='" & xR & "' OR Num_articu LIKE '%" & cC & "%' AND idRubro ='" & xR & "' ORDER BY Marca"
elseif cC <> "" and xR = "Todos" and xM <> "Todas" then
query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE Descripcion LIKE '%" & _
cC & "%' AND Marca ='" & xM & "' OR Marca LIKE '%" & cC & "%' AND Marca ='" & xM & "' OR Modelo LIKE '%" & _
cC & "%' AND Marca ='" & xM & "' OR Num_articu LIKE '%" & cC & "%' AND Marca ='" & xM & "' ORDER BY Marca"
elseif cC <> "" and xR <> "Todos" and xM <> "Todas" then
query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE Descripcion LIKE '%" & _
cC & "%' AND Marca ='" & xM & "' AND idRubro ='" & xR & "' OR Marca LIKE '%" & cC & "%' AND Marca ='" & xM & _
"' AND idRubro ='" & xR & "' OR Modelo LIKE '%" & cC & "%' AND Marca ='" & xM & "' AND idRubro ='" & xR & _
"' OR Num_articu LIKE '%" & cC & "%' AND Marca ='" & xM & "' AND idRubro ='" & xR & "' ORDER BY Marca"
elseif cC = "" and xR <> "Todos" and xM = "Todas" then
query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE idRubro ='" & xR & "' ORDER BY Marca"
elseif cC = "" and xR = "Todos" and xM <> "Todas" then
query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE Marca ='" & xM & "' ORDER BY Marca"
elseif cC = "" and xR <> "Todos" and xM <> "Todas" then
query = "SELECT WebMuestraPrecio, WebHabilitado, WebTieneFoto, Id, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico FROM Articulos WHERE idRubro ='" & xR & "' AND Marca ='" & xM & "' ORDER BY Marca"
end if
end Function
%>
