<%
'Response.Redirect "http://transcontinental.com"


Dim strPos, strDirectPos
strPos = InStr(1, Request.ServerVariables("SERVER_NAME") , "transcontinental-printing.com", vbTextCompare)
strPosCa = InStr(1, Request.ServerVariables("SERVER_NAME") , "transcontinental-printing.ca", vbTextCompare)
strDirectPos = InStr(1, Request.ServerVariables("SERVER_NAME") , "www.transcontinental-direct.com", vbTextCompare)

if strDirectPos <> 0 then
	response.redirect "index.html"
end if

If strPos = 0 And strPosCa = 0 then
'String not found - redirect FR
	'Response.redirect "fr/home/accueil.htm"
	Response.redirect "fr/home/accueil.aspx"
else
	'Response.redirect "en/home/home.htm"
	Response.redirect "en/home/home.aspx"
end if


%>