<% ' ################################# public Function CAL_SelectCategory(dtSelected) dim dtSelectedH dim CatList dim Selected dim sH: sH="" dtSelectedH = dtSelected sH ="" strSQL = "Select * from wcal_category where Lang="& session("LANG") if blGLOBALCats then strSQL = strSQL & " AND Client=" & session("Client") set CatList = Server.CreateObject("ADODB.Recordset") CatList.CursorLocation = 3 CatList.Open strSql, my_conn CatList.CacheSize = 100 if dtSelected="--all--" then sH = sH & "" & application(session("LANG") & "_wcal52") & "" dtSelectedH=Session("FILTER_CATEGORY") end if if dtSelected="--select--" then ' sH = sH & "" & application(session("LANG") & "_wcal50") & "" dtSelectedH="0" end if do until CatList.EOF Selected = "" if IsNumeric(dtSelectedH) then if clng(dtSelectedH) = clng(CatList("IDCat")) then Selected = " selected " end if if CatList("fgColor")<>"" AND CatList("bgColor")<>"" then sH = sH & "" & CatList("Name") & "" else sH = sH & "" & CatList("Name") & "" end if CatList.MoveNext Loop sH = sH & "" CatList.Close set CatList = nothing CAL_SelectCategory = sH End Function %>