<%
' ##################################
public Function CAL_CATEGORY_MANAGE()
dim sH : sH = ""
dim strHEADER
strHEADER = application(session("LANG") & "_wcal38")
sH = sH & "
" & VbCrLf
sH = sH & "
" & VbCrLf
sH = sH & "
" & VbCrLf
sH = sH & CATEGORY_LIST(0, "", 1)
sH = sH & "
"
sH = sH & "
" & VbCrLf
CAL_CATEGORY_MANAGE = funcs.BOXCreator(strHEADER, sH, strDEFTHEME, "", "90%")
End Function
' #################################
public Function CATEGORY_FINDTOP(IDCAT)
dim sH : sH = ""
dim I
dim CatList
I=0
do until IDCat=0
redim preserve CatNAME(I)
strSQL="SELECT NAME, PARENTID, IDCAT from wcal_CATEGORY where IDCat=" & IDCat
set CatList = Server.CreateObject("ADODB.Recordset")
CatList.CursorLocation = 3
CatList.Open strSql, my_conn
CatList.CacheSize = 100
IDCat = CatList("PARENTID")
CATNAME(I) = CatList("Name")
CatList.Close
set CatList = nothing
I=I+1
loop
for J=I-1 to 0 step -1
sh = sh & CATNAME(J) & " - "
next
CATEGORY_FINDTOP = left(sH, len(sh)-3)
' CATEGORY_FINDTOP = sH
End Function
' #################################
public Function CATEGORY_LIST(ParentID, strPREFIX, Level)
dim sH : sH = ""
dim strHEADER, CatList
strHEADER = application(session("LANG") & "_wcal38")
strSQL = "SELECT * from wcal_category where Lang="& session("LANG") & " and client=" & session("CLIENT") & " AND ParentID=" & ParentID & " order by name ASC"
set CatList = Server.CreateObject("ADODB.Recordset")
CatList.CursorLocation = 3
CatList.Open strSql, my_conn
CatList.CacheSize = 100
do until CatList.EOF
sH = sH & "
" & VbCrLf
sH = sH & "
" & VbCrLf
' Colored restricled category
dim strSTYLE
strSTYLE=""
if CatList("blRESTRICTED") then strSTYLE=" STYLE=""COLOR:RED"" "
sH = sH & "
" & VbCrLf
' BEGIN: We will check sublevels
strSQL="SELECT IDCat from wcal_CATEGORY where ParentID=" & CatList("IDCat")
dim CATSETTEST, CATTEST
CATTEST=FALSE
set CATSETTEST=My_conn.execute(strSQL)
set CATSETTEST = Server.CreateObject("ADODB.Recordset")
CATSETTEST.CursorLocation = 3
CATSETTEST.Open strSql, my_conn
CATSETTEST.CacheSize = 100
if NOT(CATSETTEST.BOF or CATSETTEST.EOF) then CATTEST=TRUE
CATSETTEST.Close
set CATSETTEST=nothing
if CATTEST then
sH = sH & CATEGORY_LIST(CatList("IDCat"), strPREFIX & CatList("Name") & "-", Level+1)
end if
' END: We will check sublevels
CatList.MoveNext
Loop
CatList.Close
set CatList = nothing
CATEGORY_LIST = sH
End Function
' #################################
Function CAL_CATEGORY_ADD()
dim sH : sH = ""
dim strHEADER
strHEADER = application(session("LANG") & "_wcal40")
sH = sH & "
" & VbCrLf
sH = sH & "" & VbCrLf
sH = sH & "
" & VbCrLf
CAL_CATEGORY_ADD = funcs.BOXCreator(strHEADER, sH, strDEFTHEME, "", "90%")
End Function
' #################################
Function CAL_CATEGORY_ADDEXE()
dim sH : sH = ""
strSQL = "INSERT INTO wcal_category (Name, bgColor, fgColor, CatType, blRESTRICTED, PublicWRITE, ParentID, Client, Lang) values (" &_
"'" & request("wcalcatname") & "'," &_
"'" & request("wcalbgColor") & "'," &_
"'" & request("wcalfgColor") & "'," &_
"" & request("CatType") & ", " &_
"" & request("blRESTRICTED") & ", " &_
"" & request("PublicWRITE") & ", " &_
"" & request("ParentID") & ", " &_
"" & session("Client") & ", " &_
"" & session("LANG") & ")"
my_conn.execute(strSQL)
CAL_CATEGORY_ADDEXE = funcs.ShowMessage(application(session("LANG") & "_wcal44")) & CAL_CATEGORY_MANAGE()
End Function
' #################################
Function CAL_CATEGORY_EDITEXE
dim sH : sH = ""
strSQL = "UPDATE wcal_category SET " &_
"name='" & request("wcalcatname") & "', " &_
"bgColor='" & request("wcalbgColor") & "', " &_
"fgColor='" & request("wcalfgColor") & "', " &_
"CatType=" & request("CatType") & ", " &_
"ParentID=" & request("ParentID") & ", " &_
"blRESTRICTED=" & request("blRESTRICTED") & ", " &_
"PublicWRITE=" & request("PublicWRITE") & " " &_
"where IDCat=" &request("IDCat")
my_conn.execute(strSQL)
CAL_CATEGORY_EDITEXE = funcs.ShowMessage(application(session("LANG") & "_wcal45")) & CAL_CATEGORY_MANAGE()
End Function
' #################################
Function CAL_CATEGORY_EDIT()
dim sH : sH = ""
dim strHEADER
strHEADER = application(session("LANG") & "_wcal46")
sH = sH & "
" & VbCrLf
sH = sH & "" & VbCrLf
sH = sH & "
" & VbCrLf
CAL_CATEGORY_EDIT = funcs.BOXCreator(strHEADER, sH, strDEFTHEME, "", "90%")
End Function
' #################################
Function CAL_CATEGORY_DELETE()
dim sH : sH = ""
my_conn.execute("DELETE from wcal_category where IDCat="&request("IDCat"))
my_conn.execute("DELETE from wcal_areas where IDCat="&request("IDCat"))
strSQL = "SELECT IDEvent from wcal_eventcat where IDCat="&request("IDCat")
set EventCAT = Server.CreateObject("ADODB.Recordset")
EventCAT.CursorLocation = 3
EventCAT.Open strSql, my_conn
EventCAT.CacheSize = 100
do until EventCat.EOF
my_conn.execute("DELETE from wcal_events where IDEvent="&EventCat("IDEvent"))
my_conn.execute("DELETE from wcal_eventrec where IDEvent="&EventCat("IDEvent"))
EventCat.MoveNext
Loop
EventCAT.Close
set EventCAT = nothing
my_conn.execute("DELETE from wcal_eventcat where IDCat="&request("IDCat"))
CAL_CATEGORY_DELETE = funcs.ShowMessage(application(session("LANG") & "_wcal48")) & CAL_CATEGORY_MANAGE()
End Function
' #################################
public Function CATEGORY_SELECT(ParentID, strPREFIX, IDSelected, SkipID, Field, strRW)
dim sH : sH = ""
dim strSELECTED
dim catlist
' BEGIN: WE WILL ADD TOP/ALL CATEGORIES OPTION
if ParentID=0 and strPREFIX="" then
if ucase(Field)="IDCAT" then
if InStr(1, IDSELECTED&",", " 0,")>0 then
sH = sH & "" & VbCrLf
else
sH = sH & "" & VbCrLf
end if
elseif ucase(Field)="IDCATFILT" then
if IDSelected="0" then
sH = sH & "" & VbCrLf
else
sH = sH & "" & VbCrLf
end if
Field="IDCAT"
else
if IDSelected="0" then
sH = sH & "" & VbCrLf
else
sH = sH & "" & VbCrLf
end if
end if
end if
' END: WE WILL ADD TOP/ALL CATEGORIES OPTION
select case ucase(strRW)
case "ALL"
strSQL = "SELECT IDCat, Name from wcal_category where Lang="& session("LANG") & " and client=" & session("CLIENT") & " AND IDCat<>" & SkipID & " AND ParentID=" & ParentID & " order by name ASC"
case "_READ"
strSQL = "SELECT IDCat, Name from wcal_category where Lang="& session("LANG") & " and client=" & session("CLIENT") & " AND IDCat<>" & SkipID & " AND ParentID=" & ParentID & " AND (IDCat In(" & session("CATEGORY_ACCESS" & strRW) & ")) order by name ASC"
case "_WRITE"
strSQL = "SELECT IDCat, Name from wcal_category where Lang="& session("LANG") & " and client=" & session("CLIENT") & " AND IDCat<>" & SkipID & " AND ParentID=" & ParentID & " AND (IDCat In(" & session("CATEGORY_ACCESS" & strRW) & ")) order by name ASC"
case else
strSQL = "SELECT IDCat, Name from wcal_category where Lang="& session("LANG") & " and client=" & session("CLIENT") & " AND IDCat<>" & SkipID & " AND ParentID=" & ParentID & " order by name ASC"
end select
set CatList = Server.CreateObject("ADODB.Recordset")
CatList.CursorLocation = 3
CatList.Open strSql, my_conn
CatList.CacheSize = 100
do until CatList.EOF
if ucase(strRW)<>"_WRITE" OR (ucase(strRW)="_WRITE" and InStr(1, session("CATEGORY_ACCESS" & strRW) & ",", CatList(Field)&",")>0) then
dim ShowCatFilters
strSELECTED=""
if ucase(Field)="IDCAT" then
' if IDSelected = clng(CatList(Field)) then strSELECTED=" SELECTED "
if InStr(1, IDSELECTED&",", CatList(Field)&",")>0 then strSELECTED=" SELECTED "
else
if IDSelected = CatList(Field) then strSELECTED=" SELECTED "
end if
sH = sH & "" & VbCrLf
end if
' BEGIN: We will check sublevels
strSQL="SELECT IDCat from wcal_CATEGORY where ParentID=" & CatList("IDCat")
dim CATSETTEST, CATTEST
CATTEST=FALSE
set CATSETTEST=My_conn.execute(strSQL)
set CATSETTEST = Server.CreateObject("ADODB.Recordset")
CATSETTEST.CursorLocation = 3
CATSETTEST.Open strSql, my_conn
CATSETTEST.CacheSize = 100
if NOT(CATSETTEST.BOF or CATSETTEST.EOF) then CATTEST=TRUE
CATSETTEST.Close
set CATSETTEST=nothing
if CATTEST then
sH = sH & CATEGORY_SELECT(CatList("IDCat"), strPREFIX & CatList("Name") & "-", IDSelected, SkipID, Field, strRW)
end if
' END: We will check sublevels
CatList.MoveNext
Loop
CatList.Close
set CatList = nothing
CATEGORY_SELECT = sH
End Function
'#######################
Public function CAL_SHOWCATFILTERS()
dim strSQL, ShowCatFilters : ShowCatFilters = ""
strSQL = "SELECT Name FROM wcal_category WHERE IDCat IN (" & session("FILTER_CATEGORY") & "0)"
set CatFilters = my_conn.execute(strSQL)
if NOT (CatFilters.EOF or CatFilters.BOF) then
do until CatFilters.EOF
ShowCatFilters = ShowCatFilters & CatFilters("Name") & ", "
CatFilters.MoveNext
loop
end if
set CatFilters = nothing
ShowCatFilters = left(ShowCatFilters,len(ShowCatFilters)-2)
CAL_SHOWCATFILTERS = application(session("LANG") & "_wcal114") & ": " & ShowCatFilters & VbCrLf
End function
%>