<%@ language="vbscript"%> <% response.buffer=true %>
Closing Rates      <% dim fso set fso=server.createobject("Scripting.FileSystemObject") dim strPath,strpath1,filnam filnam="../Rates/closert.txt" strPath=Server.MapPath(filnam) %> <% dim fil,fil1 set fil=fso.GetFile(strPath) dim opnfil set opnfil=fso.OpenTextFile(strPath,1) %>

Home

<%

flag=0
response.write("")
	Do While not opnfil.AtEndOfStream
	lin=opnfil.ReadLine
			response.write(lin & "
") loop response.write("
") set opnfil=Nothing 'set opnfil=fso.OpenTextFile(strPath,8) 'opnfil.WriteLine("From file1.asp") response.write("") set fso=Nothing set fil=Nothing set opnfil=Nothing %>