23/12/2005, 13:00
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 23 años, 9 meses Puntos: 2 | |
| 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 |