<%
'==============================================================
' TableEditoR 0.81 Beta
' http://www.2enetworx.com/dev/projects/tableeditor.asp
'--------------------------------------------------------------
' File: te_admin.asp
' Description: Lists defined connections
' Initiated By Hakan Eskici on Nov 01, 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:
'--------------------------------------------------------------
' # Mar 26, 2001 by Hakan Eskici
' Added displaying table, view and procedure counts
' # April 18, 2002 by Rami Kattan
' Dynamic configurations, highlighting and more.
'==============================================================
%>
<%
sub GetDBDetails (sConnStr, ByRef sTableCount, ByRef sViewCount, ByRef sProcCount)
on error resume next
conn.Open sConnStr
Set adox = Server.CreateObject("ADOX.Catalog")
adox.ActiveConnection = conn
sTableCount = adox.tables.count
sViewCount = adox.views.count
if err <> 0 then sViewCount = "n/a"
sProcCount = adox.procedures.count
conn.close
end sub
%>
<%
if bProtected then
if session("teLastAccess") <> "" then
response.write ""
else
response.write ""
end if
response.write session("teFullName") & ""
response.write " (logout)"
end if
%>
Select a connection
<% if bAdmin then %>
<% if bJSEnable and bPopUps then %>
or
<% else ' if JS enabled %>
or Configure Table Editor
<% end if ' if JS enabled %>
<% end if ' if bAdmin %>
>
»
Connections
Database Name
<%
if bShowConnDetails = True then
%>
Tables
Views
Procs
<%
end if
%>
Type
Action
<%
for i = 1 to ubound(arrConn)
select case arrType(i)
case tedbAccess
sConnType = "Access"
case tedbSQLServer
sConnType = "SQL Server"
case tedbDsn
sConnType = "DSN"
case tedbConnStr
sConnType = "ConnStr"
end select
%>