At læse en tekstfil

Set fso = CreateObject("Scripting.FileSystemObject")
    Set stream = fso.OpenTextFile(Server.Mappath("fil.txt"), 1)
    If not stream.AtEndOfStream Then
        content = stream.ReadAll
    End if
    set stream = nothing
    set fso = nothing
        Response.write(content)

Set objTextS = objFileSystem.OpenTextFile(filnavn, 1)
Response.Write "Filen indeholder følgende tekst: <BR><HR ALIGN=""left"" WIDTH=""100%""><BR>" & VbCrLF
Do While objTextS.AtEndOfStream <> True
    strLine = objTextS.ReadLine
  strLine = Server.HTMLEncode(strLine)
    Response.Write strLine & "<BR>" & VBCrLf
Loop

objFile.Close
Set objFile=Nothing
Set objFileSystem=Nothing

Hvis du vil vide mere om at læse, skrive eller hente noget fra en tekstfil
så kig her : http://www.html.dk

Kig under asp tutorialen