%@ LANGUAGE="VBScript" %> <% Option Explicit Dim user_agent, mobile_browser, Regex, mobileRedirectURL mobileRedirectURL = "http://order.pandinis.com" user_agent = Request.ServerVariables("HTTP_USER_AGENT") mobile_browser = false Set Regex = New RegExp With Regex .Pattern = "(iphone|blackberry|mobile)" .IgnoreCase = True .Global = True End With If(Regex.Test(user_agent)) Then mobile_browser = true End If If (mobile_browser) Then Response.Redirect(mobileRedirectURL) End If %>