puedes probar con una pequeña funcion:
.........................................
<%
Function recorta(byval texto, byval valor)
if len(texto)>valor then
recorta=left(texto,valor)
recorta=recorta&"..."
Else
recorta=texto
End if
End Function
%>
.........................................
La funcion
recorta , lleva 2 parametros: la cadena a recortar y el nº de caracteres máximo.
Ejemplo:
cadena=recorta(rs("topico"),100)
Carga en la variable cadena el campo topico en caso de que exceda de 100 caracteres.
Un saludo. ;)
<p align="center"><a href="http://www.jcuenca.com" target="_blank">
<font size="1" face="Verdana">.::|www.jcuenca.com|::.[/CODE]</a></p>