~ News ~ "Getting The Lowe Down" For 2021 !
<%
dim strconn
strTextFileName = "files/news.txt"
'response.write strTextFileName
strTextFilePath = Server.MapPath(strTextFileName)
'strTextFilePath = strTextFilePath & strTextFileName
'response.write strTextFilePath
'strTextFilePath = strTextFileName
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile((strTextFilePath), 1)
do while f.AtEndOfStream = false
' Count = Count + 1
strFullLine = f.readLine
'response.write strFullLine & " "
response.write strFullLine
loop
%>
|