<% Select Case LCase(sGTMSource) Case "content" '--- News ----------------------------------------------------------- AddTable "News", langMgr.GetContent("TABDEF_NEWS_NEWS", "TableDefMessages", iContentLang) SetTableFlag "News", F_NEWMSG, langMgr.GetContent("TABDEF_NEWS_NEW_NEWS", "TableDefMessages", iContentLang) SetTableFlag "News", F_EDITMSG, langMgr.GetContent("TABDEF_NEWS_EDIT_NEWS", "TableDefMessages", iContentLang) SetTableFlag "News", F_FILTERBYLANG, True AddField "News", "NewsID", langMgr.GetContent("TABDEF_NEWS_NEWSID", "TableDefMessages", iContentLang), False, True SetFieldFlag "News", "NewsID", F_ISKEY, True SetFieldFlag "News", "NewsID", F_HIDDEN, True SetFieldFlag "News", "NewsID", F_AUTOGEN, True AddField "News", "Headline", langMgr.GetContent("TABDEF_NEWS_HEADLINE", "TableDefMessages", iContentLang), True, True SetFieldFlag "News", "Headline", F_FIELDLENGTH, 100 AddField "News", "FullStory", langMgr.GetContent("TABDEF_NEWS_FULLSTORY", "TableDefMessages", iContentLang), True, False setFieldFlag "News", "FullStory", F_TYPE, F_HTML_FORMAT SetFieldFlag "News", "FullStory", F_SOURCE, "images" AddField "News", "Author", langMgr.GetContent("TABDEF_NEWS_AUTHOR", "TableDefMessages", iContentLang), True, False SetFieldFlag "News", "Author", F_FIELDLENGTH, 80 AddField "News", "PublicationDate", langMgr.GetContent("TABDEF_NEWS_PUBLICATION_DATE", "TableDefMessages", iContentLang), False, True SetFieldFlag "News", "PublicationDate", F_TYPE, F_DATE_MMDDYYYY AddField "News", "ActiveDays", langMgr.GetContent("TABDEF_NEWS_ACTIVE_DAYS", "TableDefMessages", iContentLang), False, False SetFieldFlag "News", "ActiveDays", F_TYPE, F_NUMBER SetFieldFlag "News", "ActiveDays", F_NULLABLE, False AddField "News", "AutoRemovible", langMgr.GetContent("TABDEF_NEWS_AUTOREMOVABLE", "TableDefMessages", iContentLang), False, False SetFieldFlag "News", "AutoRemovible", F_TYPE, F_BOOL AddField "News", "Image", langMgr.GetContent("TABDEF_NEWS_IMAGEN", "TableDefMessages", iContentLang), False, False SetFieldFlag "News", "Image", F_TYPE, F_FILE SetFieldFlag "News", "Image", F_FILEPATH, "../images/" AddField "News", "OrderShown", langMgr.GetContent("TABDEF_NEWS_ORDER_SHOWN", "TableDefMessages", iContentLang), False, True SetFieldFlag "News", "OrderShown", F_TYPE, F_INT SetFieldFlag "News", "OrderShown", F_SIZEW, 7 SetFieldFlag "News", "OrderShown", F_NULLABLE, False AddField "News", "Category", langMgr.GetContent("TABDEF_NEWS_CATEGORY", "TableDefMessages", iContentLang), True, True SetFieldFlag "News", "Category", F_FIELDLENGTH, 100 '--- FAQ ----------------------------------------------------------- AddTable "FAQ", langMgr.GetContent("TABDEF_FAQ_TITLE", "TableDefMessages", iContentLang) SetTableFlag "FAQ", F_NEWMSG, langMgr.GetContent("TABDEF_FAQ_ADD", "TableDefMessages", iContentLang) SetTableFlag "FAQ", F_EDITMSG, langMgr.GetContent("TABDEF_FAQ_EDIT", "TableDefMessages", iContentLang) SetTableFlag "FAQ", F_FILTERBYLANG, True AddField "FAQ", "ID", langMgr.GetContent("TABDEF_FAQ_ID", "TableDefMessages", iContentLang), False, True SetFieldFlag "FAQ", "ID", F_ISKEY, True SetFieldFlag "FAQ", "ID", F_HIDDEN, True SetFieldFlag "FAQ", "ID", F_AUTOGEN, True AddField "FAQ", "Category", langMgr.GetContent("TABDEF_FAQ_CATEGORY", "TableDefMessages", iContentLang), True, True SetFieldFlag "FAQ", "Category", F_TYPE, F_TEXT SetFieldFlag "FAQ", "Category", F_FIELDLENGTH, 100 SetFieldFlag "FAQ", "Category", F_NULLABLE, True AddField "FAQ", "Question", langMgr.GetContent("TABDEF_FAQ_QUESTION", "TableDefMessages", iContentLang), True, True SetFieldFlag "FAQ", "Question", F_TYPE, F_HTML_FORMAT SetFieldFlag "FAQ", "Question", F_SOURCE, "images" SetFieldFlag "FAQ", "Question", F_SIZEW, 40 SetFieldFlag "FAQ", "Question", F_NULLABLE, True AddField "FAQ", "Answer", langMgr.GetContent("TABDEF_FAQ_ANSWER", "TableDefMessages", iContentLang), True, True SetFieldFlag "FAQ", "Answer", F_SIZEW, 80 SetFieldFlag "FAQ", "Answer", F_SIZEH, 15 SetFieldFlag "FAQ", "Answer", F_TYPE, F_HTML_FORMAT SetFieldFlag "FAQ", "Answer", F_SOURCE, "images" SetFieldFlag "FAQ", "Answer", F_NULLABLE, True AddField "FAQ", "OrderShown", langMgr.GetContent("TABDEF_FAQ_ORDERSHOWN", "TableDefMessages", iContentLang), False, True SetFieldFlag "FAQ", "OrderShown", F_TYPE, F_INT SetFieldFlag "FAQ", "OrderShown", F_SIZEW, 7 SetFieldFlag "FAQ", "OrderShown", F_NULLABLE, False '--- Our People ------------------------------------------------------------ AddTable "OurPeople", langMgr.GetContent("TABDEF_OURPEOPLE_TITLE", "TableDefMessages", iContentLang) SetTableFlag "OurPeople", F_NEWMSG, langMgr.GetContent("TABDEF_OURPEOPLE_ADD", "TableDefMessages", iContentLang) SetTableFlag "OurPeople", F_EDITMSG, langMgr.GetContent("TABDEF_OURPEOPLE_EDIT", "TableDefMessages", iContentLang) SetTableFlag "OurPeople", F_FILTERBYLANG, True AddField "OurPeople", "RecordID", langMgr.GetContent("TABDEF_OURPEOPLE_ID", "TableDefMessages", iContentLang), False, True SetFieldFlag "OurPeople", "RecordID", F_ISKEY, True SetFieldFlag "OurPeople", "RecordID", F_HIDDEN, True SetFieldFlag "OurPeople", "RecordID", F_AUTOGEN, True AddField "OurPeople", "Name", langMgr.GetContent("TABDEF_OURPEOPLE_NAME", "TableDefMessages", iContentLang), True, True SetFieldFlag "OurPeople", "Name", F_FIELDLENGTH, 100 SetFieldFlag "OurPeople", "Name", F_NULLABLE, False AddField "OurPeople", "JobPosition", langMgr.GetContent("TABDEF_OURPEOPLE_POSITION", "TableDefMessages", iContentLang), True, True SetFieldFlag "OurPeople", "JobPosition", F_FIELDLENGTH, 50 SetFieldFlag "OurPeople", "JobPosition", F_NULLABLE, False AddField "OurPeople", "Photo", langMgr.GetContent("TABDEF_OURPEOPLE_PHOTO", "TableDefMessages", iContentLang), True, False SetFieldFlag "OurPeople", "Photo", F_TYPE, F_FILE SetFieldFlag "OurPeople", "Photo", F_FILEPATH, "../images/" AddField "OurPeople", "Description", langMgr.GetContent("TABDEF_OURPEOPLE_DESC", "TableDefMessages", iContentLang), True, False SetFieldFlag "OurPeople", "Description", F_SIZEW, 60 SetFieldFlag "OurPeople", "Description", F_SIZEH, 10 SetFieldFlag "OurPeople", "Description", F_TYPE, F_HTML_FORMAT SetFieldFlag "OurPeople", "Description", F_SOURCE, "images" SetFieldFlag "OurPeople", "Description", F_NULLABLE, True AddField "OurPeople", "Phone", langMgr.GetContent("TABDEF_OURPEOPLE_PHONE", "TableDefMessages", iContentLang), True, True SetFieldFlag "OurPeople", "Phone", F_FIELDLENGTH, 20 SetFieldFlag "OurPeople", "Phone", F_SIZEW, 12 SetFieldFlag "OurPeople", "Phone", F_TYPE, F_US_PHONE AddField "OurPeople", "Extension", langMgr.GetContent("TABDEF_OURPEOPLE_EXT", "TableDefMessages", iContentLang), True, False SetFieldFlag "OurPeople", "Extension", F_SIZEW, 3 SetFieldFlag "OurPeople", "Extension", F_FIELDLENGTH, 8 AddField "OurPeople", "Email", langMgr.GetContent("TABDEF_OURPEOPLE_EMAIL", "TableDefMessages", iContentLang), False, False SetFieldFlag "OurPeople", "Email", F_SIZEW, 50 SetFieldFlag "OurPeople", "Email", F_FIELDLENGTH, 50 SetFieldFlag "OurPeople", "Email", F_TYPE, F_EMAIL AddField "OurPeople", "OrderShown", langMgr.GetContent("TABDEF_OURPEOPLE_ORDERSHOWN", "TableDefMessages", iContentLang), False, True SetFieldFlag "OurPeople", "OrderShown", F_TYPE, F_NUMBER SetFieldFlag "OurPeople", "OrderShown", F_NULLABLE, False '--- Services ----------------------------------------------------------- AddTable "Services", langMgr.GetContent("TABDEF_SERVICES_TITLE", "TableDefMessages", iContentLang) SetTableFlag "Services", F_NEWMSG, langMgr.GetContent("TABDEF_SERVICES_ADD", "TableDefMessages", iInterfaceLang) SetTableFlag "Services", F_EDITMSG, langMgr.GetContent("TABDEF_SERVICES_EDIT", "TableDefMessages", iInterfaceLang) SetTableFlag "Services", F_FILTERBYLANG, True AddField "Services", "Name", langMgr.GetContent("TABDEF_SERVICES_NAME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Services", "Name", F_ISKEY, True SetFieldFlag "Services", "Name", F_FIELDLENGTH, 40 AddField "Services", "Comments", langMgr.GetContent("TABDEF_SERVICES_COMMENTS", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Services", "Comments", F_TYPE, F_HTML_FORMAT SetFieldFlag "Services", "Comments", F_SOURCE, "images" AddField "Services", "OrderShown", langMgr.GetContent("TABDEF_SERVICES_ORDERSHOWN", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Services", "OrderShown", F_TYPE, F_INT SetFieldFlag "Services", "OrderShown", F_SIZEW, 7 SetFieldFlag "Services", "OrderShown", F_NULLABLE, False '--- Links ----------------------------------------------------------- AddTable "Links", langMgr.GetContent("TABDEF_LINKS_LINKS", "TableDefMessages", iContentLang) SetTableFlag "Links", F_NEWMSG, langMgr.GetContent("TABDEF_LINKS_ADD_LINK", "TableDefMessages", iContentLang) SetTableFlag "Links", F_EDITMSG, langMgr.GetContent("TABDEF_LINKS_EDIT_LINK", "TableDefMessages", iContentLang) SetTableFlag "Links", F_FILTERBYLANG, True AddField "Links", "ID", langMgr.GetContent("TABDEF_LINKS_LINKID", "TableDefMessages", iContentLang), False, True SetFieldFlag "Links", "ID", F_ISKEY, True SetFieldFlag "Links", "ID", F_HIDDEN, True SetFieldFlag "Links", "ID", F_AUTOGEN, True AddField "Links", "Name", langMgr.GetContent("TABDEF_LINKS_NAME", "TableDefMessages", iContentLang), True, True SetFieldFlag "Links", "Name", F_TYPE, F_TEXT SetFieldFlag "Links", "Name", F_FIELDLENGTH, 150 SetFieldFlag "Links", "Name", F_SIZEW, 30 SetFieldFlag "Links", "Name", F_NULLABLE, False AddField "Links", "URL", langMgr.GetContent("TABDEF_LINKS_URL", "TableDefMessages", iContentLang), True, True SetFieldFlag "Links", "URL", F_TYPE, F_TEXT SetFieldFlag "Links", "URL", F_FIELDLENGTH, 255 SetFieldFlag "Links", "URL", F_SIZEW, 80 SetFieldFlag "Links", "URL", F_NULLABLE, False AddField "Links", "ShortDesc", langMgr.GetContent("TABDEF_LINKS_SHORT_DESC", "TableDefMessages", iContentLang), True, True SetFieldFlag "Links", "ShortDesc", F_TYPE, F_TEXT SetFieldFlag "Links", "ShortDesc", F_SIZEW, 80 SetFieldFlag "Links", "ShortDesc", F_FIELDLENGTH, 255 AddField "Links", "Category", langMgr.GetContent("TABDEF_LINKS_CATEGORY", "TableDefMessages", iContentLang), True, True SetFieldFlag "Links", "Category", F_TYPE, F_TEXT SetFieldFlag "Links", "Category", F_FIELDLENGTH, 100 SetFieldFlag "Links", "Category", F_SIZEW, 30 AddField "Links", "OrderShown", langMgr.GetContent("TABDEF_LINKS_ORDER_SHOWN", "TableDefMessages", iContentLang), False, True SetFieldFlag "Links", "OrderShown", F_TYPE, F_INT SetFieldFlag "Links", "OrderShown", F_SIZEW, 7 SetFieldFlag "Links", "OrderShown", F_NULLABLE, False AddField "Links", "Description", langMgr.GetContent("TABDEF_LINKS_DESCRIPTION", "TableDefMessages", iContentLang), True, True SetFieldFlag "Links", "Description", F_SIZEW, 60 SetFieldFlag "Links", "Description", F_SIZEH, 10 SetFieldFlag "Links", "Description", F_TYPE, F_HTML_FORMAT SetFieldFlag "Links", "Description", F_SOURCE, "images" SetFieldFlag "Links", "Description", F_NULLABLE, True '--- ExtraPages ----------------------------------------------------------- AddTable "ExtraPages", langMgr.GetContent("TABDEF_EXTPAG_TITLE", "TableDefMessages", iContentLang) SetTableFlag "ExtraPages", F_NEWMSG, langMgr.GetContent("TABDEF_EXTPAG_ADD", "TableDefMessages", iInterfaceLang) SetTableFlag "ExtraPages", F_EDITMSG, langMgr.GetContent("TABDEF_EXTPAG_EDIT", "TableDefMessages", iInterfaceLang) SetTableFlag "ExtraPages", F_FILTERBYLANG, True SetTableFlag "ExtraPages", F_RECORDLISTTEXT, langMgr.GetContent("TABDEF_EXTPAG_INSTRUCTIONS", "TableDefMessages", iInterfaceLang) AddField "ExtraPages", "Name", langMgr.GetContent("TABDEF_EXTPAG_NAME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "ExtraPages", "Name", F_ISKEY, True SetFieldFlag "ExtraPages", "Name", F_FIELDLENGTH, 40 AddField "ExtraPages", "Heading", langMgr.GetContent("TABDEF_EXTPAG_HEADING", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "ExtraPages", "Heading", F_FIELDLENGTH, 255 AddField "ExtraPages", "Title", langMgr.GetContent("TABDEF_EXTPAG_PAGE_TITLE", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "ExtraPages", "Title", F_FIELDLENGTH, 255 AddField "ExtraPages", "Keywords", langMgr.GetContent("TABDEF_EXTPAG_KEYWORDS", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "ExtraPages", "Keywords", F_TYPE, F_MEMO AddField "ExtraPages", "Description", langMgr.GetContent("TABDEF_EXTPAG_DESCRIPTION", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "ExtraPages", "Description", F_TYPE, F_MEMO AddField "ExtraPages", "Comments", langMgr.GetContent("TABDEF_EXTPAG_COMMENTS", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "ExtraPages", "Comments", F_TYPE, F_HTML_FORMAT SetFieldFlag "ExtraPages", "Comments", F_SOURCE, "images" Case "catalogit" Dim rsUserFields, bUseQuotes, sDataType, iFieldSize, sHintText, iFieldIndex, bSearchable, bListable, asTemp, sTemp '''''''''''''''''''''''''''''''''''''''''''''' CATEGORIES Table ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' AddTable "Categories", langMgr.GetContent("TABDEF_CAT_TITLE", "TableDefMessages", iContentLang) SetTableFlag "Categories", F_NEWMSG, langMgr.GetContent("TABDEF_CAT_ADD", "TableDefMessages", iInterfaceLang) SetTableFlag "Categories", F_EDITMSG, langMgr.GetContent("TABDEF_CAT_EDIT", "TableDefMessages", iInterfaceLang) SetTableFlag "Categories", F_RECORDLISTORDER, "Name" SetTableFlag "Categories", F_SEARCHABLE, True SetTableFlag "Categories", F_FILTERBYLANG, True AddField "Categories", "CategoryID", langMgr.GetContent("TABDEF_CAT_ID", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Categories", "CategoryID", F_ISKEY, True SetFieldFlag "Categories", "CategoryID", F_HIDDEN, True SetFieldFlag "Categories", "CategoryID", F_AUTOGEN, True AddField "Categories", "Name", langMgr.GetContent("TABDEF_CAT_NAME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Categories", "Name", F_NULLABLE, False SetFieldFlag "Categories", "Name", F_SEARCHABLE, True AddField "Categories", "Code", langMgr.GetContent("TABDEF_CAT_CODE", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Categories", "Code", F_SEARCHABLE, True AddField "Categories", "ShortDescription", langMgr.GetContent("TABDEF_CAT_SHORTDESC", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Categories", "ShortDescription", F_TYPE, F_MEMO AddField "Categories", "Description", langMgr.GetContent("TABDEF_CAT_DESCRIPTION", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Categories", "Description", F_TYPE, F_HTML_FORMAT SetFieldFlag "Categories", "Description", F_SOURCE, "images" SetFieldFlag "Categories", "Description", F_SEARCHABLE, True AddField "Categories", "ThumbnailFile", langMgr.GetContent("TABDEF_CAT_THUMBNAIL", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Categories", "ThumbnailFile", F_TYPE, F_FILE SetFieldFlag "Categories", "ThumbnailFile", F_FILEPATH, "../catimages/thumbs/" AddField "Categories", "ImageFile", langMgr.GetContent("TABDEF_CAT_IMAGEFILE", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Categories", "ImageFile", F_TYPE, F_FILE SetFieldFlag "Categories", "ImageFile", F_FILEPATH, "../catimages/" AddField "Categories", "Keywords", langMgr.GetContent("TABDEF_CAT_KEYWORDS", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Categories", "Keywords", F_SEARCHABLE, True SetFieldFlag "Categories", "Keywords", F_TYPE, F_MEMO AddField "Categories", "IsActive", langMgr.GetContent("TABDEF_CAT_ACTIVE", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Categories", "IsActive", F_TYPE, F_BOOL SetFieldFlag "Categories", "IsActive", F_NULLABLE, False AddField "Categories", "IsTop", langMgr.GetContent("TABDEF_CAT_TOP", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Categories", "IsTop", F_TYPE, F_BOOL SetFieldFlag "Categories", "IsTop", F_NULLABLE, False AddField "Categories", "OrderShown", langMgr.GetContent("TABDEF_CAT_ORDERSHOWN", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Categories", "OrderShown", F_TYPE, F_INT SetFieldFlag "Categories", "OrderShown", F_SIZEW, 7 SetFieldFlag "Categories", "OrderShown", F_NULLABLE, False ' PutDynamicFields "Categories", 1, 3 AddField "Categories", "Hierarchy", langMgr.GetContent("TABDEF_CAT_SELECTCAT", "TableDefMessages", iInterfaceLang), False, False SetFieldFlag "Categories", "Hierarchy", F_TYPE, F_ONETOMANY SetFieldFlag "Categories", "Hierarchy", F_SOURCE, "CategoryHierarchy;CategoryID;ChildCategoryID" If sCmd <> "E" Then SetFieldFlag "Categories", "Hierarchy", F_MANYVALUES, "SELECT CategoryID, Name FROM Categories WHERE LangID=" & iContentLang & " ORDER BY Name" Else SetFieldFlag "Categories", "Hierarchy", F_MANYVALUES, "SELECT CategoryID, Name FROM Categories WHERE CategoryID <> " & Request("K_CategoryID") & " AND LangID=" & iContentLang & " ORDER BY Name" End If SetFieldFlag "Categories", "Hierarchy", F_UPDATABLE, False '''''''''''''''''''''''''''''''''''''''''''''' PRODUCTS Table ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' AddTable "Products", langMgr.GetContent("TABDEF_PROD_TITLE", "TableDefMessages", iContentLang) SetTableFlag "Products", F_NEWMSG, langMgr.GetContent("TABDEF_PROD_ADD", "TableDefMessages", iInterfaceLang) SetTableFlag "Products", F_EDITMSG, langMgr.GetContent("TABDEF_PROD_EDIT", "TableDefMessages", iInterfaceLang) SetTableFlag "Products", F_RECORDLISTORDER, "Name" SetTableFlag "Products", F_SEARCHABLE, True SetTableFlag "Products", F_FILTERBYLANG, True AddField "Products", "ProductID", langMgr.GetContent("TABDEF_PROD_ID", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Products", "ProductID", F_ISKEY, True SetFieldFlag "Products", "ProductID", F_HIDDEN, True SetFieldFlag "Products", "ProductID", F_AUTOGEN, True AddField "Products", "Name", langMgr.GetContent("TABDEF_PROD_NAME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Products", "Name", F_SEARCHABLE, True AddField "Products", "Code", langMgr.GetContent("TABDEF_PROD_CODE", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Products", "Code", F_SEARCHABLE, True AddField "Products", "ShortDescription", langMgr.GetContent("TABDEF_PROD_SHORTDESC", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Products", "ShortDescription", F_SEARCHABLE, True SetFieldFlag "Products", "ShortDescription", F_TYPE, F_HTML_FORMAT SetFieldFlag "Products", "ShortDescription", F_SOURCE, "images" SetFieldFlag "Products", "ShortDescription", F_SIZEW, 80 SetFieldFlag "Products", "ShortDescription", F_SIZEH, 8 AddField "Products", "Description", langMgr.GetContent("TABDEF_PROD_DESCRIPTION", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Products", "Description", F_SEARCHABLE, True SetFieldFlag "Products", "Description", F_TYPE, F_HTML_FORMAT SetFieldFlag "Products", "Description", F_SOURCE, "images" SetFieldFlag "Products", "Description", F_SIZEW, 80 SetFieldFlag "Products", "Description", F_SIZEH, 8 AddField "Products", "ThumbnailFile", langMgr.GetContent("TABDEF_PROD_THUMBNAIL", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Products", "ThumbnailFile", F_TYPE, F_FILE SetFieldFlag "Products", "ThumbnailFile", F_FILEPATH, "../prodimages/thumbs/" AddField "Products", "ImageFile", langMgr.GetContent("TABDEF_PROD_IMAGEFILE", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Products", "ImageFile", F_TYPE, F_FILE SetFieldFlag "Products", "ImageFile", F_FILEPATH, "../prodimages/" AddField "Products", "OtherFile", langMgr.GetContent("TABDEF_PROD_OTHERFILE", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Products", "OtherFile", F_TYPE, F_FILE SetFieldFlag "Products", "OtherFile", F_FILEPATH, "../prodfiles/" AddField "Products", "ListPrice", langMgr.GetContent("TABDEF_PROD_LISTPRICE", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Products", "ListPrice", F_TYPE, F_NUMBER AddField "Products", "Price", langMgr.GetContent("TABDEF_PROD_PRICE", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Products", "Price", F_TYPE, F_NUMBER AddField "Products", "ExternalURL", langMgr.GetContent("TABDEF_PROD_EXTERNALURL", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Products", "ExternalURL", F_SIZEW, 80 AddField "Products", "Keywords", langMgr.GetContent("TABDEF_PROD_KEYWORDS", "TableDefMessages", iInterfaceLang), True, False SetFieldFlag "Products", "Keywords", F_SEARCHABLE, True SetFieldFlag "Products", "Keywords", F_TYPE, F_MEMO SetFieldFlag "Products", "Keywords", F_SIZEW, 80 SetFieldFlag "Products", "Keywords", F_SIZEH, 8 AddField "Products", "IsActive", langMgr.GetContent("TABDEF_PROD_ACTIVE", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Products", "IsActive", F_TYPE, F_BOOL SetFieldFlag "Products", "IsActive", F_NULLABLE, False AddField "Products", "OrderShown", langMgr.GetContent("TABDEF_PROD_ORDERSHOWN", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Products", "OrderShown", F_TYPE, F_INT SetFieldFlag "Products", "OrderShown", F_SIZEW, 7 SetFieldFlag "Products", "OrderShown", F_NULLABLE, False ' PutDynamicFields "Products", 4, 8 AddField "Products", "Categories", langMgr.GetContent("TABDEF_PROD_SELECTPRODUCTS", "TableDefMessages", iInterfaceLang), False, False SetFieldFlag "Products", "Categories", F_TYPE, F_ONETOMANY SetFieldFlag "Products", "Categories", F_SOURCE, "ProductCatalog;ProductID;CategoryID" SetFieldFlag "Products", "Categories", F_MANYVALUES, "SELECT CategoryID, Name FROM Categories WHERE LangID=" & iContentLang & " ORDER BY Name" SetFieldFlag "Products", "Categories", F_UPDATABLE, False ' ''''''''''''''''''''''''''''''''''''''''''''' EXTRA FIELDS Table ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' AddTable "ExtraFields", "Extra Fields - User Defined Fields Administration." ' SetTableFlag "ExtraFields", F_NEWMSG, "Create new user-defined field." ' SetTableFlag "ExtraFields", F_EDITMSG, "Edit a user-defined field." ' SetTableFlag "ExtraFields", F_RECORDLISTTEXT, "" _ ' + "Define User Defined Fields. These fields appear under the Category and Products tables." ' SetTableFlag "ExtraFields", F_RECORDEDITTEXT, "" _ ' + "Extra fields from 1 to 3 are specific to the Categories table. " _ ' + "Extra fields from 4 to 8 are specific to the Products table. " ' SetTableFlag "ExtraFields", F_RECORDLISTORDER, "ExtraFieldID" ' ' AddField "ExtraFields", "ExtraFieldID", "ExtraFieldID", False, True ' SetFieldFlag "ExtraFields", "ExtraFieldID", F_ISKEY, True ' ' AddField "ExtraFields", "Name", "User Defined Field Name", True, True ' ' AddField "ExtraFields", "Hint", "Hint Text", True, False ' ' AddField "ExtraFields", "DataType", "Data Type", True, True ' SetFieldFlag "ExtraFields", "DataType", F_TYPE, F_VALUEOPTIONS ' SetFieldFlag "ExtraFields", "DataType", F_SOURCE, "" _ ' + "Text:Generic Text;Integer:Integer (e.g. 2, -95);Real:Real (e.g. 3.141592, -2.0);" _ ' + "Boolean:Boolean (e.g. True, False);Date:mm/dd/yyyy Date (e.g. 02/12/2002);" _ ' + "Value List:A drop-down whose source is a list of values. Use Hint text and separate each value with a semi-colon.;" _ ' + "Option List:An option list whose source is a list of values. Use Hint text and separate each value with a semi-colon." ' ' AddField "ExtraFields", "FieldSize", "Size", False, False ' ' AddField "ExtraFields", "IsListable", "Is listable?", False, True ' SetFieldFlag "ExtraFields", "IsListable", F_TYPE, F_BOOL ' ' AddField "ExtraFields", "IsSearchable", "Is Searchable?", False, True ' SetFieldFlag "ExtraFields", "IsSearchable", F_TYPE, F_BOOL ' ' AddField "ExtraFields", "IsActive", "Is Active?", False, True ' SetFieldFlag "ExtraFields", "IsActive", F_TYPE, F_BOOL Case "intranet" '--- Documents ----------------------------------------------------------- AddTable "Documents", langMgr.GetContent("TABDEF_INTDOCS_TITLE", "TableDefMessages", iInterfaceLang) SetTableFlag "Documents", F_NEWMSG, langMgr.GetContent("TABDEF_INTDOCS_ADD", "TableDefMessages", iInterfaceLang) SetTableFlag "Documents", F_EDITMSG, langMgr.GetContent("TABDEF_INTDOCS_EDIT", "TableDefMessages", iInterfaceLang) SetTableFlag "Documents", F_FILTERBYLANG, True AddField "Documents", "DocumentID", langMgr.GetContent("TABDEF_INTDOCS_ID", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "Documents", "DocumentID", F_ISKEY, True SetFieldFlag "Documents", "DocumentID", F_HIDDEN, True SetFieldFlag "Documents", "DocumentID", F_AUTOGEN, True AddField "Documents", "DocName", langMgr.GetContent("TABDEF_INTDOCS_NAME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Documents", "DocName", F_NULLABLE, False SetFieldFlag "Documents", "DocName", F_FIELDLENGTH, 100 AddField "Documents", "Category", langMgr.GetContent("TABDEF_INTDOCS_CATEGORY", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Documents", "Category", F_TYPE, F_TEXT SetFieldFlag "Documents", "Category", F_FIELDLENGTH, 100 SetFieldFlag "Documents", "Category", F_NULLABLE, True AddField "Documents", "DocFile", langMgr.GetContent("TABDEF_INTDOCS_FILE", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Documents", "DocFile", F_TYPE, F_FILE SetFieldFlag "Documents", "DocFile", F_FILEPATH, "../documents/" SetFieldFlag "Documents", "DocFile", F_NULLABLE, False SetFieldFlag "Documents", "DocFile", F_FIELDLENGTH, 255 AddField "Documents", "Description", langMgr.GetContent("TABDEF_INTDOCS_DESC", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Documents", "Description", F_SIZEW, 40 SetFieldFlag "Documents", "Description", F_SIZEH, 6 SetFieldFlag "Documents", "Description", F_TYPE, F_HTML_FORMAT SetFieldFlag "Documents", "Description", F_SOURCE, "images" SetFieldFlag "Documents", "Description", F_NULLABLE, False AddField "Documents", "OrderShown", langMgr.GetContent("TABDEF_INTDOCS_ORDERSHOWN", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "Documents", "OrderShown", F_TYPE, F_INT SetFieldFlag "Documents", "OrderShown", F_SIZEW, 6 SetFieldFlag "Documents", "OrderShown", F_NULLABLE, True AddField "Documents", "Users", langMgr.GetContent("TABDEF_INTDOCS_USERS", "TableDefMessages", iInterfaceLang), False, False SetFieldFlag "Documents", "Users", F_TYPE, F_ONETOMANY SetFieldFlag "Documents", "Users", F_SOURCE, "DocumentsUsers;DocumentID;UserID" SetFieldFlag "Documents", "Users", F_MANYVALUES, "SELECT UserID, UserName FROM IntranetUsers WHERE LangID=" & iContentLang & " ORDER BY UserName" SetFieldFlag "Documents", "Users", F_UPDATABLE, False '--- Intranet Users ----------------------------------------------------------- AddTable "IntranetUsers", langMgr.GetContent("TABDEF_INTUSERS_TITLE", "TableDefMessages", iInterfaceLang) SetTableFlag "IntranetUsers", F_NEWMSG, langMgr.GetContent("TABDEF_INTUSERS_ADD", "TableDefMessages", iInterfaceLang) SetTableFlag "IntranetUsers", F_EDITMSG, langMgr.GetContent("TABDEF_INTUSERS_EDIT", "TableDefMessages", iInterfaceLang) SetTableFlag "IntranetUsers", F_FILTERBYLANG, True AddField "IntranetUsers", "UserID", langMgr.GetContent("TABDEF_INTUSERS_ID", "TableDefMessages", iInterfaceLang), False, True SetFieldFlag "IntranetUsers", "UserID", F_ISKEY, True SetFieldFlag "IntranetUsers", "UserID", F_HIDDEN, True SetFieldFlag "IntranetUsers", "UserID", F_AUTOGEN, True AddField "IntranetUsers", "UserName", langMgr.GetContent("TABDEF_INTUSERS_USERNAME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "IntranetUsers", "UserName", F_TYPE, F_TEXT SetFieldFlag "IntranetUsers", "UserName", F_SIZEW, 12 SetFieldFlag "IntranetUsers", "UserName", F_NULLABLE, False SetFieldFlag "IntranetUsers", "UserName", F_FIELDLENGTH, 12 AddField "IntranetUsers", "FullName", langMgr.GetContent("TABDEF_INTUSERS_FULLNAME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "IntranetUsers", "FullName", F_TYPE, F_TEXT SetFieldFlag "IntranetUsers", "FullName", F_SIZEW, 40 SetFieldFlag "IntranetUsers", "FullName", F_NULLABLE, False SetFieldFlag "IntranetUsers", "FullName", F_FIELDLENGTH, 50 AddField "IntranetUsers", "Password", langMgr.GetContent("TABDEF_INTUSERS_PASSWORD", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "IntranetUsers", "Password", F_TYPE, F_TEXT SetFieldFlag "IntranetUsers", "Password", F_SIZEW, 12 SetFieldFlag "IntranetUsers", "Password", F_NULLABLE, False SetFieldFlag "IntranetUsers", "Password", F_FIELDLENGTH, 12 AddField "IntranetUsers", "WelcomeText", langMgr.GetContent("TABDEF_INTUSERS_WELCOME", "TableDefMessages", iInterfaceLang), True, True SetFieldFlag "IntranetUsers", "WelcomeText", F_SIZEW, 80 SetFieldFlag "IntranetUsers", "WelcomeText", F_SIZEH, 15 SetFieldFlag "IntranetUsers", "WelcomeText", F_TYPE, F_HTML_FORMAT SetFieldFlag "IntranetUsers", "WelcomeText", F_SOURCE, "images" SetFieldFlag "IntranetUsers", "WelcomeText", F_NULLABLE, True AddField "IntranetUsers", "Documents", langMgr.GetContent("TABDEF_INTUSERS_DOCS", "TableDefMessages", iInterfaceLang), False, False SetFieldFlag "IntranetUsers", "Documents", F_TYPE, F_ONETOMANY SetFieldFlag "IntranetUsers", "Documents", F_SOURCE, "DocumentsUsers;UserID;DocumentID" SetFieldFlag "IntranetUsers", "Documents", F_MANYVALUES, "SELECT DocumentID, DocName FROM Documents WHERE LangID=" & iContentLang & " ORDER BY DocName" SetFieldFlag "IntranetUsers", "Documents", F_UPDATABLE, False Case "imm" ' Infolink Marketing Mailer v1.0 tabledef.inc ' Manages tables used by Marketing Mailer. ' ' Carlos A. Madrigal ' Version 1.0 06/14/2002 '''''''''''''''''''''''''''''''''''''''''''''' CATEGORIES Table ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' AddTable "mmCategories", langMgr.GetContent("TABDEF_IMMCAT_TITLE", "TableDefMessages", iContentLang) SetTableFlag "mmCategories", F_NEWMSG, langMgr.GetContent("TABDEF_IMMCAT_ADD", "TableDefMessages", iContentLang) SetTableFlag "mmCategories", F_EDITMSG, langMgr.GetContent("TABDEF_IMMCAT_EDIT", "TableDefMessages", iContentLang) SetTableFlag "mmCategories", F_RECORDLISTORDER, "Group, SortOrder, Name" SetTableFlag "mmCategories", F_ACTIONSALLOWED, F_SECADD + F_SECDEL + F_SECEDIT + F_SECRETR AddField "mmCategories", "CategoryID", langMgr.GetContent("TABDEF_IMMCAT_ID", "TableDefMessages", iContentLang), False, True SetFieldFlag "mmCategories", "CategoryID", F_ISKEY, True SetFieldFlag "mmCategories", "CategoryID", F_HIDDEN, True SetFieldFlag "mmCategories", "CategoryID", F_AUTOGEN, True AddField "mmCategories", "Name", langMgr.GetContent("TABDEF_IMMCAT_NAME", "TableDefMessages", iContentLang), True, True SetFieldFlag "mmCategories", "Name", F_NULLABLE, False AddField "mmCategories", "Group", langMgr.GetContent("TABDEF_IMMCAT_GROUP", "TableDefMessages", iContentLang), True, True SetFieldFlag "mmCategories", "Group", F_NULLABLE, True AddField "mmCategories", "SortOrder", langMgr.GetContent("TABDEF_IMMCAT_ORDERSHOWN", "TableDefMessages", iContentLang), False, True SetFieldFlag "mmCategories", "SortOrder", F_TYPE, F_NUMBER AddField "mmCategories", "IsActive", langMgr.GetContent("TABDEF_IMMCAT_ACTIVE", "TableDefMessages", iContentLang), False, True SetFieldFlag "mmCategories", "IsActive", F_TYPE, F_BOOL SetFieldFlag "mmCategories", "Name", F_NULLABLE, False '''''''''''''''''''''''''''''''''''''''''''''' SUBSCRIBERS Table ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' AddTable "mmSubscribers", langMgr.GetContent("TABDEF_IMMSUBS_TITLE", "TableDefMessages", iContentLang) SetTableFlag "mmSubscribers", F_NEWMSG, langMgr.GetContent("TABDEF_IMMSUBS_ADD", "TableDefMessages", iContentLang) SetTableFlag "mmSubscribers", F_EDITMSG, langMgr.GetContent("TABDEF_IMMSUBS_EDIT", "TableDefMessages", iContentLang) SetTableFlag "mmSubscribers", F_RECORDLISTORDER, "LastName, FirstName" SetTableFlag "mmSubscribers", F_ACTIONSALLOWED, F_SECADD + F_SECDEL + F_SECEDIT + F_SECRETR SetTableFlag "mmSubscribers", F_SEARCHABLE, True AddField "mmSubscribers", "SubscriberID", langMgr.GetContent("TABDEF_IMMSUBS_ID", "TableDefMessages", iContentLang), False, True SetFieldFlag "mmSubscribers", "SubscriberID", F_ISKEY, True SetFieldFlag "mmSubscribers", "SubscriberID", F_HIDDEN, True SetFieldFlag "mmSubscribers", "SubscriberID", F_AUTOGEN, True AddField "mmSubscribers", "FirstName", langMgr.GetContent("TABDEF_IMMSUBS_FNAME", "TableDefMessages", iContentLang), True, True SetFieldFlag "mmSubscribers", "FirstName", F_NULLABLE, False SetFieldFlag "mmSubscribers", "FirstName", F_SEARCHABLE, True AddField "mmSubscribers", "LastName", langMgr.GetContent("TABDEF_IMMSUBS_LNAME", "TableDefMessages", iContentLang), True, True SetFieldFlag "mmSubscribers", "LastName", F_NULLABLE, False SetFieldFlag "mmSubscribers", "LastName", F_SEARCHABLE, True AddField "mmSubscribers", "Company", langMgr.GetContent("TABDEF_IMMSUBS_COMPANY", "TableDefMessages", iContentLang), True, False AddField "mmSubscribers", "Address1", langMgr.GetContent("TABDEF_IMMSUBS_ADDRESS1", "TableDefMessages", iContentLang), True, False AddField "mmSubscribers", "Address2", langMgr.GetContent("TABDEF_IMMSUBS_ADDRESS2", "TableDefMessages", iContentLang), True, False AddField "mmSubscribers", "City", langMgr.GetContent("TABDEF_IMMSUBS_CITY", "TableDefMessages", iContentLang), True, False AddField "mmSubscribers", "State", langMgr.GetContent("TABDEF_IMMSUBS_STATE", "TableDefMessages", iContentLang), True, False AddField "mmSubscribers", "PostalCode", langMgr.GetContent("TABDEF_IMMSUBS_POSTALCODE", "TableDefMessages", iContentLang), True, False AddField "mmSubscribers", "Country", langMgr.GetContent("TABDEF_IMMSUBS_COUNTRY", "TableDefMessages", iContentLang), True, True SetFieldFlag "mmSubscribers", "Country", F_TYPE, F_VALUESELECT SetFieldFlag "mmSubscribers", "Country", F_SOURCE, "Albania:Albania;Algeria:Algeria;American Samoa:American Samoa;Andorra:Andorra;Anguilla:Anguilla;Antigua And Barbuda:Antigua And Barbuda;Argentina:Argentina;Aruba:Aruba;Australia:Australia;Austria:Austria;Azores:Azores;Bahamas:Bahamas;Bahrain:Bahrain;Bangladesh:Bangladesh;Barbados:Barbados;Belgium:Belgium;Belize:Belize;Belarus:Belarus;Benin:Benin;Bermuda:Bermuda;Bolivia:Bolivia;Bonaire:Bonaire;Bosnia:Bosnia;Botswana:Botswana;Brazil:Brazil;Brunei:Brunei;Bulgaria:Bulgaria;Burkina Faso:Burkina Faso;Burundi:Burundi;Cambodia:Cambodia;Cameroon:Cameroon;Canada:Canada;Canary Islands:Canary Islands;Cape Verde Islands:Cape Verde Islands;Cayman Islands:Cayman Islands;Central African Republic:Central African Republic;Chad:Chad;Channel Islands:Channel Islands;Chile:Chile;China, Peoples Republic of:China;Colombia:Colombia;Congo:Congo;Cook Islands:Cook Islands;Costa Rica:Costa Rica;Croatia:Croatia;Curacao:Curacao;Cyprus:Cyprus;Czech Republic:Czech Republic;Denmark:Denmark;Djibouti:Djibouti;Dominica:Dominica;Dominican Republic:Dominican Republic;Ecuador:Ecuador;Egypt:Egypt;El Salvador:El Salvador;England:England;Equitorial Guinea:Equitorial Guinea;Eritrea:Eritrea;Estonia:Estonia;Ethiopia:Ethiopia;Faeroe Islands:Faeroe Islands;Fiji:Fiji;Finland:Finland;France:France;French Guiana:French Guiana;French Polynesia:French Polynesia;Gabon:Gabon;Gambia:Gambia;Georgia:Georgia;Germany:Germany;Ghana:Ghana;Gibraltar:Gibraltar;Greece:Greece;Greenland:Greenland;Grenada:Grenada;Guadeloupe:Guadeloupe;Guam:Guam;Guatemala:Guatemala;Guinea:Guinea;Guinea-Bissau:Guinea-Bissau;Guyana:Guyana;Haiti:Haiti;Holland:Holland;Honduras:Honduras;Hong Kong:Hong Kong;Hungary:Hungary;Iceland:Iceland;India:India;Indonesia:Indonesia;Israel:Israel;Italy:Italy;Ivory Coast:Ivory Coast;Jamaica:Jamaica;Japan:Japan;Jordan:Jordan;Kazakhstan:Kazakhstan;Kenya:Kenya;Kiribati:Kiribati;Kosrae:Kosrae;Kuwait:Kuwait;Kyrgyzstan:Kyrgyzstan;Laos:Laos;Latvia:Latvia;Lebanon:Lebanon;Lesotho:Lesotho;Liberia:Liberia;Liechtenstein:Liechtenstein;Lithuania:Lithuania;Luxembourg:Luxembourg;Macau:Macau;Macedonia:Macedonia;Madagascar:Madagascar;Madeira:Madeira;Malawi:Malawi;Malaysia:Malaysia;Maldives:Maldives;Mali:Mali;Malta:Malta;Marshall Islands:Marshall Islands;Martinique:Martinique;Mauritania:Mauritania;Mauritius:Mauritius;Mexico:Mexico;Moldova:Moldova;Monaco:Monaco;Montserrat:Montserrat;Morocco:Morocco;Mozambique:Mozambique;Myanmar:Myanmar;Namibia:Namibia;Nepal:Nepal;Netherlands:Netherlands;New Caledonia:New Caledonia;New Zealand:New Zealand;Nicaragua:Nicaragua;Niger:Niger;Nigeria:Nigeria;Norfolk Island:Norfolk Island;Northern Ireland:Northern Ireland;Norway:Norway;Oman:Oman;Pakistan:Pakistan;Palau:Palau;Panama:Panama;Papua New Guinea:Papua New Guinea;Paraguay:Paraguay;Peru:Peru;Philippines:Philippines;Poland:Poland;Ponape:Ponape;Portugal:Portugal;Puerto Rico:Puerto Rico;Qatar:Qatar;Republic of Ireland:Republic of Ireland;Republic of Yemen:Republic of Yemen;Reunion:Reunion;Romania:Romania;Rota:Rota;Russia:Russia;Rwanda:Rwanda;Saba:Saba;Saipan:Saipan;Saudi Arabia:Saudi Arabia;Scotland:Scotland;Senegal:Senegal;Seychelles:Seychelles;Sierra Leone:Sierra Leone;Singapore:Singapore;Slovakia:Slovakia;Slovenia:Slovenia;Solomon Islands:Solomon Islands;South Africa:South Africa;South Korea:South Korea;Spain:Spain;Sri Lanka:Sri Lanka;St. Barthelemy:St. Barthelemy;St. Christopher:St. Christopher;St. Croix:St. Croix;St. Eustatius:St. Eustatius;St. John:St. John;St. Kitts And Nevis:St. Kitts And Nevis;St. Lucia:St. Lucia;St. Maarten:St. Maarten;St. Martin:St. Martin;St. Thomas:St. Thomas;Sudan:Sudan;Suriname:Suriname;Swaziland:Swaziland;Sweden:Sweden;Switzerland:Switzerland;Syria:Syria;Tahiti:Tahiti;Taiwan:Taiwan;Tajikistan:Tajikistan;Tanzania:Tanzania;Thailand:Thailand;Tinian:Tinian;Togo:Togo;Tonga:Tonga;Tortola:Tortola;Truk:Truk;Tunisia:Tunisia;Turkey:Turkey;Tuvalu:Tuvalu;Uganda:Uganda;Ukraine:Ukraine;Union Island:Union Island;United Arab Emirates:United Arab Emirates;United Kingdom:United Kingdom;United States:United States;Uruguay:Uruguay;US Virgin Islands:US Virgin Islands;Uzbekistan:Uzbekistan;Vanuatu:Vanuatu;Venezuela:Venezuela;Vietnam:Vietnam;Virgin Islands:Virgin Islands;Virgin Gorda:Virgin Gorda;Wake Island:Wake Island;Wales:Wales;Western Samoa:Western Samoa;Yap:Yap;Yugoslavia:Yugoslavia;Zaire:Zaire;Zambia:Zambia;Zimbabwe:Zimbabwe" AddField "mmSubscribers", "Phone", langMgr.GetContent("TABDEF_IMMSUBS_PHONE", "TableDefMessages", iContentLang), True, True AddField "mmSubscribers", "Fax", langMgr.GetContent("TABDEF_IMMSUBS_FAX", "TableDefMessages", iContentLang), True, False AddField "mmSubscribers", "EMail", langMgr.GetContent("TABDEF_IMMSUBS_EMAIL", "TableDefMessages", iContentLang), True, True SetFieldFlag "mmSubscribers", "EMail", F_NULLABLE, False SetFieldFlag "mmSubscribers", "EMail", F_SEARCHABLE, True AddField "mmSubscribers", "Notes", langMgr.GetContent("TABDEF_IMMSUBS_NOTES", "TableDefMessages", iContentLang), True, False SetFieldFlag "mmSubscribers", "Notes", F_TYPE, F_MEMO AddField "mmSubscribers", "Categories", langMgr.GetContent("TABDEF_IMMSUBS_CATEGORIES", "TableDefMessages", iContentLang), False, False SetFieldFlag "mmSubscribers", "Categories", F_TYPE, F_ONETOMANY SetFieldFlag "mmSubscribers", "Categories", F_SOURCE, "mmSubscriptions;SubscriberID;CategoryID" SetFieldFlag "mmSubscribers", "Categories", F_MANYVALUES, "SELECT CategoryID, Name FROM mmCategories ORDER BY SortOrder" SetFieldFlag "mmSubscribers", "Categories", F_UPDATABLE, False '''''''''''''''''''''''''''''''''''''''''''''' LOG Table ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' AddTable "mmLog", langMgr.GetContent("TABDEF_IMMLOG_TITLE", "TableDefMessages", iContentLang) SetTableFlag "mmLog", F_ACTIONSALLOWED, "RD" ' Retrieve, Delete SetTableFlag "mmLog", F_RECORDLISTORDER, "CreationDate DESC" AddField "mmLog", "LogID", langMgr.GetContent("TABDEF_IMMLOG_ID", "TableDefMessages", iContentLang), False, True SetFieldFlag "mmLog", "LogID", F_ISKEY, True SetFieldFlag "mmLog", "LogID", F_AUTOGEN, True SetFieldFlag "mmLog", "LogID", F_HIDDEN, True AddField "mmLog", "CreationDate", langMgr.GetContent("TABDEF_IMMLOG_CREATIONDATE", "TableDefMessages", iContentLang), False, True AddField "mmLog", "Recipients", langMgr.GetContent("TABDEF_IMMLOG_RECIPIENTS", "TableDefMessages", iContentLang), True, False AddField "mmLog", "Template", langMgr.GetContent("TABDEF_IMMLOG_TEMPLATE", "TableDefMessages", iContentLang), True, True AddField "mmLog", "Subject", langMgr.GetContent("TABDEF_IMMLOG_SUBJECT", "TableDefMessages", iContentLang), True, True AddField "mmLog", "Message", langMgr.GetContent("TABDEF_IMMLOG_MESSAGE", "TableDefMessages", iContentLang), True, False AddField "mmLog", "Attachments", langMgr.GetContent("TABDEF_IMMLOG_ATTACHMENTS", "TableDefMessages", iContentLang), True, False End Select Sub PutDynamicFields(ByVal sTable, ByVal iLoBound, ByVal iHiBound) ' Dynamically add user-fields Set rsUserFields = conDB.Execute("SELECT ExtraFieldID, Name, Hint, DataType, FieldSize, IsListable, IsSearchable FROM ExtraFields Where ExtraFieldID BETWEEN " & iLoBound & " AND " & iHiBound & " AND IsActive<>0 ORDER BY ExtraFieldID") With rsUserFields While Not .EOF iFieldIndex = .Fields("ExtraFieldID") bSearchable = .Fields("IsSearchable") bListable = .Fields("IsListable") If Not IsNull(.Fields("DataType")) Then If Not IsNull(.Fields("Hint")) Then sHintText = .Fields("Hint") Else sHintText = vbNullString End If ' Default field size iFieldSize = 0 Select Case .Fields("DataType") Case "Text" bUseQuotes = True sDataType = F_TEXT iFieldSize = .Fields("FieldSize") Case "Integer" bUseQuotes = False sDataType = F_INT iFieldSize = .Fields("FieldSize") Case "Real" bUseQuotes = False sDataType = F_NUMBER iFieldSize = .Fields("FieldSize") Case "Boolean" bUseQuotes = False sDataType = F_BOOL Case "Date" bUseQuotes = True sDataType = F_DATE_MMDDYYYY iFieldSize = .Fields("FieldSize") Case "Value List" bUseQuotes = True sDataType = F_VALUESELECT ' Redo sHintText to put two columns as GTM requires it in that way asTemp = Split(sHintText, ";") sHintText = vbNullString For Each sTemp In asTemp sHintText = sHintText + sTemp + ":" + sTemp + ";" Next sHintText = Left(sHintText, Len(sHintText)-1) Case "Option List" bUseQuotes = True sDataType = F_VALUEOPTIONS ' Redo sHintText to put two columns as GTM requires it in that way asTemp = Split(sHintText, ";") sHintText = vbNullString For Each sTemp In asTemp sHintText = sHintText + sTemp + ":" + sTemp + ";" Next sHintText = Left(sHintText, Len(sHintText)-1) End Select AddField sTable, "ExtraField" & iFieldIndex, .Fields("Name").Value, bUseQuotes, bListable SetFieldFlag sTable, "ExtraField" & iFieldIndex, F_TYPE, sDataType If iFieldSize > 0 Then SetFieldFlag sTable, "ExtraField" & iFieldIndex, F_SIZEW, iFieldSize End If If Len(sHintText) > 0 And (.Fields("DataType") <> "Value List" And .Fields("DataType") <> "Option List") Then SetFieldFlag sTable, "ExtraField" & iFieldIndex, F_HINTTEXT, sHintText ElseIf Len(sHintText) > 0 And (.Fields("DataType") = "Value List" Or .Fields("DataType") = "Option List") Then SetFieldFlag sTable, "ExtraField" & iFieldIndex, F_SOURCE, sHintText End If SetFieldFlag sTable, "ExtraField" & iFieldIndex, F_SEARCHABLE, bSearchable End If .MoveNext Wend End With Set rsUserFields = Nothing End Sub %>