<% '============================================================== ' TableEditoR 0.81 Beta ' http://www.2enetworx.com/dev/projects/tableeditor.asp '-------------------------------------------------------------- ' File: te_header.asp ' Description: Display the header on all pages ' Initiated By Hakan Eskici on Nov 17, 2000 '-------------------------------------------------------------- ' Copyright (c) 2002, 2eNetWorX/dev. ' ' TableEditoR is distributed with General Public License. ' Any derivatives of this software must remain OpenSource and ' must be distributed at no charge. ' (See license.txt for additional information) ' ' See Credits.txt for the list of contributors. ' ' Change Log: '-------------------------------------------------------------- ' # May 20, 2002 by Rami Kattan ' Display in the title of the browser a description of the current page ' Adds for some pages to the body the "onload" call. '============================================================== if bOnPageLoad then if bIEAdvancedMode then ExtraLoadString = " onload=""check_paging();""" if bOnPageLoadPage = "index" then ExtraLoadString = " onload=""enableJS();""" end if sScript = lcase(Request.ServerVariables("SCRIPT_NAME")) title_sep = " »" 'change this according to what seperator you want to use if instr(sScript, "te_admin_options") then strAdditionalTitle = strAdditionalTitle & title_sep & " Table Editor Administration" elseif instr(sScript, "te_admin") then strAdditionalTitle = strAdditionalTitle & title_sep & " Home" elseif instr(sScript, "te_adddb") then strAdditionalTitle = strAdditionalTitle & title_sep & " Add Database" elseif instr(sScript, "te_compactall") then Select Case request("onlybackup") case "1" strAdditionalTitle = strAdditionalTitle & title_sep & " Backup All" case else strAdditionalTitle = strAdditionalTitle & title_sep & " Compact All" end select elseif instr(sScript, "te_compactdb") then Select Case request("onlybackup") case "true" strAdditionalTitle = strAdditionalTitle & title_sep & " Backup Database" case else strAdditionalTitle = strAdditionalTitle & title_sep & " Compact Database" end select elseif instr(sScript, "te_config_help") then strAdditionalTitle = strAdditionalTitle & title_sep & " Config Help" elseif instr(sScript, "te_deleterecord") then strAdditionalTitle = strAdditionalTitle & title_sep & " Delete Record" elseif instr(sScript, "te_dynamic_config") then strAdditionalTitle = strAdditionalTitle & title_sep & " Configuraton" elseif instr(sScript, "te_execproc") then strAdditionalTitle = strAdditionalTitle & title_sep & " Stored Procedure Manager " & title_sep & " Execute" elseif instr(sScript, "te_fieldedit") then Select Case len(request("fldname")) case 0 strAdditionalTitle = strAdditionalTitle & title_sep & " Add Field" case else strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Field" end select elseif instr(sScript, "te_fieldremove") then strAdditionalTitle = strAdditionalTitle & title_sep & " Remove Field" elseif instr(sScript, "te_help") then strAdditionalTitle = strAdditionalTitle & title_sep & " Release Notes" elseif instr(sScript, "te_indexremove") then strAdditionalTitle = strAdditionalTitle & title_sep & " Remove Index" elseif instr(sScript, "te_listtables") then strAdditionalTitle = strAdditionalTitle & title_sep & " " & arrDesc(request("cid")) elseif instr(sScript, "te_multidelete") then strAdditionalTitle = strAdditionalTitle & title_sep & " Multi Delete" elseif instr(sScript, "te_procmanager") then Select Case Request("action") case "new" strAdditionalTitle = strAdditionalTitle & title_sep & " Stored Procedure Manager " & title_sep & " New" case "remove" strAdditionalTitle = strAdditionalTitle & title_sep & " Stored Procedure Manager " & title_sep & " Remove" case else strAdditionalTitle = strAdditionalTitle & title_sep & " Stored Procedure Manager" end select elseif instr(sScript, "te_procedit") then select case request("add") case 1 strAdditionalTitle = strAdditionalTitle & title_sep & " Stored Procedure Manager " & title_sep & " Add" case else strAdditionalTitle = strAdditionalTitle & title_sep & " Stored Procedure Manager " & title_sep & " Edit" end select elseif instr(sScript, "te_runquery") then strAdditionalTitle = strAdditionalTitle & title_sep & " Run Query" elseif instr(sScript, "te_queryedit") then Select Case Request("add") case "1" strAdditionalTitle = strAdditionalTitle & title_sep & " Add Query" case else strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Query" end select elseif instr(sScript, "te_queryinfo") then strAdditionalTitle = strAdditionalTitle & title_sep & " Query Information" elseif instr(sScript, "te_query") then strAdditionalTitle = strAdditionalTitle & title_sep & " Run Query" elseif instr(sScript, "te_searchtable") then strAdditionalTitle = strAdditionalTitle & title_sep & " Search Table" elseif instr(sScript, "te_showrecord") then Select Case request.querystring("add") case "1" strAdditionalTitle = strAdditionalTitle & title_sep & " Add Record" case else strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Record" end Select elseif instr(sScript, "te_showschema") then strAdditionalTitle = strAdditionalTitle & title_sep & " Schema List" elseif instr(sScript, "te_showtable") then strAdditionalTitle = strAdditionalTitle & title_sep & " " & arrDesc(request("cid")) & title_sep & " " & request("tablename") elseif instr(sScript, "te_tablecreate") then strAdditionalTitle = strAdditionalTitle & title_sep & " Create Table" elseif instr(sScript, "te_tableedit") then strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Table [" & request("tablename") & "]" elseif instr(sScript, "te_tableremove") then strAdditionalTitle = strAdditionalTitle & title_sep & " Remove Table [" & request("tablename") & "]" elseif instr(sScript, "te_view_active_users") then strAdditionalTitle = strAdditionalTitle & title_sep & " View Active Users" end if %> >

Table Editor 0.81 Beta

Report a Bug | Recommend a feature | Ask a question | Submit a site <% if bAdmin then %> | Administration<% end if %>

---