simulare il wordwrap di php

[Baol74]

Così?

Function WordWrap(Text,Lunghezza,Tag)
Dim Token(), n , i
	n = (Len(Text) \ Lunghezza)  
	Redim Preserve Token(n) 
	For i=0 to n
		Token(i) = Mid(Text,1,Lunghezza)
		Text=Mid(Text,Lunghezza+1)
	Next 
	WordWrap = Join(Token,Tag)
End Function

Response.Write wordwrap("Oggi E' Venerdi' ",3,"
")