Bach Manuscripts: Recovery of the Hidden Archive
<%
dim page(26)
page(0)="wolff1_1.html"
page(1)="wolff1_2.html"
page(2)="wolff2_1.html"
page(3)="wolff3_1.html"
page(4)="wolff3_2.html"
page(5)="wolff4_1.html"
page(6)="wolff4_2.html"
page(7)="wolff4_3.html"
page(8)="wolff5_1.html"
page(9)="wolff5_2.html"
page(10)="wolff5_3.html"
page(11)="wolff6_1.html"
page(12)="wolff6_2.html"
page(13)="wolff6_3.html"
page(14)="wolff7_1.html"
page(15)="wolff7_2.html"
page(16)="wolff7_3.html"
page(17)="wolff7_4.html"
page(18)="wolff7_5.html"
page(19)="wolff8_1.html"
page(20)="wolff9_1.html"
'
'BIOGRAPHY PAGES
'
page(21)="../../wolff_tree/ambrorius.html"
page(22)="../../wolff_tree/christoph.html"
page(23)="../../wolff_tree/sebastian.html"
page(24)="../../wolff_tree/friedemann.html"
page(25)="../../wolff_tree/emanuel.html"
page(26)="../../wolff_tree/christian.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
%>