<%

                               SQL = SQL & " select SUBSTRING(FECHAACTUAL,7,4)+LEFT(LTRIM(FECHAACTUAL),2)+SUBSTRING(FECHAACTUAL,4,2)+SUBSTRING(FECHAACTUAL,12,8) AS FECHA"                              

                               SQL = SQL & " from tablas "

                               SQL = SQL & " and FECHAACTUAL IS NOT NULL           "

                               '' a�o

                               SQL = SQL & " and ( (SUBSTRING(FECHAANTERIOR,7,4) >" & iAnho & ") "

                               '' mes

                               SQL = SQL & " or ( (SUBSTRING(FECHAANTERIOR,7,4) = " & iAnho & ") and (LEFT(LTRIM(FECHAANTERIOR),2)>" & iMes & ") ) "

                               '' dia

                               SQL = SQL & " or ( (SUBSTRING(FECHAANTERIOR,7,4) = " & iAnho & ") and (LEFT(LTRIM(FECHAANTERIOR),2)=" & iMes & ") and ( SUBSTRING(FECHAANTERIOR,4,2)>=" & iDia & ") ) ) "                                                                       

                               SQL = SQL & " order by FECHA asc "   

                               TamPagina=12

                               if Request.Querystring("pagina")="" Then

                                               PaginaActual=1

                               else

                                               PaginaActual=CInt(Request.Querystring("pagina"))

                               end if

                               set RST_SQL = Server.CreateObject("ADODB.Recordset")

                               RST_SQL.Activeconnection = CNX

                               RST_SQL.Source = SQL

                               RST_SQL.CursorType = adOpenForwardOnly

                               RST_SQL.LockType = adLockReadOnly

                               RST_SQL.PageSize=TamPagina

                               RST_SQL.CacheSize=TamPagina

                               RST_SQL.CursorLocation = 3

                               RST_SQL.Open

                               PaginasTotales=RST_SQL.PageCount   

                               If PaginaActual < 1 Then

                                   PaginaActual = 1

                               End If

                               If PaginaActual > PaginasTotales Then

                                   PaginaActual = PaginasTotales

                               End If

                               ' ..COMPROBAR SI EXISTEN REGISTROS:         

                               if (not RST_SQL.eof) and (not PaginasTotales=0) then

                                               RST_SQL.AbsolutePage=PaginaActual

                                               CuantosRegistros=0

                                               %>

                                                               <!-- RESULTADO FILTRO - LLAMADAS -->

                                                               <div align="center">

                                                                              <table width="80%" border="0" cellspacing="1" cellpadding="1" bgcolor="#666666">

                                                                                              <TR>

                                                                                                              <TD class="COLUMNHEADER" bgcolor="#FFFFFF" valign="TOP">Titulo fecha</TD>

                                                                                              </TR>

                                               <%

                                                                                              do while not RST_SQL.eof And CuantosRegistros < TamPagina

                                               %>

                                                                                              <TR>

                                                                                                              <TD class="MAINTEXT" bgcolor="#FFFFFF" valign="TOP" align="CENTER"><%=trim(RST_SQL.fields.item("FECHA").value)%></TD>

                                                                                              </TR>

                                               <%                                                          CuantosRegistros=CuantosRegistros+1

                                                                                                              RST_SQL.movenext

                                                                                              loop

                                               %>

                                                                              </table>

                                                                              <table border="0">

                                                                                              <tr><td>&nbsp;</td></tr>

                                                                                              <tr>

                                                                                                <td>&nbsp;</td>  

                                                                                                <td align="right" bgcolor="#FFFFFF" ><%

                                                                                                    If PaginaActual > 1 Then

                                                                                                        Response.Write("<A class='BACKMENU' HREF=gaginaactual.asp?FORM_ACTION=BUCAR&begin_time="&RES_begin_time&"&end_time="&RES_end_time&"&pagina="& PaginaActual-1& ">&laquo;</A>")

                                                                                                    End If

                                                                                                    %>

                                                                                                </td>

                                                                                                <td align="center" class="MAINTEXTBOLD" bgcolor="#FFFFFF"><% Response.Write(" Pagina " & PaginaActual & " de " & PaginasTotales & " ") %></td>

                                                                                                <td bgcolor="#FFFFFF"><%

                                                                                                    If PaginaActual < PaginasTotales Then

                                                                                                        Response.Write("<A class='BACKMENU' HREF=gaginaactual.asp?FORM_ACTION=BUCAR&begin_time="&RES_begin_time&"&end_time="&RES_end_time&"&pagina="&PaginaActual+1&">&raquo;</A>")

                                                                                                    End If

                                                                                                    %>

                                                                                                </td>

                                                                                                <td>&nbsp;<td>

                                                                                              </tr>

                                                                              </table>

                                                               </div>

                                                               <!-- FIN RESULTADO FILTRO - LLAMADAS //--><BR>

                                               <%

                               ' ..COMPROBAR SI EXISTEN REGISTROS..

                               else

                                               %>

                                                               <!-- RESULTADO FILTRO - LLAMADAS - SIN RESULTADO -->

                                                               <div align="center">

                                                                              <table width="80%" border="0" cellspacing="1" cellpadding="1" bgcolor="#666666">

                                                                                              <TR><TD class="MAINTEXTREQ" bgcolor="#FFFFFF" align="CENTER">No se encontraron datos, seleccione otro criterio de b�squeda.</TD></TR>

                                                                              </table>

                                                               </div>

                                                               <!-- FIN RESULTADO FILTRO - LLAMADAS - SIN RESULTADO //--><BR>

                <%

                               ' ..FIN COMPROBAR SI EXISTEN REGISTROS

                               end if

                RST_SQL.close

                set RST_SQL = nothing

                ' FIN RESULTADO DEL FILTRO

                CNX.close

                set CNX = nothing

                %>