unire 2 funzioni

[zeweb]

Vorrei che dopo il punto andasse a capo e che mi tagliasse le parole !

Ho queste 2 funzioni ma non so unirle !

Mi aiutate, grazie !

<% 
str = rec("newsBody") 
response.write replace(str,". ",". 
") 
%>

<%nc = 300 'Numero di caratteri
testo = Rec("newsBody") 
While mid(testo,nc,1) <> " "
	nc = nc - 1
Wend
testo = Left(testo,nc) & "<a href=""leggi_cs.asp?newsID="& Rec("newsID") & """>...leggi"
Response.write Replace(testo,VbCrLF,"
")
%>