adatta questo stralcio di codice

codice:
sLunga = "esempio di stringa lunga non so quanto: la spezzo ogni 10 con un tag asterisco"
sTaggata = ""
iChars = 10
sTag = "<*>"
For i=1 to Len(sLunga) / CInt(iChars)
   sTaggata = sTaggata & Mid(sLunga, (i-1) * CInt(iChars) + 1, iChars) & sTag
Next
sTaggata = sTaggata & Mid(sLunga, (i-1) * CInt(iChars) + 1, iChars)
response.write sLunga & "
"
response.write sTaggata & "
"