Definiamola beta.. :)
Per funzionare funziona (o almeno da me funziona) solo che tronca le parole a metà..
c'è ancora da lavorarci dietro ma come preliminare può andare no?
<%dim testo,maxLen,att
testo_abstract="There is nothing better then getting free performance boosts for our Radeon cards from the monthly Catalyst software updates. Every month we expect to see some new goods from AMD&#8217;s finest software department. Sometimes our expectations are too high and we are left somewhat disappointed, and sometimes they manage to rock us all. Last month AMD has released Catalyst 7.4 and claimed that they had boosted its OpenGL performance on Windows Vista. With AMD&#8217;s Catalyst 7.5 around the corner, and the hype around R600, we relaxed, sat back and tested the Catalyst 7.4 suite under Microsoft&#8217;s new Vista operating system to investigate AMD&#8217;s claims. "

maxLen=140
lentotale=Len(testo_abstract)
righe=Int(lentotale/maxlen)
resto=lentotale-(maxLen*righe)

For x=0 To righe
If testo="" Then
testo=Mid(testo_abstract,x+1,maxLen) & "<br>"
Else
testo=testo & Mid(testo_abstract,(maxLen*x)+1,maxLen) & "<br>"
End If
Next

If resto > 0 Then
For y=0 To resto
testo=testo & Mid(testo_abstract,(maxLen*(x+y))+1,maxLen) & "<br>"
Next
End If

response.write testo
%>

---

Modificato da Maxiz il 26 maggio 2007 23.49 -

Ed hai ragione.
Quindi..
<%path=Request.ServerVariables("SERVER_NAME")
Server.ScriptTimeOut = "400000000"

If request("action") <> "" Then
action=request("action")
End If
If request.querystring("action") <> "" Then
action=request.querystring("action")
End If

If action="" Then %>
<form action="http://<%=Request.ServerVariables("SERVER_NAME") & request.servervariables("PATH_INFO")%>?action=test" method="post">
<textarea rows="12" name="testo" cols="37"></textarea><br>
<input type="submit" value="Invia">
</form>
<%End If%>

<%If action="test" Then

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.CreateTextFile(Server.mappath("testo.txt"))
Outstream.WriteLine request.form("testo")
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fileadded=fs.opentextfile(server.mappath(".\testo.txt"))
While not fileadded.AtEndOfStream = True
Maxlen=140
riga=fileadded.readline
If Len(riga) > maxlen Then
'####################################
lentotale=Len(riga)
righe=Int(lentotale/maxlen)
resto=lentotale-(maxLen*righe)

For x=0 To righe
If testo="" Then
testo=Mid(riga,x+1,maxLen) & vbCrLf
Else
testo=testo & Mid(riga,(maxLen*x)+1,maxLen) & vbCrLf
End If
Next
'####################################
Else
If testo="" Then
testo=riga
Else
testo=testo & riga & Vbcrlf
End If
End If

Wend
Set fileadded=Nothing
Set fs=Nothing
response.write testo
End If%>
Di sicuro non è il modo più elegante ma al volo mi è venuto in mente questo e dovrebbe fare esattamente quello che vuoi!

e mica ti posso dire tutto io! :)
Salvo non fosse prevista a suo tempo questa cosa no il Vbcrlf non è inserito tra una riga e l'altra.
Prova questo codice commentato modificato:
<%path=Request.ServerVariables("SERVER_NAME")
Server.ScriptTimeOut = "400000000"
'Una volta aperto il recordset ad esempio objrs e il campo del testo è testo...



Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.CreateTextFile(Server.mappath("testo.txt"))
'CHIARO??? :)
'Outstream.WriteLine objrs("testo")
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fileadded=fs.opentextfile(server.mappath(".\testo.txt"))
While not fileadded.AtEndOfStream = True
Maxlen=140
riga=fileadded.readline
If Len(riga) > maxlen Then
'####################################
lentotale=Len(riga)
righe=Int(lentotale/maxlen)
resto=lentotale-(maxLen*righe)

For x=0 To righe
If testo="" Then
testo=Mid(riga,x+1,maxLen) & vbCrLf
Else
testo=testo & Mid(riga,(maxLen*x)+1,maxLen) & vbCrLf
End If
Next
'####################################
Else
If testo="" Then
testo=riga
Else
testo=testo & riga & Vbcrlf
End If
End If

Wend
Set fileadded=Nothing
Set fs=Nothing

'A questo punto la variabile testo contiente in testo allineato!
%>

Avevo già notato questa cosa ma così al volo mi era riuscita così..
Vedo se sistemo e me la salvo nella mia cartellina degli script vari se risolvo..
Ma non credo sarà così facile.
se ci riesci fammi sapere!