codice:
<tr>
<td width="735" height="42" valign="top">
<font color="#FFFFFF">
<% 

dim testo,maxLen,att
maxLen=100 'splitto ogni 100 caratteri spazi inclusi
testo=objRs("messaggio") 'gli passo il testo che devo splittare

parole=split(testo," ") 'splitto il testo sugli spazi in maniera da avere singole parole
testo=""
att=0
for each parola in parole
testo=testo & " " & parola 'ricompongo il testo parola per parola
att=att+len(parola)+1 'aggiorno la lunghezza attuale della riga

if att>=maxLen then 'se la lunghezza attuale è maggiore o uguale a quella desiderata
testo=testo & "
" 'vado a capo
att=0 'mi rimetto all'inziio della riga
end if
next

response.write testo 'scrivo il mio testo con gli accapo
%>
</font>
</td>
</tr>