¿Porqué no me funciona este código?

[pempas]

Function Recorta (Texto)
If Len(Texto) > MaxLetras Then
Texto = Mid(Texto,1,MaxLetras)
Texto = Texto & "..."
End if
Recorta = Texto
End Function

Lo llamo de la siguiente manera:

<%=Recorta(Rs("Descripcion"))%>

No funciona, MaxLetras es una variable con valor 10 y el largo de los textos es mayor que 10...

Muchas gracias

[tomchat]

Debes asignarle a Maxletras un valor si no lo tiene, o crear un else en caso que maxletras sea mayor que el texto.

[pempas]

Es que el problema es que ha Texto le paso el valor que recojo de la base de datos, pero parece que cuando hago el IF el Len siempre devuelva cero.

Es extraño, ¿puede ser porque está en una función?, es que parece que no recoge bien el valor que le envío.

Gracias.

[tomchat]

Function Recorta(Texto)
MaxLetras = 10
If Len(Texto) > MaxLetras Then
Texto = Mid(Texto, 1, MaxLetras)
Texto = Texto & "..."
End If
Recorta = Texto
End Function

Recorta (variable)

Este el el codigo espero te sirva lo revice y esta bien

[pempas]

Pues no va, ¿puede ser que sea porque la función está en una página que es un include de otra?

Saludos

[ElAprendiz]

y no has hecho la prueba poniendo la funcion dentro de la misma pagina...

[pempas]

Lo he probado pero no funciona, lo curioso es que hago un response.write de esos valores y son correctos, así que no devuelve cero, que extraño.

[ElAprendiz]

a mi me funciona perfectamente dentro de la misma pagina

response.write recorta (texto)

Function Recorta(Texto)
MaxLetras = 10
If Len(Texto) > MaxLetras Then
Texto = Mid(Texto, 1, MaxLetras)
Texto = Texto & "..."
End If
Recorta = Texto
End Function