ASP.net Redirect to Mobile Site From Google

Question

I have ASP.net web site. I checked device is mobile or not on home page's page load. If its mobile, device routing to mobile page. It works. But when I entered my web site from google, there is no routing to mobile page if device is mobile. What is the problem here ?

control statement:

If Request.Browser.IsMobileDevice Then
        Response.Redirect("MobileHomePage.aspx", True)
    End If

Answer 1

IsMobileDevice is not 100% reliable.

Neither is this method but you should have more luck using this (possibly 99% reliable?):

Public Shared Function IsMobile() As Boolean
    Dim curcontext As HttpContext = HttpContext.Current
    Dim user_agent As String = curcontext.Request.ServerVariables("HTTP_USER_AGENT")
    user_agent = user_agent.ToLower

    ' Checks the user-agent
    If (Not (user_agent) Is Nothing) Then
        ' Checks if its a Windows browser but not a Windows Mobile browser
        If (user_agent.Contains("windows") AndAlso Not user_agent.Contains("windows ce")) Then
            Return False
        End If
        ' Checks if it is a mobile browser
        Dim pattern As String = "up.browser|up.link|windows ce|iphone|iemobile|mini|mmp|symbian|midp|wap|phone|pocket|mobile|pda|psp"
        Dim mc As MatchCollection = Regex.Matches(user_agent, pattern, RegexOptions.IgnoreCase)
        If (mc.Count > 0) Then
            Return True
        End If
        ' Checks if the 4 first chars of the user-agent match any of the most popular user-agents
        Dim popUA As String = "|acs-|alav|alca|amoi|audi|aste|avan|benq|bird|blac|blaz|brew|cell|cldc|cmd-|dang|doco|eric|hipt|inno|" & _
        "ipaq|java|jigs|kddi|keji|leno|lg-c|lg-d|lg-g|lge-|maui|maxo|midp|mits|mmef|mobi|mot-|moto|mwbp|nec-|" & _
        "newt|noki|opwv|palm|pana|pant|pdxg|phil|play|pluc|port|prox|qtek|qwap|sage|sams|sany|sch-|sec-|send|" & _
        "seri|sgh-|shar|sie-|siem|smal|smar|sony|sph-|symb|t-mo|teli|tim-|tosh|tsm-|upg1|upsi|vk-v|voda|w3c |" & _
        "wap-|wapa|wapi|wapp|wapr|webc|winw|winw|xda|xda-|"
        If popUA.Contains(("|" + (user_agent.Substring(0, 4) + "|"))) Then
            Return True
        End If
    End If

    ' Checks the accept header for wap.wml or wap.xhtml support
    Dim accept As String = curcontext.Request.ServerVariables("HTTP_ACCEPT")
    If (Not (accept) Is Nothing) Then
        If (accept.Contains("text/vnd.wap.wml") OrElse accept.Contains("application/vnd.wap.xhtml+xml")) Then
            Return True
        End If
    End If

    ' Checks if it has any mobile HTTP headers
    Dim x_wap_profile As String = curcontext.Request.ServerVariables("HTTP_X_WAP_PROFILE")
    Dim profile As String = curcontext.Request.ServerVariables("HTTP_PROFILE")
    Dim opera As String = curcontext.Request.Headers("HTTP_X_OPERAMINI_PHONE_UA")
    If ((Not (x_wap_profile) Is Nothing) OrElse ((Not (profile) Is Nothing) OrElse (Not (opera) Is Nothing))) Then
        Return True
    End If
    Return False
End Function