<% '**** SELECT PAGE SECTION ****************************** dim strPageSection dim strPageTitle dim strPageTitleLevel3 dim strPageTitleLevel4 dim strPageType dim strPageSectionID dim strSelectedLinks dim strPageID strPageSection = "Latest News" strPageType = "Level 1" strSelectedLinks = strPageSection '******************************************************* %> <% '**** PageID Variable ********************************** strPageID = (rsPages_PageID.Fields.Item("PageID").Value) strPageSectionID = strPageID '******************************************************* %> <%=strTitleTag%>
About Productions People Buy Our DVD Press WorkshopContact  
 

Latest News

<% If Not rsLinks_PageSection.EOF Or Not rsLinks_PageSection.BOF Then %> <% dim strLinkPageID dim strLinkPageAliasID dim strlinkPageTitle dim strlinkPageOutput dim strlinkPageExtURL dim strlinkPageExtOpenNew dim strFullLink dim strLinkNew %> <% While ((Repeat51__numRows <> 0) AND (NOT rsLinks_PageSection.EOF)) %> <% strLinkPageID = (rsLinks_PageSection.Fields.Item("PageID").Value) strLinkPageAliasID = (rsLinks_PageSection.Fields.Item("Page_AliasID").Value) strlinkPageTitle = DoApostrophe(rsLinks_PageSection.Fields.Item("Page_Title").Value) strlinkPageOutput = DoApostrophe(rsLinks_PageSection.Fields.Item("Page_Output").Value) strlinkPageExtURL = DoApostrophe(rsLinks_PageSection.Fields.Item("Page_External_URL").Value) strlinkPageExtOpenNew = DoApostrophe(rsLinks_PageSection.Fields.Item("Page_External_OpenNew").Value) If strlinkPageOutput = "Alias" Then strLinkPageID = strLinkPageAliasID strFullLink = "" & strlinkPageTitle & "" If strlinkPageOutput = "External" Then If CSTR(strlinkPageExtOpenNew) = "True" Then strLinkNew = " target=""_blank""" If strlinkPageExtURL <> "" Then strFullLink = "" & strlinkPageTitle & "" Else strFullLink = strlinkPageTitle End If 'strlinkPageExtURL <> "" End If 'strlinkPageOutput = "External" %> <% Repeat51__index=Repeat51__index+1 Repeat51__numRows=Repeat51__numRows-1 rsLinks_PageSection.MoveNext() Wend %>
<%=strFullLink%>
<% End If ' end Not rsLinks_PageSection.EOF Or NOT rsLinks_PageSection.BOF %>
            
 
 
<% '**** Call add include procedure **** Call WritePageIDInclude '************************************ %> 		 
<% rsLinks_PageSection.Close() Set rsLinks_PageSection = Nothing %> <% rsPages_PageID.Close() Set rsPages_PageID = Nothing %>