<%@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 Public EsCom if request("pass") = "getcomercio" then EsCom = "S" else EsCom="N" end if 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 = "Precio_CIO DESC" elseif xO=4 then Orden = "Precio_CIO" elseif xO="" then Orden = "Marca" end if 'conectar() DSN = "Driver={Mysql}; Server=192.168.0.57;" &_ "Database=jamsession;" &_ "UID=jamsession;" &_ "PWD=jam2525" 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 %> get back . music Store
Home Quiénes Somos Productos Ubicación Contacto

"Acepto el caos. Pero no estoy seguro de que el caos me acepte a mi."

Bob Dylan

:: Productos  
<% 'response.Write(EsCom & " *****
") if EsCom = "S" then %> <% End if %>
Coloque la descripción
Seleccione el Rubro
Seleccione la Marca
Valor del Dolar <%=xDolar%>
Ordenado por
Rubro: <%=xR%>
Marca: <%=xM%>
Texto: <%=cC%>
Orden: <%=Orden%>
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 %> >
<% if EsCom = "S" then response.Write("") else response.Write("") end if %>
<% 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
$
"> <% if db("Web_Foto") = "S" then response.write("Muestra la Foto") end if %> " class="prod"> <% response.Write(db("Num_articu")&" .") %> " class="prod"> " class="prod"> <% response.Write(db("Marca")) %> " class="prod"> " class="prod"> <% response.Write(db("Modelo")) %> " class="prod"> <%response.Write(db("Descripcio"))%>
<% response.write("Agregar al Presupuesto") %>
  <% if db("Moneda") = "U" or db("Moneda") = "U$S"then if db("Web_Precio") = "S" then if EsCom="S" then response.Write(FormatNumber(((db("Precio_cio") * xDolar)/1),2)) else response.Write(FormatNumber(((db("Precio_Pco") * xDolar)/1),2)) end if else response.Write("Consultar ") end if else if db("Web_Precio") = "S" then if EsCom="S" then response.Write(FormatNumber((db("Precio_cio")/1),2)) else response.Write(FormatNumber((db("Precio_Pco")/1),2)) end if else response.Write("Consultar ") end if end if %>
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 %> >

   

Get back music Store 2008
Todos los derechos reservados
Talcahuano 164 (C1013AAD) Capital Federal
Tel: 4373 - 7979
info@get-back.com.ar

Otra pagina de Heaven

<% '**************************************************************************** '* SECCION: F U N C I O N E S * '**************************************************************************** 'function conectar() 'Conexion a la base de datos 'DSN = "Driver={Mysql}; Server=200.32.5.57;" &_ ' "Database=jamsession;" &_ ' "UID=jamsession;" &_ ' "PWD=jam2525" '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, Rubro, Web_Habili FROM LISTA ORDER BY MARCA" 'Abro la lista de precios ordenada por marca db.open query,dsn,1 db.MoveFirst Dim aMarcas(100) '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("Web_Habili") = "S" then if cMarcas <> trim(db("Marca")) then nCanMar = nCanMar + 1 cMarcas = trim(db("Marca")) aMarcas(nCanMar) = trim(db("Marca")) 'busco el RUBRO en el array, y si la encuentro completo la tercer columna con "S" end if for i = 1 to 100 if db("Rubro") <> "" then if aRubros(1,i) = db("Rubro") then aRubros(3,i) = "S" end if end if next 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 Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Marca ='NATIVO' AND Web_Habili = 'S' ORDER BY " & Orden elseif cC <> "" and xR = "Todos" and xM = "Todas" then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Descripcio LIKE '%" & _ cC & "%' AND Web_Habili = 'S' OR Marca LIKE '%" & cC & "%' AND Web_Habili = 'S' OR Modelo LIKE '%" & cC _ & "%' AND Web_Habili = 'S' OR Num_articu LIKE '%" & cC & "%' AND Web_Habili = 'S' ORDER BY " & Orden elseif cC <> "" and xR <> "Todos" and xM = "Todas" then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Descripcio LIKE '%" & _ cC & "%' AND Rubro ='" & xR & "' AND Web_Habili = 'S' OR Marca LIKE '%" & cC & "%' AND Rubro ='" & xR _ & "' AND Web_Habili = 'S' OR Modelo LIKE '%" & cC & "%' AND Rubro ='" & xR _ & "' AND Web_Habili = 'S' OR Num_articu LIKE '%" & cC & "%' AND Rubro ='" & xR & "' AND Web_Habili = 'S' ORDER BY " & Orden elseif cC <> "" and xR = "Todos" and xM <> "Todas" then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Descripcio LIKE '%" & _ cC & "%' AND Marca ='" & xM & "' AND Web_Habili = 'S' OR Marca LIKE '%" & cC & "%' AND Marca ='" & xM _ & "' AND Web_Habili = 'S' OR Modelo LIKE '%" & cC & "%' AND Marca ='" & xM & _ "' AND Web_Habili = 'S' OR Num_articu LIKE '%" & cC & "%' AND Marca ='" & xM & "' AND Web_Habili = 'S' ORDER BY " & Orden elseif cC <> "" and xR <> "Todos" and xM <> "Todas" then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Descripcio LIKE '%" & _ cC & "%' AND Marca ='" & xM & "' AND Rubro ='" & xR & "' AND Web_Habili = 'S' OR Marca LIKE '%" & cC & _ "%' AND Marca ='" & xM & "' AND Rubro ='" & xR & "' AND Web_Habili = 'S' OR Modelo LIKE '%" & cC & _ "%' AND Marca ='" & xM & "' AND Rubro ='" & xR & "' AND Web_Habili = 'S' OR Num_articu LIKE '%" & cC & _ "%' AND Marca ='" & xM & "' AND Rubro ='" & xR & "' AND Web_Habili = 'S' ORDER BY " & Orden elseif cC = "" and xR <> "Todos" and xM = "Todas" then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Rubro ='" & xR & _ "' AND Web_Habili = 'S' ORDER BY " & Orden elseif cC = "" and xR = "Todos" and xM <> "Todas" then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Marca ='" & xM & _ "' AND Web_Habili = 'S' ORDER BY " & Orden elseif cC = "" and xR <> "Todos" and xM <> "Todas" then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Rubro ='" & xR & _ "' AND Marca ='" & xM & "' AND Web_Habili = 'S' ORDER BY " & Orden end if if especial = 1 then query = "SELECT Web_Precio, Web_Habili, Web_Foto, Id, Num_articu, Moneda, Marca, Modelo, Descripcio, Precio_CIO, Precio_pco From LISTA WHERE Descripcio LIKE '%Orgenao%' OR Descripcio LIKE '%Teclado%' OR Descripcio LIKE '%Sintetizzador%' AND Web_Habili = 'S' ORDER BY " & Orden end if end Function %>