<% strUA = Request.ServerVariables("HTTP_USER_AGENT") Response.Write " The User Agent string is " & strUA & "

" If InStr(strUA, "MSIE") Then Response.Write "To upgrade your browser go to " _ & "http://www.microsoft.com/ie/

" intVersion = CInt(Mid(strUA, InStr(strUA, "MSIE") + 5,1)) If intVersion >= 4 Then Response.Write " You can use Dynamic HTML" End If Else If InStr(strUA, "Mozilla") Then If InStr(strUA, "compatible;") = 0 Then Response.Write "Your Browser is probably Navigator. You can " _ & "download the latest version of Navigator from " _ & "http://home.netscape.com/download/

" intVersion = CInt(Mid(strUA, InStr(strUA, "/") + 1,1)) If intVersion >= 4 Then Response.Write " You can use Netscape Dynamic HTML" End If Else strVersion = Mid(strUA, InStr(strUA, "compatible;") + 12) strProduct = Left(strVersion, InStr(strVersion, " ")) Response.Write " Your Browser is Navigator-compatible. You can " _ & "search for the manufacturer using a search engine, such as " _ & "http://www.altavista.com/

" End If End If End If %>