<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "309, 310, 311, 312, 313, 314, 315, 316, 317, 319, 320, 690, 691, 692, 693, 896, 897, 898, 899, 932, 939, 940, 974, 991, 1006, 1038, 1073, 1074, 1081, 1082, 1114, 1115, 1140, 1178, 1238, 1255" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== If request.cookies(Application(LICENSENUMBER & "cookiename") & " security")("xmlshown") = "" then response.cookies(Application(LICENSENUMBER & "cookiename") & " security")("xmlshown") = "yes" blnShowNews = true else blnShowNews = false end if %>

<% WriteString("PageTitle_BackEnd") %> <% WriteString("ContentText_Search") %> "> <% WriteString("ContentText_EnterProdCodeOrKeyword") %> <% WriteString("ContentText_CurrentDBStats") %> <% '----------------------------------------------- 'COUNT CATEGORIES AND SUB CATS '----------------------------------------------- strQuery = "SELECT COUNT(PT_ID) AS Categories FROM tblCactuShopProdtype" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) response.write(objRecordSet("Categories") & " ") objRecordSet.close WriteString("ContentText_Categories") %> <% '----------------------------------------------- 'COUNT PRODUCTS '----------------------------------------------- strQuery = "SELECT COUNT(P_ID) AS Products FROM tblCactuShopProducts" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) response.write(objRecordSet("Products") & " ") objRecordSet.close WriteString("ContentText_Products") %> <% '----------------------------------------------- 'COUNT VERSIONS '----------------------------------------------- strQuery = "SELECT COUNT(V_ID) AS Versions FROM tblCactuShopVersions" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) response.write(objRecordSet("Versions") & " ") objRecordSet.close WriteString("ContentText_Versions") %> <% '------------------------------------ 'SECURITY CHECKS 'These check to ensure you have 'changed default configuration. If 'you don't, an attacker could easily 'gain entry to your system. '------------------------------------ If strThisUserLOGIN_Protected = "y" Then bolSecurityErrors = False 'Check default database If strDatabaseType = "access" AND strPathToDatabase = "database/cactushop5.mdb" then bolSecurityErrors = True strSecurityErrors = strSecurityErrors & " " & GetString("Security_DatabasePath") & " " & vbcrlf End if 'Check default login settings theQuery = "SELECT LOGIN_Username FROM tblCactuShopLogins WHERE LOGIN_Username = 'cactushop' AND LOGIN_Password = 'cactushop'" ExecuteSQL theQuery, numCursorType, objRecordSet If Not (objRecordSet.BOF And objRecordSet.EOF) Then bolSecurityErrors = True strSecurityErrors = strSecurityErrors & " " & GetString("Security_Password") & " " & vbcrlf End if objRecordSet.Close 'Check license number If LICENSENUMBER = "DEFAULT" then bolSecurityErrors = True strSecurityErrors = strSecurityErrors & " " & GetString("Security_LicenseNumber") & " " & vbcrlf End if If bolSecurityErrors = True Then %> <% WriteString("PageTitle_SecurityProblems") %> <% WriteString("Security_Explanation") %> <% =strSecurityErrors %> Security Info (English) <% End if End if %> <% If strThisUserLOGIN_Config = "y" Then '----------------------------------------------- 'DISPLAY SHOP STATUS AND LINK 'This tells the owner whether the shop is 'currently locked or unlocked and lets them open 'or close it. '----------------------------------------------- If Application(LICENSENUMBER & "shopstatus")="hardlocked" Then %> <% ElseIf Application(LICENSENUMBER & "shopstatus")="locked" Then %> <% Else %> <% End If End If %> <% WriteString("ContentText_TheShopIsHardClosed") %> <% WriteString("ContentText_OpenTheShop") %> <% WriteString("ContentText_CloseTheShop") %> <% WriteString("ContentText_TheShopIsClosed") %> <% WriteString("ContentText_OpenTheShop") %> <% WriteString("ContentText_HardCloseTheShop") %> <% WriteString("ContentText_TheShopIsOpen") %> <% WriteString("ContentText_CloseTheShop") %> <% WriteString("ContentText_HardCloseTheShop") %> <% WriteString("ContentText_BackupAccessDBFile") %> <% If strThisUserLOGIN_Orders <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Orders <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Orders <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Orders <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_Affiliates") %> <% WriteString("BackMenu_HitsReport") %> <% WriteString("BackMenu_HitsReport") %> <% WriteString("BackMenu_SalesReport") %> <% WriteString("BackMenu_SalesReport") %> <% WriteString("BackMenu_ListFindPay") %> <% WriteString("BackMenu_ListFindPay") %> <% WriteString("BackMenu_New") %> <% WriteString("BackMenu_New") %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_MailingList") %> <% WriteString("BackMenu_SendMail") %> <% WriteString("BackMenu_SendMail") %> <% WriteString("BackMenu_Clipboard") %> <% WriteString("BackMenu_Clipboard") %> <% WriteString("BackMenu_ListFind") %> <% WriteString("BackMenu_ListFind") %> <% WriteString("BackMenu_New") %> <% WriteString("BackMenu_New") %> <% WriteString("BackMenu_PurgeUnauthorized") %> <% WriteString("BackMenu_PurgeUnauthorized") %> <% If strThisUserLOGIN_Orders <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Orders <> "y" then %> <% else %> <% end if %> <% WriteString("PageTitle_Coupons") %> <% WriteString("BackMenu_ListFind") %> <% WriteString("BackMenu_ListFind") %> <% WriteString("BackMenu_New") %> <% WriteString("BackMenu_New") %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_Configuration") %> <% WriteString("BackMenu_Config") %> <% WriteString("BackMenu_Config") %> <% WriteString("BackMenu_ExecuteQuery") %> <% WriteString("BackMenu_ExecuteQuery") %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_RegionalSetup") %> <% WriteString("BackMenu_Currencies") %> <% WriteString("BackMenu_Currencies") %> <% WriteString("BackMenu_TaxRates") %> <% WriteString("BackMenu_TaxRates") %> <% WriteString("BackMenu_ShippingDestinations") %> <% WriteString("BackMenu_ShippingDestinations") %> <% WriteString("BackMenu_ShippingRates") %> <% WriteString("BackMenu_ShippingRates") %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_Languages") %> <% WriteString("BackMenu_LangEmailSetup") %> <% WriteString("BackMenu_LangEmailSetup") %> <% WriteString("BackMenu_LanguageStrings") %> <% WriteString("BackMenu_LanguageStrings") %> <% WriteString("BackMenu_Statistics") %> <% WriteString("BackMenu_ProductPageHits") %> <% WriteString("BackMenu_VersionSales") %> <% If strThisUserLOGIN_Orders <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_Export") %> <% WriteString("BackMenu_ExportOrders") %> <% WriteString("BackMenu_ExportOrders") %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> Logins<% 'WriteString("BackMenu_Customers") %> <% WriteString("BackMenu_ListFind") %> <% WriteString("BackMenu_ListFind") %> <% WriteString("BackMenu_New") %> <% WriteString("BackMenu_New") %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_DataIntegrity") %> <% WriteString("BackMenu_Catalogue") %> <% WriteString("BackMenu_VersionDownloads") %> <% WriteString("BackMenu_LanguageStrings") %> <% WriteString("BackMenu_Catalogue") %> <% WriteString("BackMenu_VersionDownloads") %> <% WriteString("BackMenu_LanguageStrings") %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% If strThisUserLOGIN_Config <> "y" then %> <% else %> <% end if %> <% WriteString("BackMenu_Miscellaneous") %> <% WriteString("BackMenu_GatewayPages") %> <% WriteString("BackMenu_GatewayPages") %> <% WriteString("BackMenu_News") %> <% WriteString("BackMenu_News") %> <% WriteString("BackMenu_MarkupPrices") %> <% WriteString("BackMenu_MarkupPrices") %>