<%
Dim objFileSystem, objTextStream, dtExpire, strContent, strStandardContent
Const ForReading = 1
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objfilesystem.OpenTextFile(server.MapPath("./") + "/marquee.txt", ForReading)
strStandardContent = objTextStream.ReadLine()
strContent = objTextStream.ReadLine()
dtExpire = CDate(objTextStream.ReadLine())
if DateValue(Now()) >= dtExpire then
strContent = strStandardContent
end if
objTextStream.Close
%>
