<% Set tdatasiteusers = (CreateDictionary()) setArrElement tdatasiteusers,".NumberOfChars",80 setArrElement tdatasiteusers,".ShortName","siteusers" setArrElement tdatasiteusers,".OwnerID","" setArrElement tdatasiteusers,".OriginalTable","siteusers" Set fieldLabelssiteusers = (CreateDictionary()) if IsEqual(mlang_getcurrentlang(),"English") then setArrElement fieldLabelssiteusers,"English",CreateDictionary() setArrElement fieldToolTipssiteusers,"English",CreateDictionary() setArrElementN fieldLabelssiteusers,CreateArray2("English","UserCode"),"User Code" setArrElementN fieldToolTipssiteusers,CreateArray2("English","UserCode"),"" setArrElementN fieldLabelssiteusers,CreateArray2("English","UserName"),"User Name" setArrElementN fieldToolTipssiteusers,CreateArray2("English","UserName"),"" setArrElementN fieldLabelssiteusers,CreateArray2("English","Password"),"Password" setArrElementN fieldToolTipssiteusers,CreateArray2("English","Password"),"" setArrElementN fieldLabelssiteusers,CreateArray2("English","UserEmailAddress"),"User Email Address" setArrElementN fieldToolTipssiteusers,CreateArray2("English","UserEmailAddress"),"" if bValue(asp_count(ArrayElement(fieldToolTipssiteusers,"English"))) then setArrElement tdatasiteusers,".isUseToolTips",true end if end if setArrElement tdatasiteusers,".NCSearch",true setArrElement tdatasiteusers,".shortTableName","siteusers" setArrElement tdatasiteusers,".nSecOptions",0 setArrElement tdatasiteusers,".recsPerRowList",1 setArrElement tdatasiteusers,".tableGroupBy","0" setArrElement tdatasiteusers,".mainTableOwnerID","" setArrElement tdatasiteusers,".moveNext",1 setArrElement tdatasiteusers,".showAddInPopup",false setArrElement tdatasiteusers,".showEditInPopup",false setArrElement tdatasiteusers,".showViewInPopup",false setArrElement tdatasiteusers,".fieldsForRegister",CreateDictionary() setArrElementN tdatasiteusers,CreateArray2(".fieldsForRegister",empty),"UserName" setArrElementN tdatasiteusers,CreateArray2(".fieldsForRegister",empty),"Password" setArrElementN tdatasiteusers,CreateArray2(".fieldsForRegister",empty),"UserEmailAddress" setArrElement tdatasiteusers,".PasswordField","Password" setArrElement tdatasiteusers,".UserNameField","UserName" setArrElement tdatasiteusers,".listAjax",false setArrElement tdatasiteusers,".audit",false setArrElement tdatasiteusers,".locking",false setArrElement tdatasiteusers,".listIcons",true setArrElement tdatasiteusers,".showSimpleSearchOptions",false setArrElement tdatasiteusers,".showSearchPanel",true setArrElement tdatasiteusers,".isUseAjaxSuggest",true setArrElement tdatasiteusers,".rowHighlite",true setArrElement tdatasiteusers,".addPageEvents",false setArrElementN tdatasiteusers,CreateArray2(".arrKeyFields",empty),"UserCode" setArrElement tdatasiteusers,".isUseCalendarForSearch",false setArrElement tdatasiteusers,".isUseTimeForSearch",false setArrElement tdatasiteusers,".isUseiBox",false setArrElement tdatasiteusers,".isUseInlineJs",bValue(ArrayElement(tdatasiteusers,".isUseInlineAdd")) or bValue(ArrayElement(tdatasiteusers,".isUseInlineEdit")) setArrElement tdatasiteusers,".allSearchFields",CreateDictionary() setArrElementN tdatasiteusers,CreateArray2(".globSearchFields",empty),"UserCode" if not bValue(asp_in_array("UserCode",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"UserCode" end if setArrElementN tdatasiteusers,CreateArray2(".globSearchFields",empty),"UserName" if not bValue(asp_in_array("UserName",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"UserName" end if setArrElementN tdatasiteusers,CreateArray2(".globSearchFields",empty),"Password" if not bValue(asp_in_array("Password",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"Password" end if setArrElementN tdatasiteusers,CreateArray2(".globSearchFields",empty),"UserEmailAddress" if not bValue(asp_in_array("UserEmailAddress",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"UserEmailAddress" end if setArrElementN tdatasiteusers,CreateArray2(".googleLikeFields",empty),"UserCode" setArrElementN tdatasiteusers,CreateArray2(".googleLikeFields",empty),"UserName" setArrElementN tdatasiteusers,CreateArray2(".googleLikeFields",empty),"Password" setArrElementN tdatasiteusers,CreateArray2(".googleLikeFields",empty),"UserEmailAddress" setArrElementN tdatasiteusers,CreateArray2(".advSearchFields",empty),"UserCode" if not bValue(asp_in_array("UserCode",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"UserCode" end if setArrElementN tdatasiteusers,CreateArray2(".advSearchFields",empty),"UserName" if not bValue(asp_in_array("UserName",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"UserName" end if setArrElementN tdatasiteusers,CreateArray2(".advSearchFields",empty),"Password" if not bValue(asp_in_array("Password",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"Password" end if setArrElementN tdatasiteusers,CreateArray2(".advSearchFields",empty),"UserEmailAddress" if not bValue(asp_in_array("UserEmailAddress",ArrayElement(tdatasiteusers,".allSearchFields"),false)) then setArrElementN tdatasiteusers,CreateArray2(".allSearchFields",empty),"UserEmailAddress" end if setArrElement tdatasiteusers,".isTableType","list" setArrElement tdatasiteusers,".isDisplayLoading",true setArrElement tdatasiteusers,".isResizeColumns",false setArrElement tdatasiteusers,".pageSize",20 gstrOrderBy = "" if bValue(asp_strlen(gstrOrderBy)) and not IsEqual(asp_strtolower(asp_substr(gstrOrderBy,0,8)),"order by") then gstrOrderBy = "order by " & CSmartStr(gstrOrderBy) end if setArrElement tdatasiteusers,".strOrderBy",gstrOrderBy setArrElement tdatasiteusers,".orderindexes",CreateDictionary() setArrElement tdatasiteusers,".sqlHead","SELECT UserCode, UserName, Password, UserEmailAddress" setArrElement tdatasiteusers,".sqlFrom","FROM siteusers" setArrElement tdatasiteusers,".sqlWhereExpr","" setArrElement tdatasiteusers,".sqlTail","" Set arrRPP = (CreateDictionary()) setArrElement arrRPP,asp_count(arrRPP),10 setArrElement arrRPP,asp_count(arrRPP),20 setArrElement arrRPP,asp_count(arrRPP),30 setArrElement arrRPP,asp_count(arrRPP),50 setArrElement arrRPP,asp_count(arrRPP),100 setArrElement arrRPP,asp_count(arrRPP),500 setArrElement arrRPP,asp_count(arrRPP),-1 setArrElement tdatasiteusers,".arrRecsPerPage",arrRPP Set arrGPP = (CreateDictionary()) setArrElement arrGPP,asp_count(arrGPP),1 setArrElement arrGPP,asp_count(arrGPP),3 setArrElement arrGPP,asp_count(arrGPP),5 setArrElement arrGPP,asp_count(arrGPP),10 setArrElement arrGPP,asp_count(arrGPP),50 setArrElement arrGPP,asp_count(arrGPP),100 setArrElement arrGPP,asp_count(arrGPP),-1 setArrElement tdatasiteusers,".arrGroupsPerPage",arrGPP Set tableKeys = (CreateDictionary()) setArrElement tableKeys,asp_count(tableKeys),"UserCode" setArrElement tdatasiteusers,".Keys",tableKeys Set fdata = (CreateDictionary()) setArrElement fdata,"strName","UserCode" setArrElement fdata,"ownerTable","siteusers" setArrElement fdata,"Label","User Code" setArrElement fdata,"FieldType",3 setArrElement fdata,"UseiBox",false setArrElement fdata,"EditFormat","Text field" setArrElement fdata,"ViewFormat","" setArrElement fdata,"NeedEncode",true setArrElement fdata,"GoodName","UserCode" setArrElement fdata,"FullName","UserCode" setArrElement fdata,"IsRequired",true setArrElement fdata,"Index",1 setArrElement fdata,"EditParams","" setArrElement fdata,"bListPage",true setArrElement fdata,"bViewPage",true setArrElement fdata,"bAdvancedSearch",true setArrElement fdata,"bPrinterPage",true setArrElement fdata,"bExportPage",true setArrElement fdata,"validateAs",CreateDictionary() setArrElementN fdata,CreateArray3("validateAs","basicValidate",empty),getJsValidatorName("Number") setArrElementN fdata,CreateArray3("validateAs","basicValidate",empty),"IsRequired" setArrElement fdata,"FieldPermissions",true setArrElement tdatasiteusers,"UserCode",fdata Set fdata = (CreateDictionary()) setArrElement fdata,"strName","UserName" setArrElement fdata,"ownerTable","siteusers" setArrElement fdata,"Label","User Name" setArrElement fdata,"FieldType",200 setArrElement fdata,"UseiBox",false setArrElement fdata,"EditFormat","Text field" setArrElement fdata,"ViewFormat","" setArrElement fdata,"NeedEncode",true setArrElement fdata,"GoodName","UserName" setArrElement fdata,"FullName","UserName" setArrElement fdata,"Index",2 setArrElement fdata,"EditParams","" setArrElement fdata,"EditParams",CSmartStr(ArrayElement(fdata,"EditParams")) & " maxlength=20" setArrElement fdata,"bListPage",true setArrElement fdata,"bAddPage",true setArrElement fdata,"bInlineAdd",true setArrElement fdata,"bEditPage",true setArrElement fdata,"bInlineEdit",true setArrElement fdata,"bViewPage",true setArrElement fdata,"bAdvancedSearch",true setArrElement fdata,"bPrinterPage",true setArrElement fdata,"bExportPage",true setArrElement fdata,"validateAs",CreateDictionary() if bValue(asp_count(ArrayElement(fdata,"validateAs"))) and not bValue(asp_in_array("IsRequired",ArrayElement(ArrayElement(fdata,"validateAs"),"basicValidate"),false)) then setArrElementN fdata,CreateArray3("validateAs","basicValidate",empty),"IsRequired" end if setArrElement fdata,"FieldPermissions",true setArrElement tdatasiteusers,"UserName",fdata Set fdata = (CreateDictionary()) setArrElement fdata,"strName","Password" setArrElement fdata,"ownerTable","siteusers" setArrElement fdata,"FieldType",200 setArrElement fdata,"UseiBox",false setArrElement fdata,"EditFormat","Password" setArrElement fdata,"ViewFormat","" setArrElement fdata,"NeedEncode",true setArrElement fdata,"GoodName","Password" setArrElement fdata,"FullName","Password" setArrElement fdata,"Index",3 setArrElement fdata,"EditParams","" setArrElement fdata,"EditParams",CSmartStr(ArrayElement(fdata,"EditParams")) & " maxlength=12" setArrElement fdata,"bListPage",true setArrElement fdata,"bAddPage",true setArrElement fdata,"bInlineAdd",true setArrElement fdata,"bEditPage",true setArrElement fdata,"bInlineEdit",true setArrElement fdata,"bViewPage",true setArrElement fdata,"bAdvancedSearch",true setArrElement fdata,"bPrinterPage",true setArrElement fdata,"bExportPage",true setArrElement fdata,"validateAs",CreateDictionary() if bValue(asp_count(ArrayElement(fdata,"validateAs"))) and not bValue(asp_in_array("IsRequired",ArrayElement(ArrayElement(fdata,"validateAs"),"basicValidate"),false)) then setArrElementN fdata,CreateArray3("validateAs","basicValidate",empty),"IsRequired" end if setArrElement fdata,"FieldPermissions",true setArrElement tdatasiteusers,"Password",fdata Set fdata = (CreateDictionary()) setArrElement fdata,"strName","UserEmailAddress" setArrElement fdata,"ownerTable","siteusers" setArrElement fdata,"Label","User Email Address" setArrElement fdata,"FieldType",200 setArrElement fdata,"UseiBox",false setArrElement fdata,"EditFormat","Text field" setArrElement fdata,"ViewFormat","" setArrElement fdata,"NeedEncode",true setArrElement fdata,"GoodName","UserEmailAddress" setArrElement fdata,"FullName","UserEmailAddress" setArrElement fdata,"Index",4 setArrElement fdata,"EditParams","" setArrElement fdata,"EditParams",CSmartStr(ArrayElement(fdata,"EditParams")) & " maxlength=30" setArrElement fdata,"bListPage",true setArrElement fdata,"bAddPage",true setArrElement fdata,"bInlineAdd",true setArrElement fdata,"bEditPage",true setArrElement fdata,"bInlineEdit",true setArrElement fdata,"bViewPage",true setArrElement fdata,"bAdvancedSearch",true setArrElement fdata,"bPrinterPage",true setArrElement fdata,"bExportPage",true setArrElement fdata,"validateAs",CreateDictionary() if bValue(asp_count(ArrayElement(fdata,"validateAs"))) and not bValue(asp_in_array("IsEmail",ArrayElement(ArrayElement(fdata,"validateAs"),"basicValidate"),false)) then setArrElementN fdata,CreateArray3("validateAs","basicValidate",empty),"IsEmail" end if setArrElement fdata,"FieldPermissions",true setArrElement tdatasiteusers,"UserEmailAddress",fdata setArrElementByRef tables_data,"siteusers",tdatasiteusers setArrElementByRef field_labels,"siteusers",fieldLabelssiteusers setArrElementByRef fieldToolTips,"siteusers",fieldToolTipssiteusers setArrElement detailsTablesData,"siteusers",CreateDictionary() setArrElement masterTablesData,"siteusers",CreateDictionary() asp_include getabspath("classes/sql.asp"),true Set proto0 = (CreateDictionary()) setArrElement proto0,"m_strHead","SELECT" setArrElement proto0,"m_strFieldList","UserCode, UserName, Password, UserEmailAddress" setArrElement proto0,"m_strFrom","FROM siteusers" setArrElement proto0,"m_strWhere","" setArrElement proto0,"m_strOrderBy","" setArrElement proto0,"m_strTail","" Set proto1 = (CreateDictionary()) setArrElement proto1,"m_sql","" setArrElement proto1,"m_uniontype","SQLL_UNKNOWN" Set obj = (CreateClass("SQLNonParsed",1,CreateDictionary1("m_sql",""),Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto1,"m_column",obj setArrElement proto1,"m_contained",CreateDictionary() setArrElement proto1,"m_strCase","" setArrElement proto1,"m_havingmode","0" setArrElement proto1,"m_inBrackets","0" setArrElement proto1,"m_useAlias","0" Set obj = (CreateClass("SQLLogicalExpr",1,proto1,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto0,"m_where",obj Set proto3 = (CreateDictionary()) setArrElement proto3,"m_sql","" setArrElement proto3,"m_uniontype","SQLL_UNKNOWN" Set obj = (CreateClass("SQLNonParsed",1,CreateDictionary1("m_sql",""),Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto3,"m_column",obj setArrElement proto3,"m_contained",CreateDictionary() setArrElement proto3,"m_strCase","" setArrElement proto3,"m_havingmode","0" setArrElement proto3,"m_inBrackets","0" setArrElement proto3,"m_useAlias","0" Set obj = (CreateClass("SQLLogicalExpr",1,proto3,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto0,"m_having",obj setArrElement proto0,"m_fieldlist",CreateDictionary() Set proto5 = (CreateDictionary()) Set obj = (CreateClass("SQLField",1,CreateDictionary2("m_strName","UserCode","m_strTable","siteusers"),Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto5,"m_expr",obj setArrElement proto5,"m_alias","" Set obj = (CreateClass("SQLFieldListItem",1,proto5,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElementN proto0,CreateArray2("m_fieldlist",empty),obj Set proto7 = (CreateDictionary()) Set obj = (CreateClass("SQLField",1,CreateDictionary2("m_strName","UserName","m_strTable","siteusers"),Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto7,"m_expr",obj setArrElement proto7,"m_alias","" Set obj = (CreateClass("SQLFieldListItem",1,proto7,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElementN proto0,CreateArray2("m_fieldlist",empty),obj Set proto9 = (CreateDictionary()) Set obj = (CreateClass("SQLField",1,CreateDictionary2("m_strName","Password","m_strTable","siteusers"),Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto9,"m_expr",obj setArrElement proto9,"m_alias","" Set obj = (CreateClass("SQLFieldListItem",1,proto9,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElementN proto0,CreateArray2("m_fieldlist",empty),obj Set proto11 = (CreateDictionary()) Set obj = (CreateClass("SQLField",1,CreateDictionary2("m_strName","UserEmailAddress","m_strTable","siteusers"),Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto11,"m_expr",obj setArrElement proto11,"m_alias","" Set obj = (CreateClass("SQLFieldListItem",1,proto11,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElementN proto0,CreateArray2("m_fieldlist",empty),obj setArrElement proto0,"m_fromlist",CreateDictionary() Set proto13 = (CreateDictionary()) setArrElement proto13,"m_link","SQLL_MAIN" Set proto14 = (CreateDictionary()) setArrElement proto14,"m_strName","siteusers" setArrElement proto14,"m_columns",CreateDictionary() setArrElementN proto14,CreateArray2("m_columns",empty),"UserCode" setArrElementN proto14,CreateArray2("m_columns",empty),"UserName" setArrElementN proto14,CreateArray2("m_columns",empty),"Password" setArrElementN proto14,CreateArray2("m_columns",empty),"UserEmailAddress" Set obj = (CreateClass("SQLTable",1,proto14,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto13,"m_table",obj setArrElement proto13,"m_alias","" Set proto15 = (CreateDictionary()) setArrElement proto15,"m_sql","" setArrElement proto15,"m_uniontype","SQLL_UNKNOWN" Set obj = (CreateClass("SQLNonParsed",1,CreateDictionary1("m_sql",""),Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto15,"m_column",obj setArrElement proto15,"m_contained",CreateDictionary() setArrElement proto15,"m_strCase","" setArrElement proto15,"m_havingmode","0" setArrElement proto15,"m_inBrackets","0" setArrElement proto15,"m_useAlias","0" Set obj = (CreateClass("SQLLogicalExpr",1,proto15,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElement proto13,"m_joinon",obj Set obj = (CreateClass("SQLFromListItem",1,proto13,Empty,Empty,Empty,Empty,Empty,Empty)) setArrElementN proto0,CreateArray2("m_fromlist",empty),obj setArrElement proto0,"m_groupby",CreateDictionary() setArrElement proto0,"m_orderby",CreateDictionary() Set obj = (CreateClass("SQLQuery",1,proto0,Empty,Empty,Empty,Empty,Empty,Empty)) doAssignment queryData_siteusers,obj setArrElement tdatasiteusers,".sqlquery",queryData_siteusers setArrElement tableEvents,"siteusers",CreateClass("eventsBase",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty) %>