Browser e Css

Nel seguente script è possibile scegliere il foglio di stile da utilizzare in base al browser di navigazione dell'utente.

<%

function css()

dim strBrowser

strBrowser = request.ServerVariables("HTTP_USER_AGENT")

strBrowser = lcase(strBrowser)

if inStr( strBrowser , "msie 5.0") then

css = "ie5_0"

end if

if inStr( strBrowser , "winnt; i)") then

css = "nn3_04"

end if

if inStr( strBrowser , "win nt; i; nav)") then

css = "nn4_0"

end if

if inStr( strBrowser , "opera") then

css = "opera3_51"

end if

if(css="") then

css="default"

end if

end function

%>

<link href="stili/<%=css()%>.css" rel="stylesheet">