%response.buffer=true%> <% Dim theSRV theSRV = Request.ServerVariables("SERVER_NAME") Select Case theSRV 'Case "www.pom.com.au" Response.Redirect("www.compusoft.com.au/thepowerovermoney") Case "www.pom.com.au" Response.Redirect("http://www.tpom.homeip.net") Case "www.pom.com.au" Response.Redirect("/thepowerovermoney") Case "www.thepowerovermoney.com.au" Response.Redirect("/thepowerovermoney") Case "http://www.thepowerovermoney.com.au" Response.Redirect("/thepowerovermoney") Case "http://www.compusoft.com.au" Response.Redirect("www.compusoft.com.au/Index1.htm") End Select %>
