This shows how to read a text file

<%
Dim objFSO , objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Server.MapPath("testfile.txt") , 1)
Response.Write (objFile.ReadAll)
objFile.Close
Set objFSO = Nothing
Set objFile = Nothing
%>