<%
' Set up constants
Const ForReading = 1 ' Input OutPut Mode
Const Create = False
' Declare local variables
Dim FSO ' FileSystemObject
Dim TS ' TextStreamObject
Dim strLine ' local variable to store Line
Dim strFileName ' local variable to store fileName
strFileName = Server.MapPath("schedule.inc")
' Instantiate the FileSystemObject
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' use Opentextfile Method to Open the text File
Set TS = FSO.OpenTextFile(strFileName, ForReading, Create)
If not TS.AtEndOfStream Then
Do While not TS.AtEndOfStream
strLine = TS.ReadLine ' Read one line at a time
strLine = Replace(strLine, "SD-G-50", "SD-G-50")
strLine = Replace(strLine, "SD-106", "SD-106")
strLine = Replace(strLine, "SD-124", "SD-124")
strLine = Replace(strLine, "SD-138", "SD-138")
strLine = Replace(strLine, "SD-192", "SD-192")
strLine = Replace(strLine, "SD-215", "SD-215")
strLine = Replace(strLine, "SD-226", "SD-226")
strLine = Replace(strLine, "SD-342", "SD-342")
strLine = Replace(strLine, "SD-366", "SD-366")
strLine = Replace(strLine, "SD-406", "SD-406")
strLine = Replace(strLine, "SD-419", "SD-419")
strLine = Replace(strLine, "SD-430", "SD-430")
strLine = Replace(strLine, "SD-538", "SD-538")
strLine = Replace(strLine, "SD-562", "SD-562")
strLine = Replace(strLine, "SD-608", "SD-608")
strLine = Replace(strLine, "SD-628", "SD-628")
strLine = Replace(strLine, "SH-216", "SH-216")
strLine = Replace(strLine, "SR-222", "SR-222")
strLine = Replace(strLine, "SR-236", "SR-236")
strLine = Replace(strLine, "SR-253", "SR-253")
strLine = Replace(strLine, "SR-301", "SR-301")
strLine = Replace(strLine, "SR-325", "SR-325")
strLine = Replace(strLine, "SR-332", "SR-332")
strLine = Replace(strLine, "SR-385", "SR-385")
strLine = Replace(strLine, "SR-418", "SR-418")
strLine = Replace(strLine, "SR-432", "SR-432")
strLine = Replace(strLine, " Agriculture, Nutrition, and Forestry", " Agriculture, Nutrition, and Forestry")
strLine = Replace(strLine, " Appropriations", " Appropriations")
strLine = Replace(strLine, " Armed Services", " Armed Services")
strLine = Replace(strLine, " Banking, Housing, and Urban Affairs", " Banking, Housing, and Urban Affairs")
strLine = Replace(strLine, " Budget", " Budget")
strLine = Replace(strLine, " Commerce, Science, and Transportation", " Commerce, Science, and Transportation")
strLine = Replace(strLine, " Energy and Natural Resources", " Energy and Natural Resources")
strLine = Replace(strLine, " Environment and Public Works", " Environment and Public Works")
strLine = Replace(strLine, " Finance", " Finance")
strLine = Replace(strLine, " Foreign Relations", " Foreign Relations")
strLine = Replace(strLine, " Governmental Affairs", " Governmental Affairs")
strLine = Replace(strLine, " Health, Education, Labor, and Pensions", " Health, Education, Labor, and Pensions")
strLine = Replace(strLine, " Judiciary", " Judiciary")
strLine = Replace(strLine, " Rules and Administration", " Rules and Administration")
strLine = Replace(strLine, " Small Business", " Small Business")
strLine = Replace(strLine, " Veterans' Affairs", " Veterans' Affairs")
strLine = Replace(strLine, " Intelligence", " Select Committee on Intelligence")
strLine = Replace(strLine, " Ethics", " Select Committee on Ethics")
strLine = Replace(strLine, " Indian Affairs", " Indian Affairs")
strLine = Replace(strLine, " Aging", " Special Committee on Aging")
strLine = Replace(strLine, " United States Senate Caucus on International Narcotics Control", " United States Senate Caucus on International Narcotics Control")
strLine = Replace(strLine, " Joint Economic Committee", " Joint Economic Committee")
' Display that line
Response.Write strLine &_
" "
loop
End If
' close TextStreamObject and destroy local variables to release memory
TS.Close
Set TS = Nothing
Set FSO = Nothing
%>
|