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