Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 216 fois - Téléchargée 38 fois
'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
12 juin 2007 à 14:24
30 août 2002 à 16:24
30 août 2002 à 15:42
Pourquoi autant d'aggressivité ?!?
4 juin 2002 à 15:47
4 juin 2002 à 09:08
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.