% Option Explicit Const Filename = "news/news.txt" 'file to read Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim TextStream ' Create a filesystem object Dim FSO set FSO = server.createObject("Scripting.FileSystemObject") ' Map the logical path to the physical system path Dim Filepath Filepath = Server.MapPath(Filename) 'if FSO.FileExists(Filepath) Then Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault) ' Read file in one hit Dim Contents Contents = TextStream.ReadAll ' Response.write "
" & Contents & "" TextStream.Close Set TextStream = nothing 'Else ' Response.Write "
|
|
|
|
At Mahavir Creations
mass production is not a way of |
|
|
|
|
| mural India |
Brief about works |
|
||||||
|
||||||||
| Designed by Planet Design call us at: +91-9820172324 / +91-022-26142964 FAQ | Privacy Policy | Bookmark Us |