funzione che tronca parola troppo lunga

[dover]

'************************************************* *************************
'Tronca una stringa al carattere NMAZ e inserisce EOL per finire (...)
'************************************************* *************************
Function TroncaStringa(Str,NMax,EOL)
Dim Stringa
Dim ToWork
ToWork=Str
if len(ToWork)>NMax then
NMax=NMax-len(EOL)
Stringa=left(ToWork,NMax)
Stringa=Stringa&EOL
TroncaStringa=Stringa
else
TroncaStringa=Str
end if
End Function

'************************************************* *************************

E richiami la funzione così:

<%=TroncaStringa(rs("Contenuto"),40,"...")%>
Dove la frase verrà troncata alla 40° lettera e verranno aggiunti i tre puntini
Ciao,
dover