<%@ LANGUAGE="VBScript" %>
<%
db_name=UCase(CStr(Request("db_name")))
If db_name="" Then
db_name="phdb"
End If
owner=UCase(CStr(Request("owner")))
If owner="" Then
owner="PHOFFLINE"
End If
table_name=UCase(CStr(Request("table_name")))
If table_name="" Then
table_name="CALIBRATIONS"
End If
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Select Case db_name
Case "PHDB"
Connection.Open phdb_rd
Case "CERN"
Connection.Open cern_rd
Case Else
Connection.Open phdb_rd
End Select
SQLStmtx = "select to_char(sysdate,'MM/DD/YYYY') ddate,to_char(sysdate,'HH24:MI:SS') ttime,global_name from global_name "
' response.write(SQLStmtx & " " )
Set RSx = Connection.Execute(SQLStmtx)
If Not RSx.EOF Then
select case CStr(RSx("global_name"))
case "PHDB.WORLD"
dbname="Main Phobos Database"
case "ORACLE.WORLD"
dbname="Phobos Server (old) Database"
case "KRPHOBOS.WORLD"
dbname="Krakow Database"
case "ROCHESTER.WORLD"
dbname="Rochester Database"
case else
dbname=CStr(RSx("global_name"))
end select
Else
dbname="Undefined Database"
End If
SQLStmt = " select t.table_name,t.column_name,t.data_type,t.data_length,t.data_precision,t.data_scale,v.view_name "
SQLStmt = SQLStmt & " from all_tab_columns t,all_views v "
SQLStmt = SQLStmt & " where t.owner='" & owner & "'"
SQLStmt = SQLStmt & " and t.owner=v.owner(+) "
SQLStmt = SQLStmt & " and t.table_name=v.view_name(+) "
SQLStmt = SQLStmt & " order by t.table_name,t.column_name "
' Response.write(SQLStmt & " ")
Set RS = Connection.Execute(SQLStmt)
%>
Complete list of tables
Complete List of Tables owned by <%=Cstr(owner)%>
Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>
<%
Counter=0
Table_Old="XXXXXXX"
Do While Not RS.EOF
If Table_Old <> RS("table_name") Then
If Table_Old <> "XXXXXXX" Then
Response.write("")
End If
Counter=Counter+1
Table_name=CStr(RS("table_name"))
Table_old=table_name
If IsNull(RS("view_name")) Then
Response.write("
<%
End If
If Not IsNull(RS("column_name")) Then
column_name=CStr(RS("column_name"))
Else
column_name="-"
End If
If Not IsNull(RS("data_type")) Then
data_type=CStr(RS("data_type"))
Else
data_type="-"
End If
If Not IsNull(RS("data_length")) Then
data_length=CStr(RS("data_length"))
Else
data_length="-"
End If
If Not IsNull(RS("data_precision")) Then
data_precision=CStr(RS("data_precision"))
Else
data_precision="-"
End If
If Not IsNull(RS("data_scale")) Then
data_scale=CStr(RS("data_scale"))
Else
data_scale="-"
End If
%>