<%
Dim strTMRootGUID
Dim chnTMRoot
Dim colTMChannels
Dim chnTMChannel
Dim strTMChannelURL
Dim strTMChannelName
strTMRootGUID = "{73E5E86B-89E0-4193-B550-E3A3BE51B623}"
strTMRootGUID = "{E4D19123-9DD3-11D1-B44E-006097071264}"
Set chnTMRoot = AutoSession.Searches.GetByGUID(strTMRootGUID)
Set colTMChannels = chnTMRoot.Channels
For Each chnTMChannel In colTMChannels
If chnTMChannel.CustomProperties("position").Value = "top" Then
strTMChannelName = chnTMChannel.DisplayName
strTMChannelURL = chnTMChannel.URL
%>