ayuda con error en paginacion

[virla]

estoy haciendo un sistema y cuando le pongo el function que esta publicado en las faq me sale un error.
el tema es que lo tengo puesto con un include
me dice que no es valido el CreaNav(varPagTotales, varPagActual) o algo por el estilo, que puede ser?

este es el que estoy utilizando
http://www.forosdelweb.com/showthrea...nction+CreaNav

[AlZuwaga]

Jejeje, ocurre que CreaNav(varPagTotales, varPagActual) es la original (la que está en la biblioteca de scripts). Pero vos estás usando BarraDeNavegacion(PaginasTotales, PaginaActual), que es la versión modificada por 3pies (por cierto, gracias 3pies por las modificaciones! actualmente estoy usando la tuya!)

Nada, sólo eso. Si usás la función "BarraDeNavegacion", pués no llames a "CreaNav" en tu script

[virla]

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 & """>&nbsp;Página " & varPagActual & " de " & varPagTotales & "&nbsp;</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&amp;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&amp;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&amp;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&amp;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&amp;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
%>

[AlZuwaga]

Bueno, entonces no sé.
Igualmente, usá la función modificada por3 pies (igual ya le hice un update a la versión de la biblioteca de scripts):
http://www.forosdelweb.com/showthrea...nction+CreaNav

Esa funciona correctamente. Yo la estoy usando desde un include sin ningún problema. Te reitero, verificá que si en el include tenés la función "BarraDeNavegacion" no estés intentando llamar a "CreaNav"!