<%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 "
Read the Registration agreement. There is a button at the
bottom of the page which you need to press to say you accept the terms and conditions.
Fill in all the fields in the Registration setup form. It
is important for you to submit your correct email address, because we send you the
registration user name this way.
We register you immediately and then send your user name to
your email address. We can't guarantee the speed at which your email provider will pick up
this mail, but it should be within a minute.
We will not sell or otherwise distribute your account
information to any other organization.
Your registration information is
accepted using a secure form. All the details are encrypted before they are sent from your
computer to the CDNX. We do not allow credit card details to be viewed. When you look at
your account, you will not see any credit card information. Instead, we will just indicate
if we hold this information.
" ' REMOVE THIS LINE IF FRENCH COMES BACK
' UNCOMMENT THIS LINE IF FRENCH COMES BACK Response.Write "
"
Response.Write "
