<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor=Lavender>
<%
if Request.Form("ticker").count > 0 then
tbName = Request.Form("ticker")
else
tbName = Request.QueryString("ticker")
end if
if Request.Form("SQLsentence") <> "" then
Session("webConn").Execute Request.Form("SQLsentence")
end if
arr4 = Array(null, null, tbName, null)
set REC = Session("webConn").OpenSchema(20, arr4)
schem = REC.fields.item(0)
cotag = REC.fields.item(1)
REC.close
set RS = Session("webConn").Execute( "SELECT * FROM "
& tbName )
fdCnt = RS.Fields.Count
dim nameArr()
redim nameArr(fdCnt - 1)
function TypeStr(fdType)
select case fdType
case 0 'adEmpty
TypeStr = "adEmpty"
case 16 'adTinyInt
TypeStr = "adTinyInt"
case 2 'adSmallInt
TypeStr = "adSmallInt"
case 3 'adInteger
TypeStr = "adInteger"
case 20 'adBigInt
TypeStr = "adBigInt"
case 17 'adUnsignedTinyInt
TypeStr = "adUnsignedTinyInt"
case 18 'adUnsignedSmallInt
TypeStr = "adUnsignedSmallInt"
case 19 'adUnsignedInt
TypeStr = "adUnsignedInt"
case 21 'adUnsignedBigInt
TypeStr = "adUnsignedBigInt"
case 4 'adSingle
TypeStr = "adSingle"
case 5 'adDouble
TypeStr = "adDouble"
case 6 'dCurrency
TypeStr = "adCurrency"
case 14 'adDecimal
TypeStr = "adDecimal"
case 131 'adNumeric
TypeStr = "adNumeric"
case 11 'adBoolean
TypeStr = "adBoolean"
case 10 'adError
TypeStr = "adError"
case 132 'adUserDefined
TypeStr = "adUserDefined"
case 12 'adVariant
TypeStr = "adVariant"
case 9 'adIDispatch
TypeStr = "adIDispatch"
case 13 'adIUnknown
TypeStr = "adIUnknown"
case 72 'adGUID
TypeStr = "adGUID"
case 7 'adDate
TypeStr = "adDate"
case 133 'adDBDate
TypeStr = "adDBDate"
case 134 'adDBTime
TypeStr = "adDBTime"
case 135 'adDBTimeStamp
TypeStr = "adDBTimeStamp"
case 8 'adBSTR
TypeStr = "adBSTR"
case 129 'adChar
TypeStr = "adChar"
case 200 'adVarChar
TypeStr = "adVarChar"
case 201 'adLongVarChar
TypeStr = "adLongVarChar"
case 130 'adWChar
TypeStr = "adWChar"
case 202 'adVarWChar
TypeStr = "adVarWChar"
case 203 'adLongVarWChar
TypeStr = "adLongVarWChar"
case 128 'adBinary
TypeStr = "adBinary"
case 204 'adVarBinary
TypeStr = "adVarBinary"
case 205 'adLongVarBinary
TypeStr = "adLongVarBinary"
end select
end function
dbms = Request.QueryString("dbms")
%>
<FORM method=POST action="designtb.asp?dbms=<%=dbms%>&ticker=<%=tbName%>" name="form1">
<TABLE border=0 cellspacing=0 cellpadding=0>
<TR><TD valign=top>
<TABLE><TR><TD><b>Table Name: [ </b><%=tbName%><b>
]</b></TD></TR></TABLE>
<TABLE><TR>
<TD><font size=1><b>Name:</b></font><BR><INPUT type=textbox name=fdName value=""></TD>
<TD><font size=1><b>Type:</b></font><BR><SELECT name=fdType width=150 style="WIDTH: 150" onchange="ChgType()">
<OPTION value=0>adEmpty
<OPTION value=1>adTinyInt
<OPTION value=2>adSmallInt
<OPTION value=3>adInteger
<OPTION value=4>adBigInt
<OPTION value=5>adUnsignedTinyInt
<OPTION value=6>adUnsignedSmallInt
<OPTION value=7>adUnsignedInt
<OPTION value=8>adUnsignedBigInt
<OPTION value=9>adSingle
<OPTION value=10>adDouble
<OPTION value=11>adCurrency
<OPTION value=12>adDecimal
<OPTION value=13>adNumeric
<OPTION value=14>adBoolean
<OPTION value=15>adError
<OPTION value=16>adUserDefined
<OPTION value=17>adVariant
<OPTION value=18>adIDispatch
<OPTION value=19>adIUnknown
<OPTION value=20>adGUID
<OPTION value=21>adDate
<OPTION value=22>adDBDate
<OPTION value=23>adDBTime
<OPTION value=24>adDBTimeStamp
<OPTION value=25>adBSTR
<OPTION value=26>adChar
<OPTION value=27 selected>adVarChar
<OPTION value=28>adLongVarChar
<OPTION value=29>adWChar
<OPTION value=30>adVarWChar
<OPTION value=31>adLongVarWChar
<OPTION value=32>adBinary
<OPTION value=33>adVarBinary
<OPTION value=34>adLongVarBinary
</SELECT></TD>
<TD><font size=1><b>Size</b> or [<b>Precision</b>,<b>scale</b>]<b>:</b></font><BR>
<INPUT type=textbox name=fdSize value=50 size=16></TD>
</TR></TABLE>
<TABLE><TR>
<TD><INPUT name=addField type=button value="Add Field " onClick="addField_onClick();"></TD>
<TD><INPUT name=ridField type=button value="Remove Field" onClick="ridField_onClick();"></TD>
</TR></TABLE>
<TABLE><TR>
<TD><SELECT name=listName size=11 WIDTH=150 style="WIDTH: 150" onChange="listName_onChange();">
<% for i = 0 to fdCnt - 1
nameArr(i) = RS.Fields(i).Name%>
<OPTION><%=nameArr(i)%></OPTION>
<% next%>
</SELECT></TD>
<TD><SELECT name=listType size=11 WIDTH=150 style="WIDTH: 150" onChange="listType_onChange();">
<% for i = 0 to fdCnt - 1%>
<OPTION><%=TypeStr( RS.Fields(i).Type )%></OPTION>
<% next%>
</SELECT></TD>
<TD><SELECT name=listSize size=11 WIDTH=130 style="WIDTH: 130" onChange="listSize_onChange();">
<% for i = 0 to fdCnt - 1%>
<OPTION><%=RS.Fields(i).DefinedSize%></OPTION>
<% next%>
</SELECT></TD>
<TD width=10> </TD>
</TR></TABLE>
</TD>
<TD>
<TABLE>
<TR><TD><font size=1><B>Indexes:</B></font><BR>
<SELECT name=listIndex size=4 width=180 style="WIDTH: 180">
<% RS.Close
arr5 = Array(schem, cotag, null, null, tbName)
set REC = Session("webConn").OpenSchema(12, arr5)
temp = ""
while not REC.Eof
set idxName = REC.Fields("INDEX_NAME")
if not isEmpty(idxName.Value) and temp <> idxName.Value then%>
<OPTION><%=idxName.Value%>
<% temp = idxName.Value
end if
REC.MoveNext
wend
REC.close%>
</SELECT><BR>
<INPUT name=addIndex type=button value="Add Index" onClick="addIndex_onClick();">
<INPUT name=ridIndex type=button value="Del Index" onClick="ridIndex_onClick();">
</TD></TR>
<TR><TD><font size=1><B>Index Name:</B></font><BR>
<INPUT name=idxName size=16 value="">
<INPUT name=unique type=textbox size=1 value=""> Unique (<B>y</B>/<B>n</B>)</TD>
</TR>
<TR><TD><font size=1><B>Available Fields:</B></font><BR>
<SELECT name=listFields size=4 width=180 style="WIDTH: 180" onChange="listFields_onChange();">
<% for i = 0 to fdCnt - 1%>
<OPTION><%=nameArr(i)%></OPTION>
<% next%>
</SELECT>
</TD></TR>
<TR><TD><font size=1><B>Indexed fields:</B><font><BR>
<INPUT type=textbox name=idxFields size=23 value="">
</TD></TR>
</TABLE>
</TD></TR></TABLE>
<input name="SQLsentence" type=hidden size=4>
</FORM>
</BODY>
</HTML>
|