\'Создайте экземпляр объекта типа FileSystemObject
Set FileObject = CreateObject("Scripting.FileSystemObject")
\'Присоединяемся к файлу (относительный или абсолютный URL)
TextFile = Server.MapPath("/your_dir/your_file.txt")
\'Открываем файл
Set InFile = FileObject.OpenTextFile(TextFile, 1, false)
\'Считываем информацию построчно пока файл не достигнет конца
Do While InFile.AtEndOfStream
Line = InFile.ReadLine()
Loop
\'Можно, кстати, считать сразу весь файл
Line = InFile.ReadAll