<%
Dim blnFourOK, objBrowsers
Set objBrowsers = Server.CreateObject("MSWC.BrowserType")
blnFourOK = (CInt(objBrowsers.Version) >= CInt("4.0"))
If objBrowsers.Version = 0 Then
If InStr(1, Request.ServerVariables("HTTP_USER_AGENT"), "Mozilla/4") > 0 Then
blnFourOK = True
Else
blnFourOK = False
End If
End If
%> <% If blnFourOK=True Then %>
