Here you will find tons of free resources to use with your children. To help offset the costs to pay for hosting, graphics, etc...CD's and downloadable materials are on sale in the Products section.
Thanks to your very generous support, Ingles360º can continue offering FREE RESOURCES FOR YOUR EVERY DAY CLASSWORK. This year the free resources were sorted for better organization.
<%
if cat2 <> "" and db.recordcount > 0 then
%>
// esto se ve si se realizÓ UNA busqueda o se ingresó a una categoria se ve asi//
SEARCH RESULTS / category view
<%
a = 1
do while not db.eof
if a = 1 then response.Write("
<%
'****************************************************************************
'* SECCION: F U N C I O N E S *
'****************************************************************************
function conectar()
'Conexion a la base de datos
dsn = "Driver={Mysql}; Server=192.168.0.59;" &_
"Database=dbgabriela;" &_
"UID=gg;" &_
"PWD=gg25"
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 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
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 100
if aRubros(1,i) = db("Rubro") 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 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 * From Lista ORDER BY Modelo"
elseif cC <> "" and xR = "Todos" and xM = "Todas" then
query = "SELECT * From Lista WHERE Descripcion LIKE '%" & _
cC & "%' OR Marca LIKE '%" & cC & "%' OR Modelo LIKE '%" & cC & "%' OR Codigo LIKE '%" & _
cC & "%' ORDER BY Marca"
elseif cC <> "" and xR <> "Todos" and xM = "Todas" then
query = "SELECT * From Lista WHERE Descripcion LIKE '%" & _
cC & "%' AND Rubro ='" & xR & "' OR Marca LIKE '%" & cC & "%' AND Rubro ='" & xR & "' OR Modelo LIKE '%" & _
cC & "%' AND Rubro ='" & xR & "' OR Codigo LIKE '%" & cC & "%' AND Rubro ='" & xR & "' ORDER BY Marca"
elseif cC <> "" and xR = "Todos" and xM <> "Todas" then
query = "SELECT * From Lista WHERE Descripcion LIKE '%" & _
cC & "%' AND Marca ='" & xM & "' OR Marca LIKE '%" & cC & "%' AND Marca ='" & xM & "' OR Modelo LIKE '%" & _
cC & "%' AND Marca ='" & xM & "' OR Codigo LIKE '%" & cC & "%' AND Marca ='" & xM & "' ORDER BY Marca"
elseif cC <> "" and xR <> "Todos" and xM <> "Todas" then
query = "SELECT * From Lista WHERE Descripcion LIKE '%" & _
cC & "%' AND Marca ='" & xM & "' AND Rubro ='" & xR & "' OR Marca LIKE '%" & cC & "%' AND Marca ='" & xM & _
"' AND Rubro ='" & xR & "' OR Modelo LIKE '%" & cC & "%' AND Marca ='" & xM & "' AND Rubro ='" & xR & _
"' OR Codigo LIKE '%" & cC & "%' AND Marca ='" & xM & "' AND Rubro ='" & xR & "' ORDER BY Marca"
elseif cC = "" and xR <> "Todos" and xM = "Todas" then
query = "SELECT * From Lista WHERE Rubro ='" & xR & "' ORDER BY Marca"
elseif cC = "" and xR = "Todos" and xM <> "Todas" then
query = "SELECT * From Lista WHERE Marca ='" & xM & "' ORDER BY Marca"
elseif cC = "" and xR <> "Todos" and xM <> "Todas" then
query = "SELECT * From Lista WHERE Rubro ='" & xR & "' AND Marca ='" & xM & "' ORDER BY Marca"
end if
end Function
%>
Access
