%@ Language=VBScript %> <% ' Set up your variables Dim sURL, sPath ' Get the domain name typed in the brows ' er. sURL = Request.ServerVariables("HTTP_HOST") ' Get the rest of the path after the dom ' ain name. sPath = Request.ServerVariables("PATH_INFO") ' Based on the domain name, redirect the ' user ' to the correct directory and attach th ' e rest ' of the path. Select Case sURL Case "www.bahrain-rent.com", "bahrain-rent.com" ' Ignore...this is the current site. Case "www.tamlkool.com", "domain2.com" ' redirect To the "domain2" directory Response.Redirect "domain2" & sPath Case "www.domain2.net", "domain2.net" ' redirect to the "domain2net" directory ' Response.Redirect "domain2net" & sPath End Select %>
|
|
|
|
|
|
|
|
|
||||||||||||||||||||||||
|
|
|
|
Copyright © 2005
bahrain-rent.com
All Rights Reserved
|