<%response.buffer=true%>
<%
Dim theSRV
theSRV = Request.ServerVariables("SERVER_NAME")
Select Case theSRV
Case "www.lesnies.com.au" Response.Redirect("http://www.bunzl.com.au/Lesnies/home.htm")
Case "lesnies.com.au" Response.Redirect("http://www.bunzl.com.au/Lesnies/home.htm")
Case "www.lesnies.co.nz" Response.Redirect("http://www.bunzl.com.au/Lesnies/home.htm")
Case "lesnies.co.nz" Response.Redirect("http://www.bunzl.com.au/Lesnies/home.htm")
Case "www.lesnies.com" Response.Redirect("http://www.bunzl.com.au/Lesnies/home.htm")
Case "lesnies.com" Response.Redirect("http://www.bunzl.com.au/Lesnies/home.htm")
End Select
%>
Home Page
