sori pero esta es la que estoy utilizando
<%
Function CreaNav(varPagTotales, varPagActual)
'### Modificar el contenido de las constantes para cambiar el aspecto de la barra de navegación ###
CONST styleTable = "background-color:#999999; solid #000000; font-family: Arial, Helvetica, sans-serif; font-size: 10px;"
CONST styleCeldaPagXdeY = "color: #000000; background-color: #C0C0C0;"
CONST classEnlace = "Menu"
CONST styleCeldaPagActual = "background-color:#F9F9F9; font-weight:bold;"
CONST styleCeldaPagLink = "background-color:#F0F0F0"
'### NO MODIFICAR LUEGO DE ESTA LINEA ###
arrPaginaActualBarNav = Split(Request.ServerVariables("SCRIPT_NAME"), "/") 'Revisión 4
PaginaActualBarNav = arrPaginaActualBarNav(UBound(arrPaginaActualBarNav )) 'Revisión 4
If varPagTotales > 1 Then 'Revisión 3
MostrarPrimera = False
If varPagTotales > 5 Then MostrarUltima = True
TablaTMP = "<table border=""0"" cellpadding=""0"" cellspacing=""1"" style=""" & styleTable & """><tr>"
TablaTMP = TablaTMP & "<td style=""" & styleCeldaPagXdeY & """> Página " & varPagActual & " de " & varPagTotales & " </td>"
If varPagActual >= 5 Then
TablaTMP = TablaTMP & "<td style="""& StyleCeldaPagLink &"""><a href="""& PaginaActualBarNav & "?Pagina=1"" class=""" & classEnlace & """><img src=""img/iconos/FlechaFinIzq.gif"" width=""65"" height=""13"" border=""0""></a></td>"
'Innecesario:
TablaTMP = TablaTMP & "<td><a href="""& PaginaActualBarNav & "?eje=30&page=" & varPagActual - 1 & """ class=""" & classEnlace & """><img src=""img/iconos/FlechaIzq.gif"" width=""15"" height=""13"" border=""0""></a></td>"
RestaTMP = 2
For i = 1 to 5
If i = 3 Then
TablaTMP = TablaTMP & "<td width=""15"" align=""center"" style=""" & StyleCeldaPagActual & """>" & varPagActual - RestaTMP & "</td>"
Else
TablaTMP = TablaTMP & "<td width=""15"" align=""center"" style=""" & StyleCeldaPagLink & """><a href="""& PaginaActualBarNav & "?eje=30&page=" & varPagActual - RestaTMP & "&FechaN=" & FechaN & "&ord=" & Request.QueryString("ord") & "&tipo=" & Request.QueryString("tipo") & """ class=""" & classEnlace & """>" & varPagActual - RestaTMP & "</a></td>"
End if
If varPagActual - RestaTMP = varPagTotales Then
MostrarUltima = False
Exit For
End if
RestaTMP = RestaTMP - 1
Next
Else
' For i = 1 to 5 ### BUG Revisión 1
For i = 1 to 5' ### Revisión 1
If i <> varPagActual Then
TablaTMP = TablaTMP & "<td width=""15"" align=""center"" style="""& StyleCeldaPagLink &"""><a href="""& PaginaActualBarNav & "?eje=30&page=" & i & "&FechaN=" & FechaN & "&ord=" & Request.QueryString("ord") & "&tipo=" & Request.QueryString("tipo") & """ class=""" & classEnlace & """>" & i & "</a></td>"
Else
TablaTMP = TablaTMP & "<td width=""15"" align=""center"" style="""& StyleCeldaPagActual &""">" & i & "</td>"
End if
Next
End if
' Innecesario:
If varPagTotales > 5 AND varPagTotales <> varPagActual Then TablaTMP = TablaTMP & "<td><a href="""& PaginaActualBarNav & "?eje=30&page=" & varPagActual + 1 & """ class=""" & classEnlace & """><img src=""img/iconos/FlechaDer.gif"" width=""15"" height=""13"" border=""0""></a></td>"
If MostrarUltima Then TablaTMP = TablaTMP & "<td style="""& StyleCeldaPagLink &"""><a href="""& PaginaActualBarNav & "?eje=30&page=" & varPagTotales & "&FechaN=" & FechaN & "&ord=" & Request.QueryString("ord") & "&tipo=" & Request.QueryString("tipo") & """ class=""" & classEnlace & """><img src=""img/iconos/FlechaFinDer.gif"" width=""59"" height=""13"" border=""0""></a></td>"
TablaTMP = TablaTMP & "</tr></table>"
CreaNav = TablaTMP
End If
End Function
%>