<% p= Request("p") u = Request.ServerVariables("SERVER_NAME") 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|Android|BlackBerry|iPhone|iPod|Palm|Symbian)" .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 (InStr(u, "agencyw.com") > 0) Or (InStr(u, "agencyw.co.kr") > 0) Then If Is_Mobile() Then %> Agency W <% Else %> Agency W