Rico Raw Data Viewer <% if OpenDB then DisplaysObjects "TABLE" DisplaysObjects "VIEW" end if CloseApp Sub DisplaysObjects(ObjType) Dim conn,rs,dbname,owner,table oDB.SplitTabName "X",dbname,owner,table set conn = oDB.Connection() Set rs = conn.OpenSchema (20, Array(dbname, owner, Empty, ObjType)) response.write vbLf & "

" & ObjType & "S" response.write vbLf & "

" while not rs.eof response.write vbLf & "
• " & rs("TABLE_NAME") & "" rs.movenext wend response.write vbLf & "

" rs.Close End Sub %>