<%
'1 Click DB copyright 1997-2002 David Kawliche, AccessHelp.net

'1 Click DB technology is protected by national and international
'laws and treaties.  Never use, distribute, or redistribute
'any software and/or source code in violation of its licensing.

'Use of this software and/or source code is strictly at your own risk.
'All warranties are specifically disclaimed except as required by law.

'IMPORTANT : THIS CODE USES PASS-THROUGH SECURITY !
'
'To enforce application security, set logins and permissions
'for all web server and database users as appropriate.

'For more information see : http://1ClickDB.com
        
'**Start Encode**
%>
<!--#INCLUDE FILE=ocdFreeInit.asp-->
<%
dim rsTemp, intCount, QS, ndOpenConn, ADOprp, srv, argSQLFrom
set ndOpenConn = server.CreateObject("ADODB.Connection")
ndOpenConn.mode = 1 'adModeRead
Call ndOpenConn.Open (ndnscSQLConnect, ndnscSQLUser, ndnscSQLPass)
Call writeheader("")
Select case UCASE(request.querystring("show"))
	Case "TABLES",""
		Response.Write ("<SPAN CLASS=Information>Tables</SPAN><P>")
	Case "VIEWS"
		Response.Write ("<SPAN CLASS=Information>Views</SPAN><P>")
	Case "PROCS"
		Response.Write ("<SPAN CLASS=Information>Procedures</SPAN><P>")
	Case "SYS"
		Response.Write ("<SPAN CLASS=Information>System Tables</SPAN><P>")
End Select
Set rsTemp = Server.CreateObject("ADODB.Recordset")
Select case UCASE(request.querystring("show"))
	Case "TABLES", "VIEWS","SYS", ""
		if ocdDatabaseType = "Oracle" and  UCase(ndOpenConn.Properties("DBMS NAME")) <> "MYSQL" Then
			set rsTemp = ndOpenConn.execute ("SELECT OBJECT_TYPE AS TABLE_TYPE, OBJECT_NAME AS TABLE_NAME, OWNER AS TABLE_SCHEMA FROM ALL_OBJECTS WHERE (OBJECT_TYPE = 'TABLE' OR OBJECT_TYPE = 'VIEW') AND NOT OWNER = 'SYS' AND NOT OWNER = 'WKSYS' AND NOT OWNER = 'MDSYS' AND NOT OWNER = 'OLAPSYS' AND NOT OWNER ='CTXSYS' AND NOT OWNER='SYSTEM'")
		Else
			set rsTemp = ndOpenConn.OpenSchema(20) 'adSchemaTables
		End if
		If Not rsTemp.EOF Then 
			rsTemp.MoveFirst
		End if
		intCount = 0
		Response.write ("<TABLE CLASS=Grid>")
		Response.write ("<TR CLASS=GridHeader><TH>&nbsp;</TH><TH ALIGN=LEFT >Object&nbsp;Name</th><TH >Created</th></tr>")
		Do While Not rsTemp.EOF
			if ocdDatabaseType = "SQLServer" or ocdDatabaseType="Oracle" then
				argSQLFrom = ocdQuotePrefix & rsTemp.FIelds("TABLE_SCHEMA") & ocdQuoteSuffix & "." & ocdQuotePrefix & rsTemp.Fields("TABLE_NAME").Value & ocdQuoteSuffix
			Else
				argSQLFrom = ocdQuotePrefix & rsTemp.Fields("TABLE_NAME").Value & ocdQuoteSuffix
			End if		
			If (rsTemp.Fields("TABLE_TYPE").Value = "TABLE" AND UCASE(LEFT(rsTemp.Fields("TABLE_NAME").Value,4)) <> "MSYS" AND ( UCASE(request.querystring("show")) ="TABLES" or UCASE(request.querystring("show")) = "")) or (rsTemp.Fields("TABLE_TYPE") = "VIEW" AND UCASE(request.querystring("show")) = "VIEWS") or (UCASE(request.querystring("show"))="SYS" and (rsTemp.Fields("TABLE_TYPE").Value = "SYSTEM TABLE" or UCASE(LEFT(rsTemp.Fields("TABLE_NAME").Value,4)) = "MSYS")) Then
				Response.write ("<TR")
				if intCount mod 2 = 0 Then
					Response.write (" CLASS=GridOdd ")
				Else
					Response.write (" CLASS=GridEven ")
				End if
				Response.write (">")
				Response.write ("<TD  ALIGN=LEFT  NOWRAP>")
				Response.write ("<A HREF=""freebrowse.asp?sqlfrom_A=")
				Response.write (Server.URLEncode( argSQLFrom)) 
				if ocdQSForNoCookie <> "" Then
					Response.write "&amp;" & ocdQSForNoCookie
				End if
				Response.write ("""> ")
				Response.write ("<IMG  BORDER=0 SRC=AppTable.gif ALT=""Browse Data""></a>")
				Response.write (" <A HREF=""freebrowse.asp?ocdGridMode_A=Search&amp;sqlfrom_A=" & Server.URLEncode(argSQLFrom))
				Response.write ("""><IMG SRC=AppSearch.gif ALT=Search BORDER=0></A> ")
				Response.write ("</TD>")
				Response.write ("<TD nowrap WIDTH=""100%"" >")
				Response.write ("<A HREF=""freebrowse.asp?sqlfrom_A=")
				Response.write (Server.URLEncode( argSQLFrom)) 
				Response.write (""">")
				Response.write ("<SPAN CLASS=FieldName>")
				Response.write (Server.HTMLEncode(argSQLFrom))
				Response.write ("</SPAN></A>")
				Response.write ("</TD>")
				Response.write ("<TD VALIGN=TOP Nowrap>")
				if not ocdDatabaseType = "Oracle" Then
					Response.write (rsTemp.Fields("DATE_CREATED").Value)
					if err <> 0 then ' This is not always available
						err.clear
						Response.write ("&nbsp;")
					End if
				End if
				Response.write ("</td>")
				Response.write ("</TR>")
				intCount = intCount + 1
			End If
			rsTemp.MoveNext
		Loop
		Response.write ("</TABLE>")
		Response.flush
end select
call writefooter("")
%>