It's because browsers ignore line feeds, you will need to replace the line feed character with the tag < br> to ensure it renders properly.<BR><BR>str = fs.ReadAll()<BR>str = Replace(str,Chr(13),"< br>")
I know that browsers don't see carriage returns - I've tried that previous solution (see below) but all I get is one line still... It must be using some other control character??? :(<BR><BR><%<BR> Set fs = CreateObject("Scripting.FileSystemObject")<BR> filename= dir & "/" & filename<BR> <BR> Set readfile=fs.OpenTextFile(filename,1,False)<BR> Do until readfile.AtEndOfStream<BR> Text=readfile.readline<BR> If Text=chr(13) then<BR> response.write "<BR>"<BR> Else<BR> response.write Text <BR> End If<BR> Loop<BR> readfile.close<BR> set readfile=nothing<BR><BR>%>
I'm pretty sure the .readline doesn't include the carriage return (that's how it knows it's at the end of the line)<BR><BR>Besides, you want to check for vbNewLine or vbCrLf instead of Chr(13)<BR><BR>Windows uses Chr(13) + Chr(10) as the cr.