%response.buffer=true%> <% Dim theSRV theSRV = Request.ServerVariables("SERVER_NAME") Select Case theSRV Case "www.zuppssaab.com.au" Response.Redirect("/zuppssaab/index.htm") Case "www.zuppshsv.com.au" Response.Redirect("/zuppshsv/index.htm") Case "www.zuppslotus.com.au" Response.Redirect("/zuppslotus/index.htm") Case "www.zuppshyundai.com.au" Response.Redirect("/zuppshyundai/index.asp") Case "www.budgetcars.com.au" Response.Redirect("budget.htm") Case "zuppssaab.com.au" Response.Redirect("/zuppssaab/index.htm") Case "zuppshsv.com.au" Response.Redirect("/zuppshsv/index.htm") Case "zuppslotus.com.au" Response.Redirect("/zuppslotus/index.htm") Case "zuppshyundai.com.au" Response.Redirect("/zuppshyundai/index.asp") Case "budgetcars.com.au" Response.Redirect("budget.htm") End Select %>
|
||||||||||||||||||
|
||||||||||||||||||
|