hola, y gracias...
en definitiva, este es el codigo, el secreto esta en jugar con las variables.. gracias
dim variable
dim X
variable = replace(RS.fields("noticia").value,chr(13),"<br>")
X = len(variable)
if X > 650 then
response.Write(mid(variable,1,647) + "...")
else
response.Write(variable)
end if