PCTienda - <%=cateDescripcion%>

<% categoria = Request("id") orden = Request("ord") filtro = Request("fil") if len(orden) <= 0 then orden = "preA" if len(filtro) <= 0 then filtro = "tod" call abrirBaseDatosAccess() set tabla = Server.CreateObject("ADODB.RecordSet") tabla.open "SELECT * FROM tCategorias WHERE cate_codig = " & categoria, dbConexion if tabla.eof then tabla.close tabla.open "SELECT * FROM tCategorias ORDER BY cate_codig", dbConexion categoria = tabla.fields("cate_codig") end if cateDescripcion = tabla.fields("cate_descr") cateImagen = tabla.fields("cate_image") tabla.close set tabla = nothing %> PCTienda - <%=cateDescripcion%>

Inicio

Registro

Términos y Condiciones

Centros de Servicio

<% if orden = "preA" then %> <% else %> <% end if if orden = "preD" then %> <% else %> <% end if if orden = "nom" then %> <% else %> <% end if %>

Ordenar por

Menor precio

Mayor precio

Nombre

<% if filtro = "tod" then %> <% else %> <% end if %> <% sql = "SELECT DISTINCT P.marc_codig, M.marc_nombr " sql = sql & " FROM tProductos AS P, tMarcas AS M WHERE P.cate_codig = " & categoria & " AND P.prod_dispo = 'Si'" sql = sql & " AND P.marc_codig = M.marc_codig ORDER BY M.marc_nombr" set tMarcas = Server.CreateObject("ADODB.RecordSet") tMarcas.open sql, dbConexion while not tMarcas.eof %> <% if filtro <> "tod" AND filtro = cStr(tMarcas.fields("marc_codig")) then %> <% else %> <% end if %> <% tMarcas.movenext wend tMarcas.close set tMarcas = nothing %>

Filtrar por Marca

Ver todas

<%=tMarcas.fields("marc_nombr")%>

"><%=tMarcas.fields("marc_nombr")%>

<% dim fila, columna set tabla = Server.CreateObject("ADODB.RecordSet") sqlP = "SELECT * FROM tProductos WHERE cate_codig = " & categoria & " AND prod_dispo = 'Si'" if filtro <> "tod" then sqlP = sqlP & " AND marc_codig = " & filtro select case (orden) case "nom": sqlP = sqlP & " ORDER BY prod_nombr" case "preA": sqlP = sqlP & " ORDER BY prod_preci" case "preD": sqlP = sqlP & " ORDER BY prod_preci DESC" case else: sqlP = sqlP & " ORDER BY prod_preci" end select tabla.open sqlP, dbConexion fila = true columna = 1 while not tabla.eof if fila then %> <% end if %> <% end if if columna = 2 then columna = 1 fila = true else fila = false columna = columna + 1 end if tabla.movenext wend %>

&ord=<%=orden%>&fil=<%=filtro%>" class="textoNegro10N"> " border="1" />	<%=tabla.fields("prod_nombr")%> &ord=<%=orden%>&fil=<%=filtro%>" class="textoMagenta10N">Más detalles
	Bs <%=FormatNumber(tabla.fields("prod_preci"),2)%>

<% if columna = 2 then %>

<% set tabla = Server.CreateObject("ADODB.RecordSet") tabla.open "SELECT * FROM tCategorias ORDER BY cate_orden", dbConexion fila = true columna = 1 while not tabla.eof if fila then %> <% end if if tabla.fields("cate_codig") <> cInt(categoria) then %> <% else %> <% end if if columna < 3 then %> <% end if if columna = 3 then %> <% end if if columna = 3 then columna = 1 fila = true else fila = false columna = columna + 1 end if tabla.movenext wend tabla.close set tabla = nothing call cerrarBaseDatos() %>


Categorías

" class="textoNegro12N"><%=tabla.fields("cate_descr")%>	<%=tabla.fields("cate_descr")%>	\|