ReadAll fso (a capo)

[agenti]

<%
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.

[Roby_72]

Al limite visto che il browser usa l'HTML dovresti usa "
" al posto di VbCrLf

Roby

[agenti]

così è perfetto:

testo_ok=replace(sTesto,vbcrlf,"
")