<% shopcheckadmin "shopa_tableselectbulk.asp" '************************************* ' Version 6.50 Display all tables or ' only ones user can view ' May 9, 2003 ' Aug 16, 2003 Minor '*************************************** Dim UserTables Dim Tablecount Dim CurrentTable 'VP-ASP 6.00 - Allow tables from split databases to be selected dim affcon, custcon, ordercon, productcon, projectcon, searchcon ShopCheckAdmin "" ShopOpendatabase con 'VP-ASP 6.00 - Allow tables from split databases to be selected if getconfig("xaffiliatedb") > "" then OpenAffiliateDB affcon end if if getconfig("xcustomerdb") > "" then OpenCustomerDB custcon end if if getconfig("xorderdb") > "" then OpenOrderDB ordercon end if if getconfig("xproductdb") > "" then ShopOpenDatabaseP productcon end if if getconfig("xprojectdb") > "" then ShopOpenOtherDB projectcon, getconfig("xprojectDb") end if if getconfig("xsearchdb") > "" then ShopOpenOtherDB searchcon, getconfig("xSearchDb") end if AdminPageHeader GenerateDisplayHeader getlang("LangSelect01") GenerateDisplayBodyHeader ' response.write "" UserTables=GetSess("UserTables") if isNull (UserTables) then Usertables="" end if If UserTables="" then GetDatabaseTables UserTables, tablecount, con 'VP-ASP 6.00 - Allow tables from split databases to be selected if getconfig("xaffiliatedb") > "" then GetDatabaseTablesPlus UserTables, tablecount, affcon end if if getconfig("xcustomerdb") > "" then GetDatabaseTablesPlus UserTables, tablecount, custcon end if if getconfig("xorderdb") > "" then GetDatabaseTablesPlus UserTables, tablecount, ordercon end if if getconfig("xproductdb") > "" then GetDatabaseTablesPlus UserTables, tablecount, productcon end if if getconfig("xprojectdb") > "" then GetDatabaseTablesPlus UserTables, tablecount, projectcon end if if getconfig("xsearchdb") > "" then GetDatabaseTablesPlus UserTables, tablecount, searchcon end if else SetupUserTables end if response.write "" response.write "

" %> <% 'response.write tabledefend If Getconfig("xbuttoncontinue")="" then Response.Write("") else Response.Write("") end if response.write "

" response.write "" response.write "
" GenerateDisplayBodyFooter GenerateDisplayHeader "Bulk Update Utility Help" GenerateDisplayBodyHeader %>

Selecting a table

This powerful tool allows you to select a table from the database that you would like to modify.

On the next page you will be provided the option of which fields you would like to alter. You can select any fields from any table to perform a bulk update on.

<% shopclosedatabase con 'VP-ASP 6.00 - Allow tables from split databases to be selected if getconfig("xaffiliatedb") > "" then ShopCloseDatabase affcon end if if getconfig("xcustomerdb") > "" then ShopCloseDatabase custcon end if if getconfig("xorderdb") > "" then ShopCloseDatabase ordercon end if if getconfig("xproductdb") > "" then ShopCloseDatabase productcon end if if getconfig("xprojectdb") > "" then ShopCloseDatabase projectcon end if if getconfig("xsearchdb") > "" then ShopCloseDatabase searchcon end if GenerateDisplayBodyFooter AdminPageTrailer ' Sub SetupUserTables UserTables=split(GetSess("UserTables"),",",-1,1) tablecount=ubound(UserTables) tablecount=tablecount+1 end sub %>