<% ' *********************************************************** ' This generates the link and script tags for the Rico client ' *********************************************************** Dim jsDir,cssDir,imgDir,transDir,baselibsDir Dim ricoLib,ricoTheme,ricoLogging const grid_striping = true ' apply row striping to LiveGrids? const checkQueryString = true ' load settings from QueryString? true for demo, false for production const LoadBaseLib = true ' load base Javascript library (prototype, jQuery, etc) from Rico directory? const jQuery_theme_path = "http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.5/themes/" jsDir="../../ricoClient/js/" ' directory containing Rico's javascript files cssDir="../../ricoClient/css/" ' directory containing Rico's css files imgDir="../../ricoClient/images/" ' directory containing Rico's image files transDir=jsDir & "translations/" baselibsDir=jsDir & "baselibs/" if checkQueryString then ricoLib=LCase(Request.QueryString("lib")) ricoTheme=trim(Request.QueryString("theme")) ricoLogging=CBool(trim(Request.QueryString("log")) <> "") else ' set your production values here ricoLib="prototype-1.6" ' base library ricoTheme="j-ui-lightness" ' jquery themes start with j-, rico themes start with r- ricoLogging=false end if SetConfig LoadLib ricoLib, LoadBaseLib setLang if ricoTheme<>"" then LoadTheme ricoTheme end if ' initialize Rico sub SetConfig() Response.Write vbLf & "" end sub sub LoadLib(baseLib, baseLoadFlag) if baseLoadFlag then if InStr(baseLib,"/") > 0 then Response.Write vbLf & "" else Response.Write vbLf & "" end if end if requireRicoJS "" requireRicoJS "2" & left(baseLib,3) Response.Write vbLf & "" requireRicoCSS "rico" requireRicoJS "UI" end sub ' ------------------------------------------------------------- ' Check languages accepted by browser ' and see if there is a match ' ------------------------------------------------------------- sub setLang() dim fso,lang,lang2,fname,i Set fso=Server.CreateObject("Scripting.FileSystemObject") lang=lcase(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")) arLang=split(lang,",") for i=0 to ubound(arLang) lang2=lcase(left(trim(arLang(i)),2)) if lang2="en" then exit for fname=transDir & "ricoLocale_" & lang2 & ".js" if fso.FileExists(Server.MapPath(fname)) then Response.Write "" exit for end if next set fso=nothing end sub ' set theme ' "j-ui-lightness" for a Themeroller theme ' "r-greenHdg" for a native Rico theme sub LoadTheme(theme) dim prefix,themeFile prefix=left(theme,1) themeFile=mid(theme,3) select case prefix case "j": requireRicoJS "Themeroller" 'Response.Write vbLf & "" Response.Write vbLf & "" case "r": requireRicoCSS themeFile end select if grid_striping then Response.Write vbLf & "" end sub sub requireRicoJS(filename) Response.Write vbLf & "" end sub sub requireRicoCSS(filename) Response.Write vbLf & "" end sub %>