<% %> <% add_nocache_headers asp_include "include/siteusers_variables.asp",false asp_include "classes/searchcontrol.asp",false asp_include "classes/advancedsearchcontrol.asp",false asp_include "classes/panelsearchcontrol.asp",false asp_include "classes/searchclause.asp",false doAssignment sessionPrefix,strTableName includes = "" predefFieldNum = 0 asp_include "include/xtempl.asp",false asp_include "classes/runnerpage.asp",false Set xt = (CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty)) if bValue(postvalue("id")) then doAssignmentByRef id,postvalue("id") else id = 1 end if mode = SEARCH_SIMPLE templatefile = "siteusers_search.htm" if IsEqual(postvalue("mode"),"inlineLoadCtrl") then mode = SEARCH_LOAD_CONTROL templatefile = "siteusers_inline_search.htm" end if calendar = false timepicker = false Set params = (CreateDictionary()) setArrElement params,"id",id setArrElement params,"mode",mode setArrElement params,"calendar",calendar setArrElement params,"timepicker",timepicker setArrElementByRef params,"xt",xt setArrElement params,"shortTableName","siteusers" setArrElement params,"origTName",strOriginalTableName setArrElement params,"sessionPrefix",sessionPrefix setArrElement params,"tName",strTableName setArrElement params,"includes_js",includes_js setArrElement params,"includes_jsreq",includes_jsreq setArrElement params,"includes_css",includes_css setArrElement params,"locale_info",locale_info setArrElement params,"pageType",PAGE_SEARCH Set pageObject = (CreateClass("RunnerPage",1,params,Empty,Empty,Empty,Empty,Empty,Empty)) doAssignment searchControllerId,IIF(postvalue("searchControllerId"),postvalue("searchControllerId"),pageObject.id) if bValue(eventObj.exists_p1("BeforeProcessSearch")) then eventObj.BeforeProcessSearch_p1 conn end if if IsEqual(mode,SEARCH_SIMPLE) then Set searchControlBuilder = (CreateClass("AdvancedSearchControl",4,searchControllerId,strTableName,pageObject.searchClauseObj,pageObject,Empty,Empty,Empty)) doAssignmentByRef onLoadJsCode,GetTableData(pageObject.tName,".jsOnloadSearch","") pageObject.addOnLoadJsEvent_p1 onLoadJsCode pageObject.addButtonHandlers includes = CSmartStr(includes) & "" & vbcrlf includes = CSmartStr(includes) & "" & vbcrlf includes = CSmartStr(includes) & "" & vbcrlf if IsIdentical(pageObject.debugJSMode,true) then includes = CSmartStr(includes) & "" & vbcrlf else includes = CSmartStr(includes) & "" & vbcrlf end if includes = CSmartStr(includes) & "

" doAssignmentByRef searchRadio,searchControlBuilder.getSearchRadio() xt.assign_section_p3 "all_checkbox_label",ArrayElement(ArrayElement(searchRadio,"all_checkbox_label"),0),ArrayElement(ArrayElement(searchRadio,"all_checkbox_label"),1) xt.assign_section_p3 "any_checkbox_label",ArrayElement(ArrayElement(searchRadio,"any_checkbox_label"),0),ArrayElement(ArrayElement(searchRadio,"any_checkbox_label"),1) xt.assignbyref_p2 "all_checkbox",ArrayElement(searchRadio,"all_checkbox") xt.assignbyref_p2 "any_checkbox",ArrayElement(searchRadio,"any_checkbox") if bValue(GetLookupTable("UserCode",strTableName)) then setArrElementN pageObject.settingsMap,CreateArray3("globalSettings","shortTNames",GetLookupTable("UserCode",strTableName)),GetTableURL(GetLookupTable("UserCode",strTableName)) end if pageObject.fillFieldToolTips_p1 "UserCode" doAssignmentByRef srchFields,pageObject.searchClauseObj.getSearchCtrlParams_p1("UserCode") Set firstFieldParams = (CreateDictionary()) if bValue(asp_count(srchFields)) then doAssignment firstFieldParams,ArrayElement(srchFields,0) else setArrElement firstFieldParams,"fName","UserCode" setArrElement firstFieldParams,"eType","" setArrElement firstFieldParams,"value1","" setArrElement firstFieldParams,"opt","" setArrElement firstFieldParams,"value2","" setArrElement firstFieldParams,"not",false end if doAssignmentByRef ctrlBlockArr,searchControlBuilder.buildSearchCtrlBlockArr_p8(id,ArrayElement(firstFieldParams,"fName"),0,ArrayElement(firstFieldParams,"opt"),ArrayElement(firstFieldParams,"not"),false,ArrayElement(firstFieldParams,"value1"),ArrayElement(firstFieldParams,"value2")) if bValue(isEnableSection508()) then xt.assign_section_p3 "UserCode_label",("","" else xt.assign_p2 "UserCode_label",true end if xt.assign_p2 "UserCode_fieldblock",true xt.assignbyref_p2 "UserCode_editcontrol",ArrayElement(ctrlBlockArr,"searchcontrol") xt.assign_p2 "UserCode_notbox",ArrayElement(ctrlBlockArr,"notbox") xt.assignbyref_p2 "UserCode_editcontrol1",ArrayElement(ctrlBlockArr,"searchcontrol1") xt.assign_p2 "searchtype_UserCode",ArrayElement(ctrlBlockArr,"searchtype") doAssignmentByRef isFieldNeedSecCtrl,searchControlBuilder.isNeedSecondCtrl_p1("UserCode") ctrlInd = 0 if bValue(isFieldNeedSecCtrl) then setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","UserCode","recId",id,"ctrlsMap",CreateDictionary2(0,ctrlInd,1,CSmartDbl(ctrlInd)+1)) ctrlInd = CSmartDbl(ctrlInd)+2 else setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","UserCode","recId",id,"ctrlsMap",CreateDictionary1(0,ctrlInd)) ctrlInd = CSmartDbl(ctrlInd)+1 end if if bValue(GetLookupTable("UserName",strTableName)) then setArrElementN pageObject.settingsMap,CreateArray3("globalSettings","shortTNames",GetLookupTable("UserName",strTableName)),GetTableURL(GetLookupTable("UserName",strTableName)) end if pageObject.fillFieldToolTips_p1 "UserName" doAssignmentByRef srchFields,pageObject.searchClauseObj.getSearchCtrlParams_p1("UserName") Set firstFieldParams = (CreateDictionary()) if bValue(asp_count(srchFields)) then doAssignment firstFieldParams,ArrayElement(srchFields,0) else setArrElement firstFieldParams,"fName","UserName" setArrElement firstFieldParams,"eType","" setArrElement firstFieldParams,"value1","" setArrElement firstFieldParams,"opt","" setArrElement firstFieldParams,"value2","" setArrElement firstFieldParams,"not",false end if doAssignmentByRef ctrlBlockArr,searchControlBuilder.buildSearchCtrlBlockArr_p8(id,ArrayElement(firstFieldParams,"fName"),0,ArrayElement(firstFieldParams,"opt"),ArrayElement(firstFieldParams,"not"),false,ArrayElement(firstFieldParams,"value1"),ArrayElement(firstFieldParams,"value2")) if bValue(isEnableSection508()) then xt.assign_section_p3 "UserName_label",("","" else xt.assign_p2 "UserName_label",true end if xt.assign_p2 "UserName_fieldblock",true xt.assignbyref_p2 "UserName_editcontrol",ArrayElement(ctrlBlockArr,"searchcontrol") xt.assign_p2 "UserName_notbox",ArrayElement(ctrlBlockArr,"notbox") xt.assignbyref_p2 "UserName_editcontrol1",ArrayElement(ctrlBlockArr,"searchcontrol1") xt.assign_p2 "searchtype_UserName",ArrayElement(ctrlBlockArr,"searchtype") doAssignmentByRef isFieldNeedSecCtrl,searchControlBuilder.isNeedSecondCtrl_p1("UserName") ctrlInd = 0 if bValue(isFieldNeedSecCtrl) then setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","UserName","recId",id,"ctrlsMap",CreateDictionary2(0,ctrlInd,1,CSmartDbl(ctrlInd)+1)) ctrlInd = CSmartDbl(ctrlInd)+2 else setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","UserName","recId",id,"ctrlsMap",CreateDictionary1(0,ctrlInd)) ctrlInd = CSmartDbl(ctrlInd)+1 end if if bValue(GetLookupTable("Password",strTableName)) then setArrElementN pageObject.settingsMap,CreateArray3("globalSettings","shortTNames",GetLookupTable("Password",strTableName)),GetTableURL(GetLookupTable("Password",strTableName)) end if pageObject.fillFieldToolTips_p1 "Password" doAssignmentByRef srchFields,pageObject.searchClauseObj.getSearchCtrlParams_p1("Password") Set firstFieldParams = (CreateDictionary()) if bValue(asp_count(srchFields)) then doAssignment firstFieldParams,ArrayElement(srchFields,0) else setArrElement firstFieldParams,"fName","Password" setArrElement firstFieldParams,"eType","" setArrElement firstFieldParams,"value1","" setArrElement firstFieldParams,"opt","" setArrElement firstFieldParams,"value2","" setArrElement firstFieldParams,"not",false end if doAssignmentByRef ctrlBlockArr,searchControlBuilder.buildSearchCtrlBlockArr_p8(id,ArrayElement(firstFieldParams,"fName"),0,ArrayElement(firstFieldParams,"opt"),ArrayElement(firstFieldParams,"not"),false,ArrayElement(firstFieldParams,"value1"),ArrayElement(firstFieldParams,"value2")) if bValue(isEnableSection508()) then xt.assign_section_p3 "Password_label",("","" else xt.assign_p2 "Password_label",true end if xt.assign_p2 "Password_fieldblock",true xt.assignbyref_p2 "Password_editcontrol",ArrayElement(ctrlBlockArr,"searchcontrol") xt.assign_p2 "Password_notbox",ArrayElement(ctrlBlockArr,"notbox") xt.assignbyref_p2 "Password_editcontrol1",ArrayElement(ctrlBlockArr,"searchcontrol1") xt.assign_p2 "searchtype_Password",ArrayElement(ctrlBlockArr,"searchtype") doAssignmentByRef isFieldNeedSecCtrl,searchControlBuilder.isNeedSecondCtrl_p1("Password") ctrlInd = 0 if bValue(isFieldNeedSecCtrl) then setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","Password","recId",id,"ctrlsMap",CreateDictionary2(0,ctrlInd,1,CSmartDbl(ctrlInd)+1)) ctrlInd = CSmartDbl(ctrlInd)+2 else setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","Password","recId",id,"ctrlsMap",CreateDictionary1(0,ctrlInd)) ctrlInd = CSmartDbl(ctrlInd)+1 end if if bValue(GetLookupTable("UserEmailAddress",strTableName)) then setArrElementN pageObject.settingsMap,CreateArray3("globalSettings","shortTNames",GetLookupTable("UserEmailAddress",strTableName)),GetTableURL(GetLookupTable("UserEmailAddress",strTableName)) end if pageObject.fillFieldToolTips_p1 "UserEmailAddress" doAssignmentByRef srchFields,pageObject.searchClauseObj.getSearchCtrlParams_p1("UserEmailAddress") Set firstFieldParams = (CreateDictionary()) if bValue(asp_count(srchFields)) then doAssignment firstFieldParams,ArrayElement(srchFields,0) else setArrElement firstFieldParams,"fName","UserEmailAddress" setArrElement firstFieldParams,"eType","" setArrElement firstFieldParams,"value1","" setArrElement firstFieldParams,"opt","" setArrElement firstFieldParams,"value2","" setArrElement firstFieldParams,"not",false end if doAssignmentByRef ctrlBlockArr,searchControlBuilder.buildSearchCtrlBlockArr_p8(id,ArrayElement(firstFieldParams,"fName"),0,ArrayElement(firstFieldParams,"opt"),ArrayElement(firstFieldParams,"not"),false,ArrayElement(firstFieldParams,"value1"),ArrayElement(firstFieldParams,"value2")) if bValue(isEnableSection508()) then xt.assign_section_p3 "UserEmailAddress_label",("","" else xt.assign_p2 "UserEmailAddress_label",true end if xt.assign_p2 "UserEmailAddress_fieldblock",true xt.assignbyref_p2 "UserEmailAddress_editcontrol",ArrayElement(ctrlBlockArr,"searchcontrol") xt.assign_p2 "UserEmailAddress_notbox",ArrayElement(ctrlBlockArr,"notbox") xt.assignbyref_p2 "UserEmailAddress_editcontrol1",ArrayElement(ctrlBlockArr,"searchcontrol1") xt.assign_p2 "searchtype_UserEmailAddress",ArrayElement(ctrlBlockArr,"searchtype") doAssignmentByRef isFieldNeedSecCtrl,searchControlBuilder.isNeedSecondCtrl_p1("UserEmailAddress") ctrlInd = 0 if bValue(isFieldNeedSecCtrl) then setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","UserEmailAddress","recId",id,"ctrlsMap",CreateDictionary2(0,ctrlInd,1,CSmartDbl(ctrlInd)+1)) ctrlInd = CSmartDbl(ctrlInd)+2 else setArrElementN pageObject.controlsMap,CreateArray3("search","searchBlocks",empty),CreateDictionary3("fName","UserEmailAddress","recId",id,"ctrlsMap",CreateDictionary1(0,ctrlInd)) ctrlInd = CSmartDbl(ctrlInd)+1 end if setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & CSmartStr(includes) pageObject.addCommonJs xt.assignbyref_p2 "body",pageObject.body xt.assign_p2 "contents_block",true xt.assign_p2 "conditions_block",true xt.assign_p2 "search_button",true xt.assign_p2 "reset_button",true xt.assign_p2 "back_button",true xt.assign_p2 "searchbutton_attrs",("id=""searchButton" & CSmartStr(id)) & """" xt.assign_p2 "resetbutton_attrs",("id=""resetButton" & CSmartStr(id)) & """" xt.assign_p2 "backbutton_attrs",("id=""backButton" & CSmartStr(id)) & """" if bValue(eventObj.exists_p1("BeforeShowSearch")) then eventObj.BeforeShowSearch_p2 xt,templatefile end if pageObject.fillSetCntrlMaps setArrElement pageObject.body,"end",CSmartStr(ArrayElement(pageObject.body,"end")) & "" setArrElement pageObject.body,"end",CSmartStr(ArrayElement(pageObject.body,"end")) & (("") xt.assignbyref_p2 "body",pageObject.body xt.display_p1 templatefile Response.End else if IsEqual(mode,SEARCH_LOAD_CONTROL) then Set searchControlBuilder = (CreateClass("PanelSearchControl",4,searchControllerId,strTableName,pageObject.searchClauseObj,pageObject,Empty,Empty,Empty)) doAssignmentByRef ctrlField,postvalue("ctrlField") doAssignmentByRef ctrlBlockArr,searchControlBuilder.buildSearchCtrlBlockArr_p8(id,ctrlField,0,"",false,true,"","") Set resArr = (CreateDictionary()) setArrElement resArr,"control1",trim(xt.call_func_p1(ArrayElement(ctrlBlockArr,"searchcontrol"))) setArrElement resArr,"control2",trim(xt.call_func_p1(ArrayElement(ctrlBlockArr,"searchcontrol1"))) setArrElement resArr,"comboHtml",trim(ArrayElement(ctrlBlockArr,"searchtype")) setArrElement resArr,"delButt",trim(ArrayElement(ctrlBlockArr,"delCtrlButt")) setArrElement resArr,"delButtId",trim(searchControlBuilder.getDelButtonId_p2(ctrlField,id)) setArrElement resArr,"divInd",trim(id) setArrElement resArr,"fLabel",GetFieldLabel(GoodFieldName(strTableName),GoodFieldName(ctrlField)) setArrElement resArr,"ctrlMap",ArrayElement(pageObject.controlsMap,"controls") if IsEqual(postvalue("isNeedSettings"),"true") then pageObject.fillGlobalSettings pageObject.fillTableSettings setArrElementN resArr,CreateArray2("settings",ctrlField),pageObject.jsSettings end if ResponseWrite my_json_encode(resArr) Response.End end if end if %>