Delegado en la provincia de Jaen

<% 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=""%>

Delegación de Jaen

Delegado Comercial: Miguel A. Cuadrado

Tlf:954 359940 Movil: 606 343 463

Exposición Almcen Central (Sevilla)

Atención Online

| | | contactar

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