Ver Mensaje Individual
  #14 (permalink)  
Antiguo 06/07/2005, 12:16
Avatar de chidomen
chidomen
 
Fecha de Ingreso: enero-2005
Ubicación: aquí
Mensajes: 380
Antigüedad: 19 años, 10 meses
Puntos: 0
cmd.CommandText = strSql2
Set rs2 = Server.CreateObject("ADODB.Recordset")

rs2.CursorLocation = adUseClient
rs2.PageSize = iPageSize2

rs2.Open cmd

Select Case rs2.EOF
Case False
strPageCount2 = rs2.PageCount
strCounts = rs2.RecordCount

If 1 > strPageCurrent2 Then strPageCurrent2 = 1
If strPageCurrent2 > strPageCount2 Then strPageCurrent2 = strPageCount2

rs2.AbsolutePage = strPageCurrent2

<% Response.Write strPageCount2 %>