<%
Dim fsoMyFile
Dim tsTextStream
Dim sTesto

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("regolamento "), 1)

'Legge tutto il contenuto di un file.
sTesto = tsTextStream.ReadAll

testo_ok=replace(sTesto," ",VBCRLF)
response.write testo_ok

'Chiude il file.
tsTextStream.Close
%>

non funzia, non mantiene la formattazione originale non andando a capo.
Come fare???
Grazie.