<%[
Dim oDataSorter, collSocialEntities, cchStart, cchBegin
Set oDataSorter = Util.NewDataSorter()
For Each s in SocialEntities
If s.Session("Name") <> "" And IsFalse(CustomTag(s, "IsLabel"), False) And (strLang = "" Or strLang = Session("ReportLanguage")) Then oDataSorter.Add s, s.Session("Name")
Next
oDataSorter.SortByKey
Set collSocialEntities = oDataSorter.ToGenoCollection
For Each s In collSocialEntities
cchStart = Report.BufferLength
Report.WriteLn "
"
cchBegin = Report.BufferLength
WriteHtmlEntity s
If Report.BufferLength > cchBegin Then
Report.WriteLn "
"
Else
Report.BufferLength = cchStart
End If
Next
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If Session("ReferencesStart") >= 0 Then
' We have no references, so remove the "Show other details | Hide other details"
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
]%>
<%[ WriteHtmlFramesetSafeguard("SocialEntities") ]%>