Latest information

---

<% Const Filename = "\arse-elektronika\blog\blog.html" ' virtual file to read Const ForReading = 1 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 ' 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 Dim Switch Switch = 0 Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, _ TristateUseDefault) ' Read the file line by line Do While Not TextStream.AtEndOfStream Dim Line Line = TextStream.readline Select Case Trim(Line) Case "": Switch = 1 Case "": Switch = 0 Case Else: if Switch = 1 then Response.write Line end if end select Loop Set TextStream = nothing else response.write("") end if Set FSO = nothing %>

---