spmobrwz = "iPhone|iPod|BlackBerry|Android|Windows CE|LG|MOT|SAMSUNG|SonyEricsson|Mobile|Symbian|Opera Mobi|Opera Mini|IEmobile|Mobile|lgtelecom|PPC"
spmobrwz = split(spmobrwz,"|")
agent = Request.ServerVariables("HTTP_USER_AGENT")
For i = 0 to UBound(spmobrwz)
    If InStr(agent,spmobrwz(i)) > 0 Then
        url = "http://redmussa.com/mobilePension/index.html?clint=" & "www." &  LCASE(TRIM(Request.ServerVariables("SERVER_NAME")))
        Response.Redirect url
        Exit for
    End If
Next