<% Option Explicit %>
<% Response.Buffer = True %>
<% Dim strPushURL %>
<% strPushURL = GetPrefixValue() %>
Exploration Air News
The Latest Exploration Air News
<%
GetChannelItems
Response.Flush
%>
<%
' GetChannelItems uses the FileSystem Object to access a file
' on the server which holds all the latest ExAir headlines.
Sub GetChannelItems
On Error Resume Next
Dim fso, prFile, strTitle, strLink,strCategory
Dim CRLF, QUOTE
CRLF = vbCr
QUOTE= Chr(34)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set prFile = fso.OpenTextFile(Server.MapPath("../pr/prFileList.txt"))
If Err.Number <> 0 Then
Exit Sub
End If
Do Until prFile.AtEndOfStream
' Get headline
strTitle = prFile.ReadLine
If prFile.AtEndOfStream Then Exit Do
' Get URL
strLink = "../pr/" & prFile.ReadLine
' Get Category
strCategory = prFile.ReadLine
' Write response
Response.Write("- " & CRLF)
Response.Write(" " & strTitle & "" & CRLF)
Response.Write(" " & strCategory & " News: " & strTitle & "" & CRLF)
Response.Write("
" & CRLF)
Response.Write(CRLF)
Loop
End Sub
%>