<% Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f, Msg Dim tempdir Dim mystring mytempfile = Trim(Server.MapPath (".")) & "\petro.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(mytempfile, ForReading, True) mystring = f.ReadAll Response.Write mystring f.Close %>




© Copyright Frantel Holdings. All Rights Reserved.   
Website designed and hosted by LIT Creations. You are Visitor Number: <% Response.Write Session("TotalCount")%>