<%if sSiteSection = "Home" then%> <%else%><%end if%> <%if sSiteSection = "Map" then%><%else%><%end if%>
<%if sSiteSection = "Search" then%> <%else%>
<%end if%><%if sSiteSection = "Contact" then%><%else%><%end if%><%
' dim sProtocol
' dim sTargetASP
' dim sButtonString
' dim arKeys
sFullFileName = Request.ServerVariables("HTTP_URL")
iPeriodPos = Instr(sFullFileName, ".")
iStrLen = Len(sFullFileName)
sExtension = Right(sFullFileName, iStrLen - iPeriodPos + 1)
if left ( sExtension, 4) = ".htm" OR _
left ( sExtension, 5) = ".shtm" OR _
left ( sExtension, 5) = ".html" then
Response.Write "
"
' REMOVE THIS LINE IF FRENCH COMES BACK
Response.Write "" ' REMOVE THIS LINE IF FRENCH COMES BACK
' UNCOMMENT THIS LINE IF FRENCH COMES BACK Response.Write ""
Response.Write "
"
else
if UCase(Request.ServerVariables("HTTPS")) = "OFF" then
sTargetASP = "http"
else
sTargetASP = "https"
end if
sTargetASP = sTargetASP & "://" + Request.ServerVariables("HTTP_HOST") + Request.ServerVariables("HTTP_URL")
if (Session("Language") = "ENGLISH") then
sButtonString = "Version française"
else
sButtonString = "English version"
end if
Response.Write "
" ' REMOVE THIS LINE IF FRENCH COMES BACK
' UNCOMMENT THIS LINE IF FRENCH COMES BACK Response.Write "
"
' UNCOMMENT THIS LINE IF FRENCH COMES BACK Response.Write "
"
Response.Write "
