<% Dim userAgent userAgent = Lcase(Request.ServerVariables("HTTP_USER_AGENT")) If InStr(userAgent, "iphone") > 0 Or InStr(userAgent, "ipod") > 0 Or InStr(userAgent, "ipad") > 0 Or InStr(userAgent, "android") > 0 Then %> <% Else %><% End If %>