<%[
Pictures.SortBy("Name")
Dim strDimension, c, strName
For Each p In Pictures
If p.References.Count > 0 And CustomTag(p, "_Exclude") <> "Y" Then
If fPrivateFolder Or Not isPrivate(p) Then
Report.WriteLn "
"
End If
End If
Next
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If g_ichReferencesStart >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt ichReferencesStart, ichReferencesEnd
End If
If (g_ichNotesStart >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt g_ichNotesStart, ichNotesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Places") ]%>