Real lives

<% ' returns the page ID of this page function getCurrentPage () Dim overrideID overrideID = "" If overrideID = "" Then getCurrentPage = 430 Else getCurrentPage = overrideID End If end function function getTitle () theTitle = "" if theTitle = "" Then theTitle = "Real lives" if theTitle = "" Then theTitle ="Albania/Real lives links page" End If End If getTitle = theTitle end function function getPageCreationDate () PageCreationDate = "" if PageCreationDate = "" then PageCreationDate = "2003-02-10" end if getPageCreationDate = PageCreationDate end function function getPageMetaDate () PageMetaDateOption = "" Select case PageMetaDateOption case "override" 'use override date PageOverrideDate = "" if PageOverrideDate = "" then PageMetaDate = "2003-05-22" end if case "creation" 'use creation date (which could be customized) PageMetaDate = "" if PageMetaDate = "" then PageMetaDate = "2003-02-10" end if case Else 'use last mod date PageMetaDate = "2003-05-22" End Select getPageMetaDate = PageMetaDate end function %>

Real lives

<% 'REVISIONS MADE BY REDDOT 20050405 dim sLowerLimit, sUpperLimit, sDISPLAY_HIDDEN sDISPLAY_HIDDEN = UCase(Trim("0")) if (sDISPLAY_HIDDEN="1") then DISPLAY_HIDDEN=true sLowerLimit = Left(Trim(""),1) sUpperLimit = Left(Trim(""),1) dim bLimitDisplay, sHeadline bLimitDisplay = true if sLowerLimit="" or sUpperLimit="" then bLimitDisplay = false %> <% 'END REVISIONS MADE BY REDDOT 20050405 %>
 

 

 
<% menuTitle = "Real lives" updateStamp = true if Len(Trim(menuTitle)) > 0 Then if StrComp(menuTitle, "Newsline", 0) = 0 then updateStamp = false end if if StrComp(menuTitle, "Session news", 0) = 0 then updateStamp = false end if end if if updateStamp Then %> <% end if %>