<%@language=vbscript%>
Home BIF (asp)
<%
sub getFile(fname)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
apath=server.MapPath(Request.ServerVariables("PATH_INFO"))
apath=fso.GetParentFolderName(apath)
if (fso.FileExists (apath & fname)) then
Set MyFile = fso.OpenTextFile(apath & fname,1)
Do While myfile.AtEndOfStream<>True
Response.Write myfile.readline
Loop
myfile.close
end if
set fso=nothing
end sub
%>
