Comparación de datos
Publicado por Panamanian (4 intervenciones) el 10/05/2005 20:53:06
MUY BUENAS, tengo el siguiente código y no me funciona. =(
es simplemente una página que me muestra los registros de 2 en 2, pero cuando ya no hay más páginas quiero que NO me aparezca el link de "SIGUIENTE". Comparo si el total de páginas necesarias es mayor a la página actual (si se cumple que aparezca el link de siguiente, sino que no aparezca).
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<html>
<%
Const adCmdText = &H0001
Const adOpenStatic = 3
strDSN = "DSN=rony"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDSN
Set rsemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Ename From Emp"
rsemp.Open strSQL, cn, adOpenStatic, adcmdtext
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina") = 1
End If
num_registros = 2
rsemp.PageSize=num_registros
rsemp.AbsolutePage=Session("pagina")
%>
<body>
Número de página actual: <b><%=Session("pagina")%></b>
<br>
Número de páginas total: <b><%=rsemp.PageCount%></b>
<br>
Número de registros por página: <b><%=rsemp.PageSize%></b>
<br>
Número de registros seleccionados: <b><%=rsemp.RecordCount%></b>
</div>
<br><br>
<%
num_campos=rsemp.Fields.Count
registros_mostrados = 0
While (Not rsemp.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados + 1
%>
<%=rsemp("Ename")%>
</br>
<%
rsemp.MoveNext
Wend
%>
<%if rsemp.PageCount > Session("Pagina") then%>
<b><a href="paginar.asp?pag=<%=Session("pagina") + 1%>">Siguiente</a></b>
<%End If%>
<%
rsemp.Close
cn.Close
%>
</body>
</html>
es simplemente una página que me muestra los registros de 2 en 2, pero cuando ya no hay más páginas quiero que NO me aparezca el link de "SIGUIENTE". Comparo si el total de páginas necesarias es mayor a la página actual (si se cumple que aparezca el link de siguiente, sino que no aparezca).
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<html>
<%
Const adCmdText = &H0001
Const adOpenStatic = 3
strDSN = "DSN=rony"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDSN
Set rsemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Ename From Emp"
rsemp.Open strSQL, cn, adOpenStatic, adcmdtext
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina") = 1
End If
num_registros = 2
rsemp.PageSize=num_registros
rsemp.AbsolutePage=Session("pagina")
%>
<body>
Número de página actual: <b><%=Session("pagina")%></b>
<br>
Número de páginas total: <b><%=rsemp.PageCount%></b>
<br>
Número de registros por página: <b><%=rsemp.PageSize%></b>
<br>
Número de registros seleccionados: <b><%=rsemp.RecordCount%></b>
</div>
<br><br>
<%
num_campos=rsemp.Fields.Count
registros_mostrados = 0
While (Not rsemp.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados + 1
%>
<%=rsemp("Ename")%>
</br>
<%
rsemp.MoveNext
Wend
%>
<%if rsemp.PageCount > Session("Pagina") then%>
<b><a href="paginar.asp?pag=<%=Session("pagina") + 1%>">Siguiente</a></b>
<%End If%>
<%
rsemp.Close
cn.Close
%>
</body>
</html>
Valora esta pregunta
0