this is what i have


Dim FSO
Dim myfile
Dim ts

Const ForReading = 1, ForWriting = 2, ForAppending = 8

set FSO = Server.CreateObject("scripting.FileSystemObject")
set myFile = FSO.GetFile(App.Path & "\license.txt")
set ts = f.OpenAsTextStream(ForReading, -2)

Do While not ts.AtEndOfStream
myText = myText & ts.ReadLine & "<br>"
Loop