<% Dim strAgent Dim intPos Dim intIEVersion Dim bolDisplayNewEditor bolDisplayNewEditor = False strAgent = Request.ServerVariables("HTTP_USER_AGENT") If InStr(1, strAgent, "MSIE", 1) > 0 Then On Error Resume Next intPos = InStr(1, strAgent, "MSIE", 1) intIEVersion= Trim(Mid(strAgent, intPos+5, 3)) intIEVersion=CDbl(intIEVersion) If err.number>0 Then bolDisplayNewEditor = False End If If intIEVersion >= 5.5 Then bolDisplayNewEditor = True End If End If %>