%response.buffer=true%> <% Dim theSRV theSRV = Request.ServerVariables("SERVER_NAME") Select Case theSRV Case "www.justswimming.com.au" Response.Redirect("justswimming/index.htm") Case "www.brookehanson.com" Response.Redirect("brooke/index.htm") Case "brookehanson.com" Response.Redirect("brooke/index.htm") End Select %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||