Reading text into a string

[inqbus]

Mornin,
Im in confsion on how to open Myfile.txt, then read it into a big string that I can then display on my page.

This is where Im at:
<%
Dim fso, f, ts
MyFile = FreeFile

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot
Set MyFile = fspenTextFile(&quot;MyFile.txt&quot;, 1, True)

Do Until EOF(MyFile)
Line Input #MyFile, TempLine
MyString = MyString + TempLine + Chr(13) + Chr(10)
Loop

response.write MyString
Close #MyFile
%>

Cheers for your help,
--inqbus--

 

[JohnYingling]

You can't use &quot;old&quot; I/O with FileSystemObject.

If you want the whole file including CRLF, use READALL.
Mystring = ts.Readall

http://WWW.VBCompare.Com

 

[JohnYingling]

You might also want to do
Response.Write Server.HTMLEncode(Mystring)
so that certain characters like &quot;<>&&quot; etc will not cause HTML errors on the other side.

Those CRLFs &quot;might&quot; be a problem.
if so then
Mystring = Replace(Mystring,Chr(13) & Chr(10),&quot;<BR>&quot

Response.Write Server.HTMLEncode(Mystring)

http://WWW.VBCompare.Com