<%sDBExtraPath = "../"%> <% ' globals.asp ' ' This script allows administrator to customize global settings. ' ' Carlos A. Madrigal ' Infolink Production Center - Mexico ' 07/12/2002 '' Globals Dim sCmd Dim sErrors, sMessages '' Initialize script, see what it needs to do sCmd = Request("cmd") sMessages = Request("msg") '' Interpret command Select Case sCmd Case "check" Dim sEmail, mail, sTestMsg sEmail = Request("email") ' Compose test message sTestMsg = "" _ + langMgr.GetContent("SETTINGS_MESSAGE_MAIL", "BackEndMessages", iInterfaceLang) + vbCrLf + vbCrLf _ + langMgr.GetContent("SETTINGS_MESSAGE_MAIL2", "BackEndMessages", iInterfaceLang) _ + langMgr.GetContent("SETTINGS_MESSAGE_MAIL3", "BackEndMessages", iInterfaceLang) + vbCrLf + vbCrLf _ + langMgr.GetContent("SETTINGS_MESSAGE_MAIL4", "BackEndMessages", iInterfaceLang) & sEmail & vbCrLf + vbCrLf _ + langMgr.GetContent("SETTINGS_MESSAGE_MAIL5", "BackEndMessages", iInterfaceLang) + vbCrLf _ + gsSiteDomain ' Send message Set mail = Server.CreateObject("CDONTS.NewMail") With mail .To = sEmail .From = sEmail .Subject = gsSiteName & langMgr.GetContent("SETTINGS_SUBJECT_EMAIL", "BackEndMessages", iInterfaceLang) .Body = sTestMsg .Send End with Response.Write langMgr.GetContentWithParams("SETTINGS_RECEIVE_MESSAGE", Array("email"), Array(sEmail), "BackEndMessages", iInterfaceLang) Response.End Case "save" Dim sBuffer gsSiteName = Request("sitename") gsSiteDomain = Request("domain") gsOwnerEMail = Request("owner") gsContactUsEMail = Request("contactus") gsPageTitle = Request("pagetitle") gsPageKeywords = Request("pagekeywords") gsPageDescription = Request("pagedescription") gsFontFace = Request("fontface") gsFontSize = Request("fontsize") gsTitleFace = Request("tfontface") gsTitleSize = Request("tfontsize") gsTableColor1 = Request("tablecolor1") gsTableColor2 = Request("tablecolor2") gsHLColor = Request("hlcolor") gcLinksPerPage = Request("linksperpage") gcNewsPerPage = Request("newsperpage") gcQuestionsPerPage = Request("questionsperpage") gcProductsPerPage = Request("productsperpage") gcCatalogLayout = Request("catalogLayout") gcFaqLayout = Request("faqLayout") gcOurPeopleLayout = Request("ourPeopleLayout") gcProductsPerRow = Request("productsperrow") giImageColumnWidth = Request("imgcolwidth") giMissingThumbnailWidth = Request("thumbwidth") gcCode=Request("code") gcShortDescription =Request("shortdescription") gcListPrice=Request("listprice") gcPrice = Request("price") gcTHUMBNAILFILE=Request("ThumbnailFile") gcFaqSearch= IIf(Len(Request("faqSearch"))> 0, Request("faqSearch"), "off") gcProdSearch=IIf(Len(Request("prodSearch"))> 0, Request("prodSearch"), "off") conDB.Execute("UPDATE Settings SET Message='" & gsSiteName & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_SITENAME'") conDB.Execute("UPDATE Settings SET Message='" & gsSiteDomain & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_SITEDOMAIN'") conDB.Execute("UPDATE Settings SET Message='" & gsOwnerEMail & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_OWNER_EMAIL'") conDB.Execute("UPDATE Settings SET Message='" & gsContactUsEMail & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_CONTACTUS_EMAIL'") conDB.Execute("UPDATE Settings SET Message='" & gsPageTitle & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PAGE_TITLE'") conDB.Execute("UPDATE Settings SET Message='" & gsPageKeywords & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PAGE_KEYWORDS'") conDB.Execute("UPDATE Settings SET Message='" & gsPageDescription & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PAGE_DESCRIPTION'") conDB.Execute("UPDATE Settings SET Message='" & gsFontFace & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FONT_FACE'") conDB.Execute("UPDATE Settings SET Message='" & gsFontSize & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FONT_SIZE'") conDB.Execute("UPDATE Settings SET Message='" & gsTitleFace & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TITLE_FACE'") conDB.Execute("UPDATE Settings SET Message='" & gsTitleSize & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TITLE_SIZE'") conDB.Execute("UPDATE Settings SET Message='" & gsTableColor1 & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TABLE_COLOR1'") conDB.Execute("UPDATE Settings SET Message='" & gsTableColor2 & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TABLE_COLOR2'") conDB.Execute("UPDATE Settings SET Message='" & gsHLColor & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_HIGHLIGHT_COLOR'") conDB.Execute("UPDATE Settings SET Message='" & gcLinksPerPage & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_LINKS_PERPAGE'") conDB.Execute("UPDATE Settings SET Message='" & gcNewsPerPage & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_NEWS_PERPAGE'") conDB.Execute("UPDATE Settings SET Message='" & gcQuestionsPerPage & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_QUESTIONS_PERPAGE'") conDB.Execute("UPDATE Settings SET Message='" & gcProductsPerPage & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PRODUCTS_PERPAGE'") conDB.Execute("UPDATE Settings SET Message='" & gcCatalogLayout & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_CATALOG_LAYOUT'") conDB.Execute("UPDATE Settings SET Message='" & gcFaqLayout & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FAQ_LAYOUT'") conDB.Execute("UPDATE Settings SET Message='" & gcOurPeopleLayout & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_OURPEOPLE_LAYOUT'") conDB.Execute("UPDATE Settings SET Message='" & gcFaqSearch & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FAQ_SEARCH'") conDB.Execute("UPDATE Settings SET Message='" & gcProdSearch & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PROD_SEARCH'") conDB.Execute("UPDATE Settings SET Message='" & gcProductsPerRow & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PRODUCTS_PERROW'") conDB.Execute("UPDATE Settings SET Message='" & giImageColumnWidth & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_IMAGE_COLUMN_WIDTH'") conDB.Execute("UPDATE Settings SET Message='" & giMissingThumbnailWidth & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_MISSING_THUMB_WIDTH'") conDB.Execute("UPDATE Settings SET Message='" & gcCode & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_CODE'") conDB.Execute("UPDATE Settings SET Message='" & gcShortDescription & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_SHORTDESC'") conDB.Execute("UPDATE Settings SET Message='" & gcListPrice & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_LISTPRICE'") conDB.Execute("UPDATE Settings SET Message='" & gcPrice & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_PRICE'") conDB.Execute("UPDATE Settings SET Message='" & gcTHUMBNAILFILE & "' WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_THUMB'") Response.Redirect "settings.asp?msg=" + Server.URLEncode(langMgr.GetContent("SETTINGS_CHANGES_SAVED", "BackEndMessages", iInterfaceLang)) Case Else gsSiteName = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_SITENAME'")(0) gsSiteDomain = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_SITEDOMAIN'")(0) gsOwnerEMail = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_OWNER_EMAIL'")(0) gsContactUsEMail = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_CONTACTUS_EMAIL'")(0) gsPageTitle = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PAGE_TITLE'")(0) gsPageKeywords = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PAGE_KEYWORDS'")(0) gsPageDescription = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PAGE_DESCRIPTION'")(0) gsFontFace = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FONT_FACE'")(0) gsFontSize = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FONT_SIZE'")(0) gsTitleFace = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TITLE_FACE'")(0) gsTitleSize = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TITLE_SIZE'")(0) gsTableColor1 = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TABLE_COLOR1'")(0) gsTableColor2 = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_TABLE_COLOR2'")(0) gsHLColor =conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_HIGHLIGHT_COLOR'")(0) gcLinksPerPage = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_LINKS_PERPAGE'")(0) gcNewsPerPage = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_NEWS_PERPAGE'")(0) gcQuestionsPerPage = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_QUESTIONS_PERPAGE'")(0) gcProductsPerPage = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PRODUCTS_PERPAGE'")(0) gcCatalogLayout = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_CATALOG_LAYOUT'")(0) gcFaqLayout = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FAQ_LAYOUT'")(0) gcOurPeopleLayout = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_OURPEOPLE_LAYOUT'")(0) gcFaqSearch = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_FAQ_SEARCH'")(0) gcProdSearch = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PROD_SEARCH'")(0) gcProductsPerRow = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_PRODUCTS_PERROW'")(0) giImageColumnWidth = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_IMAGE_COLUMN_WIDTH'")(0) giMissingThumbnailWidth = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_VALUE_MISSING_THUMB_WIDTH'")(0) gcCode=conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_CODE'")(0) gcShortDescription =conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_SHORTDESC'")(0) gcListPrice=conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_LISTPRICE'")(0) gcPrice = conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_PRICE'")(0) gcTHUMBNAILFILE=conDB.Execute("SELECT Message FROM Settings WHERE LangID=" & iContentLang & " AND MessageID='SETT_PRODUCT_LIST_DISPLAY_THUMB'")(0) ' Set defaults If Len(giImageColumnWidth) = 0 Then giImageColumnWidth = 120 If Len(giMissingThumbnailWidth) = 0 Then giMissingThumbnailWidth = 80 End Select %> <%If Len(sErrors) > 0 Then%>

<%=sErrors%>

<%ElseIf Len(sMessages) > 0 Then%>

><%=sMessages%>

<%End If%>

<%=langMgr.GetContent("SETTINGS_INTRODUCTORY_TEXT", "BackEndMessages", iInterfaceLang)%>

>> >>> >>> >>>> >>
><%=langMgr.GetContent("SETTINGS_GENERAL", "BackEndMessages", iInterfaceLang)%>
>

<%=langMgr.GetContent("SETTINGS_INSTRUCTIONS", "BackEndMessages", iInterfaceLang)%>

<%=langMgr.GetContent("SETTINGS_TIP", "BackEndMessages", iInterfaceLang)%>


><%=langMgr.GetContent("SETTINGS_SITE_NAME", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_SITE_DOMAIN", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_OWNER_EMAIL", "BackEndMessages", iInterfaceLang)%> <%If Len(gsOwnerEmail) > 0 Then%> " style="text-decoration:none;" href="javascript:checkEmailAddress(document.config.owner.value)">><%=langMgr.GetContent("SETTINGS_CHECK", "BackEndMessages", iInterfaceLang)%> <%End If%>
><%=langMgr.GetContent("SETTINGS_CONTACT_US", "BackEndMessages", iInterfaceLang)%>: <%If Len(gsContactUsEmail) > 0 Then%> " style="text-decoration:none;" href="javascript:checkEmailAddress(document.config.contactus.value)">><%=langMgr.GetContent("SETTINGS_CHECK", "BackEndMessages", iInterfaceLang)%> <%End If%>
><%=langMgr.GetContent("SETTINGS_META_DATA", "BackEndMessages", iInterfaceLang)%>
>

<%=langMgr.GetContent("SETTINGS_META_DATA_TEXT", "BackEndMessages", iInterfaceLang)%>


><%=langMgr.GetContent("SETTINGS_PAGE_TITLE", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_KEYWORDS", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTIINGS_DESCRIPTION", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_LOOK_AND_FEEL", "BackEndMessages", iInterfaceLang)%>
>

<%=langMgr.GetContent("SETTINGS_LOOK_AND_FEEL_TEXT", "BackEndMessages", iInterfaceLang)%>


><%=langMgr.GetContent("SETTINGS_FONT_FACE", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_FONT_SIZE", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_TITLE_FONT_FACE", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_TITLE_FONT_SIZE", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_TABLE_COLOR1", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_TABLE_COLOR2", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_LINKS_PER_PAGE", "BackEndMessages", iInterfaceLang)%>:
>Highlight Color
(e.g. "yellow" or "#777fab"):
><%=langMgr.GetContent("SETTINGS_NEWS_PER_PAGE", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_QUESTIONS_PER_PAGE", "BackEndMessages", iInterfaceLang)%>:
><%=langMgr.GetContent("SETTINGS_OURPEOPLE_LAYOUT", "BackEndMessages", iInterfaceLang)%>: > <%=langMgr.GetContent("SETTINGS_OURPEOPLE_LAYOUT_1", "BackEndMessages", iInterfaceLang)%>
> <%=langMgr.GetContent("SETTINGS_OURPEOPLE_LAYOUT_2", "BackEndMessages", iInterfaceLang)%>
><%=langMgr.GetContent("SETTINGS_FAQ_LAYOUT_TITLE", "BackEndMessages", iInterfaceLang)%>
>

<%=langMgr.GetContent("SETTINGS_FAQ_TEXT", "BackEndMessages", iInterfaceLang)%>


><%=langMgr.GetContent("SETTINGS_FAQ_SEARCH_DISPLAY", "BackEndMessages", iInterfaceLang)%>: >
><%=langMgr.GetContent("SETTINGS_FAQ_LAYOUT", "BackEndMessages", iInterfaceLang)%>: > <%=langMgr.GetContent("SETTINGS_FAQ_LAYOUT_1", "BackEndMessages", iInterfaceLang)%>
> <%=langMgr.GetContent("SETTINGS_FAQ_LAYOUT_2", "BackEndMessages", iInterfaceLang)%>
> <%=langMgr.GetContent("SETTINGS_FAQ_LAYOUT_3", "BackEndMessages", iInterfaceLang)%>
>

<%'=langMgr.GetContent("SETTINGS_PRODUCT_CATALOG_TEXT", "BackEndMessages", iInterfaceLang)%>


><%'=langMgr.GetContent("SETTINGS_PROD_SEARCH_DISPLAY", "BackEndMessages", iInterfaceLang)%> >
><%'=langMgr.GetContent("SETTINGS_PRODUCTS_PER_PAGE", "BackEndMessages", iInterfaceLang)%>
><%'=langMgr.GetContent("SETTINGS_PRODUCTS_PER_ROW", "BackEndMessages", iInterfaceLang)%>
><%'=langMgr.GetContent("SETTINGS_IMAGE_COLUMN_WIDTH", "BackEndMessages", iInterfaceLang)%>
><%'=langMgr.GetContent("SETTINGS_MISSING_THUMBNAIL", "BackEndMessages", iInterfaceLang)%>
><%'=langMgr.GetContent("SETTINGS_CATALOG_ITEMS", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_TOP", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_RIGHT", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_BOTTOM", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_LEFT", "BackEndMessages", iInterfaceLang)%>
><%'=langMgr.GetContent("SETTINGS_CATALOG_COLUMNS_DISPLAY", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_COLUMN_DISPLAY_CODE", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_COLUMN_DISPLAY_SHORTDESC", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_COLUMN_DISPLAY_LISTPRICE", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_COLUMN_DISPLAY_PRICE", "BackEndMessages", iInterfaceLang)%> > <%'=langMgr.GetContent("SETTINGS_COLUMN_DISPLAY_THUMBNAILFILE", "BackEndMessages", iInterfaceLang)%>
" id=submit1 name=submit1> " id=reset1 name=reset1>