%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[If Session("Book") Then Report.AbortTemplate]%>
<%[
' do not report source if no references
If s.Session("References") > 0 Then
Else
Report.AbortPage
End If
Dim oFso
Set oFso = CreateObject("Scripting.FileSystemObject")
]%>
<%[
Session("NotesStart") = Report.BufferLength
WriteHtmlButtonToggle("Notes")
ichNotesEnd = Report.BufferLength
Session("ReferencesStart") = Report.BufferLength
WriteHtmlButtonToggle("OtherDetails")
ichReferencesEnd = Report.BufferLength
WriteHtmlButtonToggle("HidePopUp")
]%>
<%[
WriteHtmlSource s
' remove any unnecessary items (reverse order to avoid invalidating buffer pointers)
If Session("ReferencesStart") >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt Session("ReferencesStart"), ichReferencesEnd
End If
If (Session("NotesStart") >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt Session("NotesStart"), ichNotesEnd
End If
]%>
<%[if session("fUseCurvyBoxes") then CurvyBoxClose()]%>
<%[ WriteHtmlFramesetSafeguard("Sources") ]%>