<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Dim sNewsStory, sContent, sFormated
Dim aCode, aCss, qt, i
Dim oFSO, oFile, sPath
qt = chr(34)
aCode = Array("[t=","=t]","[s=","=s]","[c=","=c]","[h=","=h]","[b=","=b]")
aCss = Array("
","
","
","
","","","","","","")
Function Quotes(txt)
Quotes = Replace(txt,"^",qt)
End Function
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
sPath = Server.MapPath("news-current.txt")
If oFSO.FileExists(sPath) Then
Set oFile = oFSO.OpenTextFile(sPath,1,False)
sContent = oFile.ReadAll
oFile.Close
Set oFile = Nothing
Else
sContent = "[t=No News to Report Just Now=t][t=Come back again soon for the latest news on identity theft protection, pre-paid legal, and important insurance information.=t]"
End If 'file exists
Set oFSO = Nothing
sFormated = sContent
' ** Note: Needs a check for entry errors here. <<+++++++++++++++++++
For i = 0 to Ubound(aCode)
sFormated = Replace(sFormated,aCode(i),Quotes(aCss(i)))
Next 'i
sNewsStory = Replace(sFormated,vbCrLf," " & vbCrLf)
sNewsStory = Replace(sNewsStory," ","")
%>
Feig Agency
