Per i caratteri puoi usare la funzione che avevo postato qui
Come funziona
passi la stringa e la lunghezza massima di caratteri.
Se per caso l'ultima parola viene troncata la funzione continua ad accodare fino al primo spazio.
la metto anche qui
codice:
function truncate(sStringa,iLunghezza)
'sStringa -> Stringa da modificare
'iLunghezza -> Lunghezza di trocamento
strLen=Len(sStringa)
newStr=left(sStringa,iLunghezza)
if strLen>iLunghezza then
for i=iLunghezza+1 to strLen
if mid(sStringa,i,1)<>" " then
newStr=newStr & mid(sStringa,i,1)
else
exit for
end if
next
end if
truncate=newStr
end function
esempio
'leggi il campo dal db
campo=rs.fields("campo")
'richiami la funzione
campo=truncate(campo,100)