<%
Function ReadText(strFile)
Dim objFSO
Dim objFile
Dim strPath
Dim strContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
strPath = Server.MapPath("Testi.txt")
Set objFile = objFSO.OpenTextFile(strPath, 1)
strContents = objFile.ReadAll
Response.Write strContents
ReadText=strContents
End Function
%>
