Detectar que o acesso vem de um celular.

[Henrique Tsubamoto 0]

Como fazer? estou com essa duvida e nao encontrei a solução.

[xanburzum 169]

Uma excelente 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.

<%
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
%>

[Gustavo Emygdio Barboza 24]

função muito boa amarrou direitinho todos os navegadores móveis senão a maioria ou mais utilizado...

[xanburzum 169]

e depois o legal é ter um design responsive, com menus que se adequem a plataforma