 |
 |
 |
<%
Dim rssubcategorias2
Set rssubcategorias2 = Server.CreateObject("ADODB.Recordset")
TamanoPagina = 40
If Request.QueryString("pagina") = "" Then
PaginaActual = 1
Else
PaginaActual = CInt(Request.QueryString("pagina"))
End If
rssubcategorias2.PageSize = TamanoPagina
rssubcategorias2.CacheSize = TamanoPagina
str="select subcategoriaweb2.id_subcategoriaweb2,subcategoriaweb2.[descripcion subcategoria],subcategoriaweb.descripcionsubcategoriaweb,subcategoriaweb.id_categoriaweb from subcategoriaweb2,subcategoriaweb where subcategoriaweb2.id_subcategoriaweb="&Request.QueryString("id_subcategoria")&" and subcategoriaweb2.id_subcategoriaweb=subcategoriaweb.id_subcategoriaweb;"
'Response.Write str
set rssubcategorias2= cnx.Execute(str)
'rssubcategorias2.Open str, DB_CONNSTRING, adOpenStatic, adLockReadOnly, adCmdText
if rssubcategorias2.EOF then
Response.Write "No hay datos"
else
select case rssubcategorias2("id_categoriaweb")
case "3"
colorCategoria="#003333"
flecha="flechaverde.gif"
case "4"
colorCategoria="#003399"
flecha="flechaazul.gif"
case "5"
colorCategoria="#cc3333"
flecha="flecharoja.gif"
case "6"
colorCategoria="#ff8000"
flecha="flechanaranja.gif"
case "7"
colorCategoria="#cc3333"
flecha="flecharoja.gif"
end select
NumeroPaginas = rssubcategorias2.PageCount
If PaginaActual > NumeroPaginas Then PaginaActual = NumeroPaginas
If PaginaActual < 1 Then PaginaActual = 1
If NumeroPaginas = 0 Then
Response.Write "No hay Subcategorias disponibles en este momento, intentelo otro día. Disculpe las molestias. "
Else
' rssubcategorias2.AbsolutePage = PaginaActual
%>
<%RegistroMostrado = 0
categoriaactual=""
categoriaanterior=""%>
|
|
Para una visualización correcta de esta Web, le recomendamos
que use Microsoft Internet Explorer v.5.0 ó superior, a una resolución
de 800x600 pixels y color de alta densidad (16 bits).
| |
| |
|
| planchas
goma caucho plastico todogoma ferreteria depuradoras piscina aire comprimido
compresores accesorios seguridad bombas desbrozadoreas cortacesped electrovalvulas
polietileno aspersores goteros microaspersores mallas cortasetos motoazadas
cascos guantes ropa de agua valvulas pvc tienda catalogo proteccion seguridad
manguera ropa sevilla españa andalucia maquinaria agricola jardin piscina
hormigonera grupo electrogeno motosoldador elevador espuertas escaleras
grifos cajas papeleras contenedores sombreo conteras cepillos pavimentos
y planchas tuberias | |
|
|