dim f2
'dim ts
Set f2 = fso.GetFile("w:\boseo\" & strFile)
Set ts = f2.OpenAsTextStream(1,-2)

do while ts.AtEndOfStream = False
    Response.Write ts.ReadLine & "<BR>"

'(how can i collect the vaues from the file and put them in the right order? How can i create a variable to store all the data in and then i can just call that variable later?)

loop
--------------------------------
how can i collect the vaues from the file and put them in the right order?

How can i create a variable to store all the data in and then i can just call that variable later?

Please check the following function which reads all contents from a file:

Function ReadAllTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadAllTextFile = f.ReadAll
End Function

To read line by line you can use

 Do While theFile.AtEndOfStream = false
       retstring = theFile.ReadLine 'This will give u single line.
 Loop



Om Prakash