<% dim serverName serverName = request.ServerVariables("SERVER_NAME") if inStr(1,serverName,"firstmail.com.au",1)>0 then response.Redirect("/firstmail") elseif inStr(1,serverName,"uk.smartmail.com.au",1)>0 then response.Redirect("/UK") elseif inStr(1,serverName,"usa.smartmail.com.au",1)>0 then response.Redirect("/USA") elseif inStr(1,serverName,"nz.smartmail.com.au",1)>0 then response.Redirect("/NZ") elseif inStr(1,serverName,"hk.smartmail.com.au",1)>0 then response.Redirect("/HK") elseif inStr(1,serverName,"smartmail.com.au",1)>0 then response.Redirect("/smartmail") elseif inStr(1,serverName,"smartprint.com.au",1)>0 then response.Redirect("/smartprint") elseif inStr(1,serverName,"smartstuffmarketing.com.au",1)>0 then response.Redirect("/smartstuffmarketing") elseif inStr(1,serverName,"myenvelopes.com.au",1)>0 then response.Redirect("/myenvelopes") elseif inStr(1,serverName,"theresistance.com.au",1)>0 then response.Redirect("/theresistance") else response.Write("You came to unknown domain. Please choose one of the following:
") response.Write("http://www.firstmail.com.au
") response.Write("http://www.smartmail.com.au
") response.Write("http://www.smartprint.com.au
") response.Write("http://www.smartstuffmarketing.com.au
") response.Write("http://www.snh.com.au
") response.Write("http://www.theresistance.com.au
") end if %>