<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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 cC = request.Form("txtBuscado") xR = request.Form("RubroX" ) xM = request.Form("MarcaX" ) nuId = request("Cual") 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 query = "SELECT WebMuestraPrecio, Id, IDC, Num_articu, Moneda, Marca, Modelo, Descripcion, PrecioPublico, FichaTecnica, WebTieneFoto, Video FROM Articulos WHERE Id=" & nuId 'query = "SELECT * FROM Articulos WHERE Id=958" set db = Server.CreateObject("ADODB.Recordset") db.open query,dsn,1 %> Rock Center - Instrumentos Musicales
   
>
<% 'if db("WebTieneFoto") = "S" then %> ','','scrollbars=yes,resizable=yes,width=500,height=500')">.jpg" width="250" border="0"> <% 'else ' response.write("No hay foto en el archivo") 'end if %>
<%response.Write("Ver Carrito")%>
<% response.write("Agregar al Presupuesto") %>
Codigo <%= db("Num_articu") %>
Marca <%= db("Marca") %>
Modelo <%= db("modelo") %>
Descripción <%= db("Descripcion") %>

6 Cuotas c/tarjeta de

$ <% if db("Moneda") = "U" or db("Moneda") = "U$S" then if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr((db("PrecioPublico") * 1.15 * xDolar )/6),".",",")/100),2)) else response.Write("Consultar") end if else if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr(db("PrecioPublico") * 1.15 / 6),".",",")/100),2)) else response.Write("Consultar") end if end if %>
Precio contado $ <% if db("Moneda") = "U" or db("Moneda") = "U$S" then if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr((db("PrecioPublico") * 1 * xDolar )),".",",")/100),2)) else response.Write("Consultar") end if else if db("WebMuestraPrecio") = "S" then response.Write(FormatNumber(Cdbl(replace(Cstr(db("PrecioPublico") * 1 ),".",",")/100),2)) else response.Write("Consultar") end if end if %>
','','scrollbars=yes,resizable=yes,width=640,height=600')"> CONSULTA POR ESTE ARTICULO,
Click aq
<%if db("Video")<>"" then response.Write("")%>



** Los precios pueden estar desactualizados, por favor confirmelos telefónicamente o por email **

<%= db("FichaTecnica") %>
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 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 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 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 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 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 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 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 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 FROM Articulos WHERE Descripcion LIKE '%Orgenao%' OR Descripcion LIKE '%Teclado%' OR Descripcion LIKE '%Sintetizzador%' AND WebHabilitado = 'S' ORDER BY " & Orden end if end Function %>