% ' SUBROUTINE FOR READING NEWS ITEMS FROM TEXT FILE ON SERVER Const ForReading = 1 Dim arrNews1() ' TEXT ARRAY THAT HOLDS NEWS ITEM ONE Dim arrNews2() ' TEXT ARRAY THAT HOLDS NEWS ITEM TWO Dim arrNews3() ' TEXT ARRAY THAT HOLDS NEWS ITEM THREE Dim arrNews4() ' TEXT ARRAY THAT HOLDS NEWS ITEM FOUR Dim arrNews5() ' TEXT ARRAY THAT HOLDS NEWS ITEM FIVE Dim iUpperBound1 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS1 Dim iUpperBound2 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS2 Dim iUpperBound3 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS3 Dim iUpperBound4 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS4 Dim iUpperBound5 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS5 Dim intNews1List Dim intNews2List Dim intNews3List Dim intNews4List Dim intNews5List ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM ONE Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News1.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound1 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews1(iUpperBound1) arrNews1(UBound(arrNews1)) = a.ReadLine iUpperBound1 = iUpperBound1 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM TWO Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News2.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound2 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews2(iUpperBound2) arrNews2(UBound(arrNews2)) = a.ReadLine iUpperBound2 = iUpperBound2 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM 3 Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News3.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound3 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews3(iUpperBound3) arrNews3(UBound(arrNews3)) = a.ReadLine iUpperBound3 = iUpperBound3 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM FOUR Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News4.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound4 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews4(iUpperBound4) arrNews4(UBound(arrNews4)) = a.ReadLine iUpperBound4 = iUpperBound4 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM FIVE Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News5.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound5 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews5(iUpperBound5) arrNews5(UBound(arrNews5)) = a.ReadLine iUpperBound5 = iUpperBound5 + 1 Wend a.close if error then job = "did not work" end if %>
|
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||
|
Home | Services | Physicians | News | Employment | Payments | Your Health | Giving | Contact Us
Connally Memorial Medical Center © 2005 |
Privacy
Policy | Find
Us
|