% Randomize() nansu = Int((Rnd*4)+1) Function is_mobile() Dim Regex, match Set Regex = New RegExp With Regex .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm|ipad)" .IgnoreCase = True .Global = True End With match = Regex.test(Request.ServerVariables("HTTP_USER_AGENT")) If match Then is_mobile = True Else is_mobile = False End If End Function If Not is_mobile Then nansu=0 End If %>