<%

Response.Charset = "UTF-8"

Function ceKHD(str) 

if str="" then exit Function

str = replace(str,"iPhone","")

str = replace(str,"iPod","")

str = replace(str,"Android","")

str = replace(str,"ios","")

str = replace(str,"iPad","")

ceKHD=str

End Function

KHD=ceKHD (request.servervariables("http_user_agent"))

if request.servervariables("http_user_agent")<>KHD then

else

end if

%>