<%
shopcheckadmin ""
'*************************************
' 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
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
%>
<% GenerateDisplayBodyFooter
GenerateDisplayHeader "Edit Table Utility Help"
GenerateDisplayBodyHeader%>
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 with a list of all of the records in the table that you have selected and you are able to add records, edit records and delete records.
<%
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 %>