Solucionado con lo siguiente:
Código ASP:
Ver originalprivate Function CortaCadena(cadena,maxlong)
Dim oricadena
oricadena = cadena
If cadena <> "" Then
if len(cadena) > maxlong then
cadena = left(cadena,maxlong) & ".."
End If
Else
exit function
End If
Dim newcadena
newcadena = cadena
CortaCadena = newcadena
End Function