[Resolvido] Function isMobile

Resolvi fazer uma função de verificação para saber se o usuário esta ou não acessando a página a partir de um dispositivo móvel, achei uma function bem simples em php e resolvi fazer a minha em asp.

A versão php esta aqui: http://www.justindocanto.com/scripts/detect-a-mobile-device-user-in-php

E aqui a minha versão em asp

<%
Function isMobile()

Dim sys : sys = "android|avantgo|blackberry|bolt|boost|cricket|docomo|fone|hiptop|mini|mobi|palm|phone|pie|tablet|up.browser|up.link|webos|wos"
sys = split(sys,"|")

Dim i : For i=0 to uBound(sys)
v = InStr(lCase(Request.ServerVariables("HTTP_USER_AGENT")),sys(i))
if v <> 0 then : isMobile = true : exit function : else : isMobile = false
Next

End function

if isMobile() then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", "http://m.yoursite.com/"
End if
%>