%
response.buffer=true
'Response.Write Request.ServerVariables("HTTP_HOST")
if Request.ServerVariables("HTTP_HOST")="www.waterskiworld.co.uk" then
response.redirect("http://www.planetwaterski.com")
end if
userAgent = Request.ServerVariables("HTTP_USER_AGENT")
isPocketPc = false
if(userAgent <> "" AND ((InStr(ucase(userAgent), "MIDP") > 0) or (InStr(ucase(userAgent), "SYMBIAN") > 0) or (InStr(ucase(userAgent), "NOKIA") > 0) or (InStr(ucase(userAgent), "WINDOWS CE") > 0) or (InStr(ucase(userAgent), "PHONE") > 0) or (InStr(ucase(userAgent), "BALCKBERRY") > 0) or (InStr(ucase(userAgent), "PDA") > 0) or (InStr(ucase(userAgent), "PALM") > 0) or (InStr(ucase(userAgent), "VODAFONE") > 0))) then
isPocketPc = true
end if
if isPocketPc then
response.redirect("/mobile.htm")
end if
%>
Planet Waterski NEWS - 2010 35+ World and Europe and Africa Championships Ukraine Open