<% Dim calendarID, calendarname,isPrivate,canMemberAdd,discussInForumID,isActive,types Dim objcon, gid, strSQL,canMemberDelete,canMemberSubscribe gid = request("gid") calendarID = request("calendarID") calendarname = SQLAccessInput(request.form("calendarname")) isPrivate = CheckedOrNot(request.form("isPrivate")) canMemberAdd = request.form("canMemberAdd") discussInForumID = request.form("discussInForumID") isActive = CheckedOrNot(request.form("isActive")) canMemberDelete = CheckedOrNot(request.form("canMemberDelete")) canMemberSubscribe = CheckedOrNot(request.form("canMemberSubscribe")) types = request("types") SET objCon = server.createObject("ADODB.connection") with objCon .open datastore SELECT Case types Case "addcal" .execute "Insert into pgd_calendars (calendarname,isPrivate,canMemberAdd,canMemberDelete,canMemberSubscribe,discussInForumID,uploadRestriction,isActive) VALUES ('"&_ calendarname&"',"&isPrivate&","&canMemberAdd&","&canMemberDelete&","&canMemberSubscribe&","&discussInForumID&","&_ "'"&SQLAccessInput(checkUploadSize(request.form("uploadSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("uploadFormat")),"/"))&"',"&_ isActive&")" _ , , adExecuteNoRecords + adCmdtext 'adCmdStoredProc Case "editcal" .execute "Update pgd_calendars Set calendarname ='"&calendarname&_ "',isPrivate ="&isPrivate&" ,canMemberAdd = "&canMemberAdd&", canMemberDelete = "&canMemberDelete&", canMemberSubscribe = "&canMemberSubscribe&", discussInForumID = "&_ discussInForumID&",isActive ="&isActive&_ ",uploadRestriction = '"&SQLAccessInput(checkUploadSize(request.form("uploadSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("uploadFormat")),"/"))&"'"&_ " WHERE calendarID="&calendarID _ , , adExecuteNoRecords + adCmdtext 'adCmdStoredProc Case "delcal" .execute "Delete pgd_calendars WHERE calendarID="&calendarID _ , , adExecuteNoRecords + adCmdtext 'adCmdStoredProc Case "editgroup" strSQL = "update pgd_calendarPermission Set "&_ "permission = "&request.form("permission")&","&_ "canCreateRecurring = "&CheckedOrNot(request.form("canCreateRecurring"))&","&_ "canMemberDelete = "&canMemberDelete&","&_ "canMemberSubscribe = "&canMemberSubscribe&","&_ "isModerator = "&CheckedOrNot(request.form("isModerator"))&","&_ "uploadRestriction = '"&SQLAccessInput(checkUploadSize(request.form("uploadSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("uploadFormat")),"/"))&"',"&_ "isActive = "&CheckedOrNot(request.form("isActive"))&" "&_ "WHERE CalendarID="&CalendarID&" and gid = "&gid ' response.write strSQL ' response.end .execute strSQL, , adCmdText + adExecuteNoRecords Case "addgroup" strSQL = "Insert Into pgd_calendarPermission Values ("&CalendarID&", "&gid&","&_ ""&request.form("permission")&","&_ ""&CheckedOrNot(request.form("canCreateRecurring"))&","&_ ""&canMemberDelete&","&_ ""&canMemberSubscribe&","&_ ""&CheckedOrNot(request.form("isModerator"))&","&_ "'"&SQLAccessInput(checkUploadSize(request.form("uploadSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("uploadFormat")),"/"))&"',"&_ ""&CheckedOrNot(request.form("isActive"))&")" ' response.write strSQL ' response.end .execute strSQL, , adCmdText + adExecuteNoRecords Case "calsubmsg" Dim calNotify_msg:calNotify_msg = request.form("calNotify_msg") strSQL = "Update pgd_srvmsg SET calNotify_msg = '"&iff(len(calNotify_msg)=0,"Enter Your Message Here",SQLAccessInput(calNotify_msg))&"'" .execute strSQL, , adCmdText + adExecuteNoRecords END SELECT .close end with Set objCon = nothing if types = "addgroup" or types = "editgroup" then if lcase(""&request.form("APPLY")) = "apply" then response.redirect("admin_calendar.asp?types=editgroup&gid="&gid&"&calendarID="&calendarid) else response.write("") end if else if lcase(""&request.form("APPLY")) = "apply" then response.redirect("admin_calendar.asp?types=editcal&calendarID="&calendarid) else response.redirect("admin_calendar.asp") end if end if %>