<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ strTitle = Dic("TocIndexOccupancies") strAltToggle = StrDicOpt("TocExpandCollapseAll", Dic("Notes"),"{} {}") strAltToggle1 = StrDicOpt("TocExpandCollapseAll", Dic("References"), "{} {}") Report.TagBr = "
" & vbCRLF ' For debugging, but it does not harm to re-define the
tag ]%> @[ Report.WriteFormatted Dic("FmtTitleContact"), Session("Title") ]@ <%[ If Session("VideoJs") Then ]%> <%[ End If ]%>
<%[ Session("NotesStart") = Report.BufferLength ]%> <%[ ichNotesEnd = Report.BufferLength ]%> <%[ Session("ReferencesStart") = Report.BufferLength ]%> <%[ ichReferencesEnd = Report.BufferLength ]%>

@[ Report.WriteText strTitle ]@


<%[ Dim strComments,strComment, ich, strSummary Dim oDataSorter, collContacts 'sort contacts by place fullname a-z Set oDataSorter = Util.NewDataSorter() For Each c in Contacts oDataSorter.Add c, c.Place("NameFull") Next oDataSorter.SortByKey Set collContacts = oDataSorter.ToGenoCollection For Each c In collContacts Set collReferences = c.References Report.WriteFormattedLn "

{&t}

", c.ID, c.Session("Name") If (c.Session("PicturesIncluded") > 0) Then Report.WriteLn "
" WriteHtmlPicturesLarge c, "left", "", g_fHidePictureDetails, False Report.WriteLn "
" End If ich = Report.BufferLength Report.WritePhraseDic "PhOccupancy", c.type, StrHtmlHyperlinkPlace(c.Place), StrTimeSpan(c.Duration), StrDateSpan(c.DateStart, c.DateEnd) If Report.BufferLength > ich And c.summary <> "" Then Report.WriteBr Report.WritePhraseDic "PhContact", c.telephone, c.Fax, Util.FormatHtmlHyperlink(Util.IfElse(c.Email <> "","mailto:" & c.Email,""), c.Email), Util.FormatHtmlHyperlink(c.Homepage, ,"target='_blank'"), c.Type, c.Place, c.Mobile WriteHtmlFootnoteRef c.Source WriteHtmlAdditionalInformation(c) WriteHtmlAnnotation c, Dic("AnnotationOccupancy"), c.Comment WriteHtmlReferences c, false WriteHtmlAllFootnotes c.Sources, True Report.WriteLn "
" Next 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("ReferencesStart") >= 0 Then ' We have no place references, so remove the "Show All References | Hide All References" Report.BufferRemoveAt ichReferencesStart, ichReferencesEnd End If ]%>
<%[ WriteHtmlFramesetSafeguard("Contacts") ]%>