<%
' BEGIN revision control code
function isRevised ()
revisedLanguages = Array("ENG")
'All languages: "ENG", "FRA", "ESN", "CHS", "ARA"
languageVariant = "ENG"
isRevised = "false"
if "false" = "true" then
isRevised = "true"
end if
For Each item In revisedLanguages
if item = languageVariant then
isRevised = "true"
exit For
end if
Next
end function
function isPublished ()
lg = ""
isPublished = "true"
if lg <> "" then
isPublished = "false"
end if
end function
function isPHP ()
isPHP = "false"
end function
isPHPFile = "false"
' END revision control code
%>
<%
' this function is defined here so that pages that don't
' have anything in their body won't fail
' returns the page ID of this page
function getCurrentPage ()
getCurrentPage = 0
end function
function getPageKeywords ()
getPageKeywords = ""
end function
PageKeywords = getPageKeywords ()
function getPageCreationDate ()
getPageCreationDate = ""
end function
PageCreationDate = getPageCreationDate()
function getPageMetaDate ()
getPageMetaDate = ""
end function
PageMetaDate = getPageMetaDate()
function getTitle ()
getTitle = ""
end function
title = getTitle()
PageTitleMetaTag = ""
if PageTitleMetaTag = "" and not title = "" then
title = " - " & title
else
title = " - " & PageTitleMetaTag
end if
Response.write "UNICEF - UNICEF in emergencies" & title & ""
%>
">
<%
'create META page type for News story
SpaceLoc = InStr(PageKeywords, "Newsline story")
If (SpaceLoc > 0) Then
response.write("")
ElseIf (InStr(title, "Newsline")> 0) or (InStr(title, "Actualidad")> 0) or (InStr(title, "Actualité")> 0) or (InStr(title, "新闻")> 0) or (InStr(title, "خط الأخبار")> 0) Then
Response.Write("")
End If
%>
<%
if isRevised = "false" then
%>
<%
end if
%>
<%
if isRevised = "true" then
%>
<%
else
%>
<%
end if
%>
<%
if isRevised = "true" then
%>
<%
if isPublished = "true" then
if isPHP = "true" then
Response.write ""
elseif isNULL(isPHPFile) or isPHPFile <> "true" then
Response.write "