 |
 |
 |
<%
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.4.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 |
|
|