%
' ***********************************************************
' 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
%>