e-mail

Alta

Baja

Editar

<% sSQL="SELECT * FROM enlaces WHERE categoria='"&request.QueryString("categoria")&"'ORDER BY Descripcion ASC" 'constantes ADO VBScript 'Const adCmdText = &H0001 'Const adOpenStatic = 3 If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If%>

<%cat=request.QueryString("categoria")%>

<%=request.QueryString("categoria")%>

<% If RS.EOF AND RS.BOF Then%>

No hay ningún enlace en este momento

<%else num_registros=20 RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") While (Not RS.eof AND registros_mostrados < num_registros) registros_mostrados=registros_mostrados+1 capas=capas+1 %> <%if capas=2 then%> <%capas=0 end if%> <% RS.MoveNext Wend %> <% Wend End if RS.Close Conn.Close %>