The College Experience: A Blueprint for Success
<%
dim page(17)
page(0)="light_text1.html"
page(1)="../light1/extra/light1.html"
page(2)="light_text2.html"
page(3)="../light2/extra/light2.html"
page(4)="light_text3.html"
page(5)="../light3/extra/light3.html"
page(6)="light_text4.html"
page(7)="../light4/extra/light4.html"
page(8)="light_text5.html"
page(9)="../light5/extra/light5.html"
page(10)="light_text6.html"
page(11)="../light6/extra/light6.html"
page(12)="light_text7.html"
page(13)="../light7/extra/light7.html"
page(14)="light_text8.html"
page(15)="light_text9.html"
page(16)="../research_design/research_design.html"
'
'BIOGRAPHY PAGE
'
page(17)="../light_bio/light_bio.html"
'
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
for each filepath in page
Dim objFile
Set objFile = objFSO.OpenTextFile(Server.MapPath(filepath))
Dim strContents
strContents = objFile.ReadAll
objFile.Close
Set objFile = Nothing
'
'
'
'GET THE TITLE
Dim objRegExp_TITLE
Set objRegExp_TITLE = New RegExp
Dim strHTML, strMatch_TITLE
strMatch_TITLE = ""
objRegExp_TITLE.Pattern = strMatch_TITLE
objRegExp_TITLE.IgnoreCase = True
objRegExp_TITLE.Global = True
Dim objMatches_TITLE, objMatch_TITLE
Set objMatches_TITLE = objRegExp_TITLE.Execute(strContents)
'END TITLE
'
'GET THE BODY
Dim objRegExp_BODY
Set objRegExp_BODY = New RegExp
Dim strMatch_BODY
strMatch_BODY = ""
objRegExp_BODY.Pattern = strMatch_BODY
objRegExp_BODY.IgnoreCase = True
objRegExp_BODY.Global = True
Dim objMatches_BODY, objMatch_BODY
Set objMatches_BODY = objRegExp_BODY.Execute(strContents)
'END BODY
'
'
For Each objMatch_TITLE in objMatches_TITLE
Response.Write objMatch_TITLE.Value
Next
'
For Each objMatch_BODY in objMatches_BODY
Response.Write "" & objMatch_BODY.Value & "
"
Next
'
Set objRegExp_TITLE = Nothing
Set objRegExp_BODY = Nothing
next
%>