<%@ LANGUAGE="VBScript" %>
<%
owner_x="ASSEMBLY"
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = "select owner,table_name,tablespace_name from sys.all_tables "
SQLStmt = SQLStmt & " where owner='" & Cstr(owner_x) & "' "
SQLStmt = SQLStmt & " order by Table_name "
' response.write(SQLStmt)
Set RS = Connection.Execute(SQLStmt)
%>
Copy Table SQL statements
Copy Tables owned by <%=Cstr(owner_x)%>
<%
Do While Not RS.EOF
response.write(" CREATE TABLE " & CStr(RS("owner")) & "." & CStr(RS("table_name")) & " TABLESPACE ASMBLY " & vbCrLf)
response.write(" AS (SELECT * FROM " & CStr(RS("owner")) & "." & CStr(RS("table_name")) & "@ORACLE.WORLD);" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("
" & vbCrLf)
RS.Movenext
Loop
%>
<% Connection.Close %>