ciao, ho realizzato una paginetta di statistiche, ma ho un problema quando analizzo l' User-Agent, vi posto il codice poi vi dico il problema:

codice:
' Analisi User-Agent
sql = "SELECT browser FROM statistiche"
Set rs = Server.createObject("ADODB.Recordset") 
rs.Open sql, cn 

browser = LCase(rs("browser"))

Dim count_browser(5)

Do While NOT rs.EOF
	
	' conteggio browser
	Select Case i > 0
	Case i = Instr(browser, "safari")
		count_browser(1) = count_browser(1)+1
	Case i = Instr(browser, "firefox")
		count_browser(2) = count_browser(2)+1
	Case i = Instr(browser, "chrome")
		count_browser(3) = count_browser(3)+1
	Case i = Instr(browser, "opera")
		count_browser(4) = count_browser(4)+1
	Case i = Instr(browser, "msie")
		count_browser(5)= count_browser(5)+1
	Case else
		count_browser(0) = count_browser(0)+1
	End Select

	rs.MoveNext
Loop 

rs.Close 
Set rs = Nothing
Questo codice mi restituisce il valore 3342 all'array count_browser(0) mentre negli altri il valore è nullo.

Ho fatto un response.write(browser) del primo rs è mi da:
"mozilla/5.0 (compatible; msie 9.0; windows nt 6.1; trident/5.0)"
quindi LCase mi ha trasformato correttamente tutto in minuscolo, e come si può notare all'interno c'è anche "msie" che però non vede in "Instr(browser, "msie")"...
Ho provato anche con il compara "1" ma niente..

Poi una volta risolto questo problemi avrei bisogno di qualche suggerimento per ordinare gli arrai dal valore più grande al più piccolo.

Thanks!