% option explicit%> <% Const FILE_READ = 1 dim oFileSysObject, oTextStream, sFileName, sDisplayText sFileName = Server.MapPath(".") & "\SpecialMessage.txt" sDisplayText = " " Set oFileSysObject = Server.CreateObject("Scripting.FileSystemObject") If oFileSysObject.FileExists(sFileName) Then Set oTextStream = oFileSysObject.OpenTextFile(sFileName, FILE_READ) sDisplayText = oTextStream.ReadAll oTextStream.Close sDisplayText = "
" & Replace(sDisplayText, vbCrLf, " |
| <%= sDisplayText %> |
|

But those who wait on the Lord shall renew their strength;
they shall mount up with wings like eagles,
they shall run and not be weary, they shall walk and not faint. - Isaiah 40:31
Website problems? Please contact the webmaster (webmaster@ocsweb.org).