Dim OpenFileobj, FSOobj,FilePath FilePath=Server.MapPath("O.txt") Set FSOobj = Server.CreateObject("Scripting.FileSystemObject") if FSOobj.fileExists(FilePath) Then Set OpenFileobj = FSOobj.OpenTextFile(FilePath, 1) Do While Not OpenFileobj.AtEndOfStream Response.Write OpenFileobj.ReadLine & "<br>" Loop OpenFileobj.Close Set OpenFileobj = Nothing Else Response.Write "File does not exist" End if Set FSOobj = Nothing
<br></br>
Response.Write("<table>")
Response.Write("<tr>")
<td>
<tr>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)