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