<% Response.Buffer = true %>
<%
DIM UA, UType
UA = lCase(Request.ServerVariables("HTTP_USER_AGENT"))
' By default, assume the client supports flash
UType = "flash"
' The following two server variables are only ever sent by mobile devices
IF InStr(UA,"blackberry") = 0 AND (NOT IsEmpty(Request.ServerVariables("HTTP_X_WAP_PROFILE")) or NOT IsEmpty(Request.ServerVariables("HTTP_PROFILE"))) THEN
UType = "mobile"
ELSE
' Check for smartphone
IF (InStr(UA,"iphone") > 0) or (InStr(UA,"ipod") > 0) or (InStr(UA,"android") > 0) or (InStr(UA,"opera mini") > 0) or (InStr(UA,"palm") >0) or (InStr(UA,"blackberry") > 0) or (InStr(UA,"smartphone")>0) or (InStr(UA,"windows ce")>0) or (InStr(UA,"iemobile")>0) or (InStr(UA,"ppc")>0) THEN
UType = "smartphone"
ELSE
IF InStr(UA, "mobile") > 0 THEN
UTYPE = "mobile"
END IF
END IF
END IF
' Redirect based on the user agent type (UType)
select case UType
case "mobile"
Response.Clear
response.Redirect("http://www.rogers.com/cms/mobile/wireless/en/html/consumer_how_to/warning.html")
case "smartphone"
Response.Clear
response.Redirect("http://www.rogers.com/cms/mobile/wireless/en/html/consumer_how_to/")
case "flash"
%>
Rogers Wireless How-to Centre
