|
|
|
|
<%
Dim oFileSys
Dim oTextFile
Dim sBanner
Set oFileSys = Server.CreateObject ("Scripting.FileSystemObject")
Set oTextFile = oFileSys.OpenTextFile(Server.MapPath("./banner/content.txt"), 1)
sBanner = oTextFile.ReadAll
oTextFile.Close
Set oTextFile = Nothing
Set oFileSys = Nothing
%>
<%If trim(sBanner) <> "empty" Then %>
<%End If%>
|
|