1 <%@ LANGUAGE="VBSCRIPT" %>
\r
2 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
\r
5 <title>Rico-Table List</title>
\r
7 <link href="../demo.css" type="text/css" rel="stylesheet" />
\r
9 <!-- #INCLUDE FILE = "dbConnect.asp" -->
\r
11 <style type="text/css">
\r
24 border: 1px solid #EEE;
\r
32 border: 1px solid #EEE;
\r
40 <p><strong>Rico Raw Data Viewer</strong>
\r
43 DisplaysObjects "TABLE"
\r
44 DisplaysObjects "VIEW"
\r
49 Sub DisplaysObjects(ObjType)
\r
50 Dim conn,rs,dbname,owner,table
\r
52 oDB.SplitTabName "X",dbname,owner,table
\r
53 set conn = oDB.Connection()
\r
54 Set rs = conn.OpenSchema (20, Array(dbname, owner, Empty, ObjType))
\r
55 response.write vbLf & "<p><strong>" & ObjType & "S</strong>"
\r
56 response.write vbLf & "<ul>"
\r
58 response.write vbLf & "<li><a href='RicoDbViewerDetail.asp?id=" & server.urlencode(rs("TABLE_NAME")) & "&" & Request.QueryString & "' target='detail'>" & rs("TABLE_NAME") & "</a>"
\r
61 response.write vbLf & "</ul>"
\r
67 <iframe id='detail' name='detail'>
\r