 |
 |
 |
<%
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=""%>
La
delegación de Sevilla
situada en C/Adriano permanecerá
cerrada al público por reformas,
les seguimos atendiendo en Pol.
Calonge C./ Aviación 11,13 y
15 o en el teléfono
+34 954 35 99 40
|
|
|
 Lider
en la distribución y almacenaje: |
|
| Jardinería,
Protección y Seguridad, Artículos
Industriales de Caucho, Maquinaria,
material para Cosntrucción. |
|
|
|
|
|
|
Añada a Todogoma.es en su lista de Webs
favoritas:
|
|
|
|
|
|
|
|
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 |
|
|
|
|