<% '************************************* ' Version 5.00 Display all tables or ' only ones user can view ' May 9, 2003 ' Aug 16, 2003 Minor '*************************************** Dim UserTables Dim Tablecount Dim CurrentTable ShopCheckAdmin "" ShopOpendatabase con AdminPageHeader shopwriteheader getlang("LangSelect01") UserTables=GetSess("UserTables") if isNull (UserTables) then Usertables="" end if If UserTables="" then GetDatabaseTables UserTables, tablecount, con else SetupUserTables end if response.write "

" response.write tabledef for i = 0 to tablecount-1 response.write tablerow & tableColumn response.write "" & usertables(i) & "
" response.write tablecolumnend & tablerowend ' fixed aug 16 next response.write tabledefend If Getconfig("xbuttoncontinue")="" then Response.Write("
") else Response.Write("
") end if response.write "

" response.write "
" AdminPageTrailer ' Sub SetupUserTables UserTables=split(GetSess("UserTables"),",",-1,1) tablecount=ubound(UserTables) tablecount=tablecount+1 end sub %>