Código PHP:
<table border="1">
<tr>
<th width="14%" height="36" scope="col"><span class="estiloTablas">Id Grabación</span></th>
<th width="8%" scope="col"><span class="estiloTablas">Id Ejecutivo</span></th>
<th width="12%" scope="col"><span class="estiloTablas">Fecha grabación</span></th>
<th width="8%" scope="col"><span class="estiloTablas">Duración Grabación</span></th>
<th width="13%" scope="col"><span class="estiloTablas">Ip Grabación</span></th>
<th width="11%" scope="col"><span class="estiloTablas">Estado</span></th>
<th width="12%" scope="col"><span class="estiloTablas">Link Grabación</span></th>
<th width="10%" scope="col"><span class="estiloTablas">Descargar Grabación</span></th>
</tr>
<% RS.Open SQLGraba, Conex 'Y abrimos el Recordset
If (RS.EOF) Then %>
<tr>
<td height="93%" align="center"><span class="estiloTablas">Sin datos</span></td>
<td align="center"><span class="estiloTablas">Sin datos</span></td>
<td align="center"><span class="estiloTablas">Sin datos</span></td>
<td align="center"><span class="estiloTablas">Sin datos</span></td>
<td align="center"><span class="estiloTablas">Sin datos</span></td>
<td align="center"><span class="estiloTablas">Sin datos</span></td>
<td align="center"><span class="estiloTablas">Sin datos</span></td>
<td align="center"><span class="estiloTablas">Sin datos</span></td>
</tr>
<%
Else
aDatos = RS.GetRows 'Obtengo los datos con GetRows
pag = CInt(Request.QueryString("P")) 'Obtengo la pagina a mostrar de la queryString
iEstado = PaginarGR (10, pag, aDatos) ' y llamo a paginaGR
End If
RS.Close 'Cierro y limpio los objetos
Set RS = Nothing
Conex.Close
Set Conex = Nothing
'====================================================================================================================
'PaginarGR -- pagina un vector bidimensional
'vector es el vector a paginar, iPag la pagina a mostrar y iRegsPorPag el nº de registros por cada página q queremos.
'====================================================================================================================
Function paginarGR (iRegsPorPag, iPag, vector)
Dim I, J ' I, J se utilizan para recorrer el vector
Dim iPaginas, iPaginaActual ' total de páginas y la página que queremos mostrar
Dim iTotal, iComienzo, iFin 'total de registros, registro en q empezamos y registro en q terminamos
iTotal = UBound(aDatos,2)+1 'hallo el total de registos devueltos
iPaginas = (iTotal \ iRegsPorPag) 'calculo el numero de páginas que tenemos
If iTotal mod iRegsPorPag > 0 Then ' si da decimales, añado una mas para mostrar los últimos registros
iPaginas = iPaginas + 1
End If
If iPag < 1 Then ' si no es una página válida, comienza en la primera
ipag = 1
End If
If iPag > iPaginas Then 'Si es una página mayor al nº de páginas, comienzo en la última
iPag = iPaginas
End If
Response.Write("Página "&iPag& " de " &iPaginas& " ("&iTotal&" Registros) <br>")
iComienzo = (iPag-1)*iRegsPorPag 'Calculo el índice donde comienzo:
iFin = iComienzo + (iRegsPorPag -1) ' y donde termino
If iFin > UBound (vector, 2) Then ' Si no tengo suficientes registros restantes, voy hasta el final
iFin = UBound(vector, 2)
End If
For I = iComienzo to iFin
Response.Write("<tr onMouseOver=""resaltar(this)"" onMouseOut=""normal(this)"" onClick=""marcar(this)"">")
Response.Write ("<td>" &vector(ideGrabacion,I)& "</td>")
Response.Write ("<td>" &vector(idEjecutivo ,I)& "</td>")
Response.Write ("<td>" &vector(fechaGrab ,I)& "</td>")
Response.Write ("<td>" &vector(duracionGra ,I)& "</td>")
Response.Write ("<td>" &vector(ipGrabacion ,I)& "</td>")
Response.Write ("<td>" &vector(estGrabacion ,I)& "</td>")
If (vector(linkGrabacion, I) <> "") Then
linGra = vector(linkGrabacion, I)
DeslinGra = Replace(linGra, "mms://", "http://")
Response.Write ("<td align=""center"">" &"<a href="&linGra&">"& "Ver Grabación" & "</a>" & "</td>")
Response.Write ("<td align=""center"">" &"<a href="&DeslinGra&">"& "Ver Grabación" & "</a>" & "</td>")
Else
Response.Write ("<td align=""center"">" &"<span class=""comoLinks"">"& "Sin Grabación" & "</span>" & "</td>")
Response.Write ("<td align=""center"">" &"<span class=""comoLinks"">"& "No Disponible" & "</span>" & "</td>")
End If
Response.Write("</tr>")
Next
%>
</table>
<%
Response.Write("<br>")
If iPag > 1 Then 'Imprimo enlaces, si son necesarios
Response.Write("<a href=""accesoGrabaciones.asp?idEjecuti="&Server.URLEncode(rescateIdEjecutivo)&"&IdeGrupo="&Server.URLEncode(rescateIdGrupo)&"&FechaInicio="&Server.URLEncode(rescateFechaInicio)&"&FechaFin="&Server.URLEncode(rescateFechaFin)&"&P="&iPag-1&"""><b>[<< Anterior]</b></a> ")
End If
For K = 1 To iPaginas ' mostramos la paginacion por numeros de página
If K = iPag Then
Response.Write("" &K& " ")
Else
Response.Write("<a Href=""accesoGrabaciones.asp?idEjecuti="&Server.URLEncode(rescateIdEjecutivo)&"&IdeGrupo="&Server.URLEncode(rescateIdGrupo)&"&FechaInicio="&Server.URLEncode(rescateFechaInicio)&"&FechaFin="&Server.URLEncode(rescateFechaFin)&"&P="&K&"""><b>"&K&"</b></a> ")
End If
Next I
If iPag <iPaginas Then
Response.Write("<a Href=""accesoGrabaciones.asp?idEjecuti="&Server.URLEncode(rescateIdEjecutivo)&"&IdeGrupo="&Server.URLEncode(rescateIdGrupo)&"&FechaInicio="&Server.URLEncode(rescateFechaInicio)&"&FechaFin="&Server.URLEncode(rescateFechaFin)&"&P="&iPag+1&"""><b>[<< Siguiente]</b></a> ")
End If
PaginarGR = 0
End Function
Salu2 nuevamente a todos los que se dieron la molestia de responder, y gracias!
