91371bedbf2ff7ac2d162af4d65406d1d32c8af8
[infodrom/rico3] / examples / dotnet / RicoDbViewer.aspx
1 <%@ Page Language="VB" ResponseEncoding="iso-8859-1" Debug="true" %>\r
2 <%@ Import Namespace="System.Data" %>\r
3 <%@ Register TagPrefix="My" TagName="dbLib" Src="dbConnect.ascx" %>\r
4 <My:dbLib id='app' runat='server' />\r
5 \r
6 <script runat="server">\r
7 \r
8 Sub Page_Load(Sender As object, e As EventArgs)\r
9   Dim restrictions() As String = New String(3) {}\r
10   if app.OpenDB() then\r
11     restrictions(3)="BASE TABLE"\r
12     'restrictions(3)="TABLE"\r
13     TableList.DataSource = app.dbConnection.GetSchema ("Tables", restrictions)\r
14     TableList.DataBind()\r
15     restrictions(3)="VIEW"\r
16     ViewList.DataSource = app.dbConnection.GetSchema ("Tables", restrictions)\r
17     ViewList.DataBind()\r
18   end if\r
19 End Sub\r
20 \r
21 </script>\r
22 \r
23 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">\r
24 <html>\r
25 <head>\r
26 <title>Rico-Table List</title>\r
27 \r
28 <link href="../demo.css" type="text/css" rel="stylesheet" />\r
29 \r
30 <style type="text/css">\r
31 html, body {\r
32   height:97%;\r
33   margin: 0px;\r
34   padding: 0px;\r
35   border: none;\r
36 }\r
37 \r
38 #tablist {\r
39   height:100%;\r
40   width:25%;\r
41   overflow:auto;\r
42   float:left;\r
43   border: 1px solid #EEE;\r
44   font-size:smaller;\r
45 }\r
46 \r
47 #detail {\r
48   height:100%;\r
49   width:70%;\r
50   float:left;\r
51   border: 1px solid #EEE;\r
52 }\r
53 </style>\r
54 </head>\r
55 \r
56 <body>\r
57 \r
58 <div id='tablist'>\r
59 \r
60 <p><strong>Rico Raw Data Viewer</strong>\r
61 \r
62 <p><strong>TABLES</strong>\r
63 \r
64 <ul>\r
65 <asp:Repeater ID="TableList" Runat="server">\r
66 <ItemTemplate>\r
67 <li>\r
68 <asp:HyperLink runat="server" NavigateUrl='<%# "RicoDbViewerDetail.aspx?id=" & DataBinder.Eval(Container.DataItem, "TABLE_NAME") & "&" & request.servervariables("QUERY_STRING") %>' Text='<%#DataBinder.Eval(Container.DataItem, "TABLE_NAME")%>' Target="detail" />\r
69 </li>\r
70 </ItemTemplate>\r
71 </asp:Repeater>\r
72 </ul>\r
73 \r
74 <p><strong>VIEWS</strong>\r
75 \r
76 <ul>\r
77 <asp:Repeater ID="ViewList" Runat="server">\r
78 <ItemTemplate>\r
79 <li>\r
80 <asp:HyperLink runat="server" NavigateUrl='<%# "RicoDbViewerDetail.aspx?id=" & DataBinder.Eval(Container.DataItem, "TABLE_NAME") & "&" & request.servervariables("QUERY_STRING") %>' Text='<%#DataBinder.Eval(Container.DataItem, "TABLE_NAME")%>' Target="detail" />\r
81 </li>\r
82 </ItemTemplate>\r
83 </asp:Repeater>\r
84 </ul>\r
85 \r
86 </div>\r
87 \r
88 <iframe id='detail' name='detail'>\r
89 \r
90 </body>\r
91 </html>\r