o usa esta funcion que estaba en el foro
yo la cambie a mi antojo pero espero te sirva
Cita: <%
'
Dim DimencionesCadena, CortarEn
Function CortarCadena(CadentaTXT,CortarEn)
CortarEn = cInt(CortarEn)
DimencionesCadena = Len(CadentaTXT)
CadentaTXT = Replace(server.HTMLEncode(CadentaTXT),vbCrlf,"<br> ")
if DimencionesCadena > CortarEn then
CadentaTXT = left(CadentaTXT,CortarEn) & " ..."
end if
CortarCadena = CadentaTXT
End Function
%>