Metode til at analysere Request.ServerVariables("HTTP_USER_AGENT"

Jeg har beug for en metode der kan analysere denne streng så jeg får ud hvad det er for type browser eller søgemaskine der besøger min side. Jeg har fundet nedenstående, men den virker ikke ordentlig og tager ikke højde for søgemaskiner:

sBrowserType = request("b")
        select case sBrowserType
            case "MSIE"
                p1 = instr(sU, ";")
                p2 = instr(p1+1, sU, ";")   
                sBrowser = mid(sU, p1+2, (p2-p1)-2)
            case "NS"
                sBrowser = "NS " & mid(sU, 9, 3)
                if instr(sU, "Netscape") then
                    i = instr(20, sU, "/")
                    sBrowser = "NS " & right(sU, len(sU)-i)
                end if
                if instr(sU, "Netscape6/") then
                    p1 = instr(sU, "Netscape6/") + 10
                    sBrowser = "NS " & mid(sU, p1)
                    p2 = instr(4, sBrowser, " ")
                    if p2 <> 0 then sBrowser = left(sBrowser, p2)
                end if
            case else
              If instr( sU, "MSIE" ) > 0 Then
                  p1 = instr( sU, "MSIE" )
                  p2 = instr( p1+1, sU, ";")
                  sBrowser = mid(sU, p1, (p2-p1)-1)
              Elseif instr(sU2, "KONQUEROR") then    'For Konqueror Counting
                  p1 = instr( sU2, "KONQUEROR" ) + 10
                  p2 = instr( p1, sU2, ";")
                  sBrowser = "Konqueror " & trim(mid(sU, p1, (p2-p1)))
              else
                  sBrowser = sU
              end if
        end select
        if instr(sU, "OPERA/") then    'For Opera Counting, even if set to appear as other browser type
          p1 = instr( sU, "OPERA/" ) + 6
          p2 = instr( p1, sU, "(")
          sBrowser = "Opera " & trim(mid(sU, p1, (p2-p1)))
        elseif instr(sU, "OPERA") then
          p1 = instr( sU, "OPERA" ) + 5
          p2 = instr( p1, sU, "[")
          sBrowser = "Opera " & trim(mid(sU, p1, (p2-p1)))
        end if