%response.buffer=true%> <% Dim theSRV theSRV = Request.ServerVariables("SERVER_NAME") Select Case theSRV Case "www.tanonga.com.au" Response.Redirect("tanonga/index.html") Case "tanonga.com.au" Response.Redirect("tanonga/index.html") End Select %>