Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strFileName = "D:\path\to\arxio.txt"
const fsoForReading = 1

If objFSO.FileExists("D:\path\to\arxio.txt") then

Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
Response.Write "" & objTextStream.Read(150) & ""
objTextStream.Close
Set objTextStream = Nothing
Else

Response.Write strFileName & " δεν υπάρχει."
End If

Set objFSO = Nothing


Όπου 150 θα δώσεις το σύνολο των χαρακτήρων που θέλεις να διαβάσεις.