permet de savoir si on peut utiliser les feuilels de styles :)
Source / Exemple :
'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
Conclusion :
Simple :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.