%
dim a
a = Browsr
if InStr( a, "MSIE" ) then
   ' browser is Internet Explorer
else
   ' browser is some other type...
end if
%>

%
Private Function Browsr()
  Browsr = Request.ServerVariables("HTTP_USER_AGENT")
End Function
%>

% 
dim ua 
ua=Request.ServerVariables("HTTP_USER_AGENT") 
response.write ua 
%>