SAVOIR SI LE CLIENT ACCEEPTE LES FEUILLE DE STYLE

'Renvoie la version du navigateur

Function Version()
	Dim sAgent
	sAgent = Request.ServerVariables("HTTP_USER_AGENT")
	If left(sAgent,7) = "Mozilla" Then
		on error resume next
		Session.LCID = 2057
		Version = Cint(mid(sAgent,9,4))
		if err.number <> 0 then
			err.clear
			Version = eval(mid(sAgent,9,4))
			if err.number <> 0 then
				err.clear
				Version = mid(sAgent,9,4)
			end if
		end if
	Else
		Version = 0
	End if
End Function

'Indique si ok pr feuille de style 
Function bnSS()
	bnss= (Version() >= 4)
End Function