Set conn = ഀ
Server.CreateObject("ADODB.CONNECTION") ഀ
conn.Open strCnn
set Session("tbsRS") = ഀ
conn.openschema(20) selectIndex = ഀ
-1 else dbms = ഀ
Request.QueryString("dbms") selectIndex = ഀ
CInt( Request.Form("Listtable") ) tbName = ഀ
Request.QueryString("tbName") end if
set RS = ഀ
Session("tbsRS") RS.MoveFirst %> <font size="4" ഀ
face="Arial, Helvetica"> <b>Database Base Information ഀ
Sample</b></font><br>
<hr size="1" ഀ
color="#000000">
<form name=form1 ഀ
method=post> <TABLE><TR> ഀ
<TD><B>Tables:</B><BR> ഀ
<SELECT name=Listtable width=200 style="width:200" size=18 ഀ
onChange="Listtable_onChange()" > <% i = ഀ
0 while not ഀ
RS.eof if ഀ
trim(RS("TABLE_TYPE").Value) = "TABLE" ഀ
then ഀ
if dbms = "Oracle" ഀ
then ഀ
if RS(1).Value = "HALCYON" ഀ
then ഀ
if selectIndex = i ഀ
then ഀ
tbName = RS("TABLE_NAME").Value ഀ
%> ഀ
<OPTION value="<%=i%>" selected><%=RS("TABLE_NAME").Value%> <% ഀ
else%> ഀ
<OPTION value="<%=i%>"><%=RS("TABLE_NAME").Value%> <% ഀ
end ഀ
if ഀ
i = i + ഀ
1 ഀ
end ഀ
if ഀ
else ഀ
if selectIndex = i ഀ
then%> ഀ
<OPTION value="<%=i%>" selected><%=RS("TABLE_NAME").Value%> <% ഀ
else%> ഀ
<OPTION value="<%=i%>"><%=RS("TABLE_NAME").Value%> <% ഀ
end ഀ
if ഀ
i = i + ഀ
1 ഀ
end if end ഀ
if ഀ
RS.MoveNext ഀ
wend%> ഀ
</SELECT> ഀ
</TD>