Kod:
dim fso, file, ts
Set fso = server.CreateObject("scripting.FileSystemObject")
Set file = fso.GetFile(server.mappath("dosya.txt"))
Set ts = file.OpenAsTextStream(1)
do while not ts.AtEndOfStream
str = ts.ReadLine
loop
ts.Close
str değişkeni do..loop içerisinde her seferinde bir satır okur.
ancak, ".txt" yerine, "," ile ayrılmış ".csv" yada
XML tipinde tutmanız,
veri içinde kaybolmanızı engelleyecektir.