%
'for new and updates.
Set news= CreateObject("Scripting.FileSystemObject")
strFile = Server.MapPath("newsandviews.html")
Set objFile = news.OpenTextFile(strFile, 1)
While Not objFile.AtEndOfStream
strFileContentNews=strFileContentNews & objFile.ReadLine & "
"
Wend
objFile.Close
'for formation.
strFile1 = Server.MapPath("formationTxt.html")
Set objFile1 = news.OpenTextFile(strFile1, 1)
While Not objFile1.AtEndOfStream
strFileContentformation = strFileContentformation & objFile1.ReadLine & "
"
Wend
objFile1.Close
'for officebarr.
strFile2 = Server.MapPath("officeBarTxt.html")
Set objFile2 = news.OpenTextFile(strFile2, 1)
While Not objFile2.AtEndOfStream
strFileContentOffBar = strFileContentOffBar & objFile2.ReadLine & "
"
Wend
objFile2.Close
%>
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|