06/07/2005, 12:16
|
| | | 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 %> |