<%@ Language=JScript %>
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor=Lavender>
<%
if (Request.Form("ticker").count > 0) {
tbName = Request.Form("ticker");
} else {
tbName = Request.QueryString("ticker");
}
if (Request.Form("SQLsentence").Count > 0) {
Session("webConn").Execute( Request.Form("SQLsentence")
);
}
arr4 = new Array(null, null, tbName, null);
REC = Session("webConn").OpenSchema(20, arr4);
schem = REC.fields.item(0).value;
cotag = REC.fields.item(1).value;
REC.Close();
RS = Session("webConn").Execute( "SELECT * FROM " + tbName
);
fdCnt = RS.Fields.Count;
nameArr = new Array(fdCnt - 1);
function TypeStr(fdType) {
switch (fdType) {
case 0:
typeStr = "adEmpty";
break;
case 16:
typeStr = "adTinyInt";
break;
case 2:
typeStr = "adSmallInt";
break;
case 3:
typeStr = "adInteger";
break;
case 20:
typeStr = "adBigInt";
break;
case 17:
typeStr = "adUnsignedTinyInt";
break;
case 18:
typeStr = "adUnsignedSmallInt";
break;
case 19:
typeStr = "adUnsignedInt";
break;
case 21:
typeStr = "adUnsignedBigInt";
break;
case 4:
typeStr = "adSingle";
break;
case 5:
typeStr = "adDouble";
break;
case 6:
typeStr = "adCurrency";
break;
case 14:
typeStr = "adDecimal";
break;
case 131:
typeStr = "adNumeric";
break;
case 11:
typeStr = "adBoolean";
break;
case 10:
typeStr = "adError";
break;
case 132:
typeStr = "adUserDefined";
break;
case 12:
typeStr = "adVariant";
break;
case 9:
typeStr = "adIDispatch";
break;
case 13:
typeStr = "adIUnknown";
break;
case 72:
typeStr = "adGUID";
break;
case 7:
typeStr = "adDate";
break;
case 133:
typeStr = "adDBDate";
break;
case 134:
typeStr = "adDBTime";
break;
case 135:
typeStr = "adDBTimeStamp";
break;
case 8:
typeStr = "adBSTR";
break;
case 129:
typeStr = "adChar";
break;
case 200:
typeStr = "adVarChar";
break;
case 201:
typeStr = "adLongVarChar";
break;
case 130:
typeStr = "adWChar";
break;
case 202:
typeStr = "adVarWChar";
break;
case 203:
typeStr = "adLongVarWChar";
break;
case 128:
typeStr = "adBinary";
break;
case 204:
typeStr = "adVarBinary";
break;
case 205:
typeStr = "adLongVarBinary";
break;
default:
typeStr = "adTypeUnknown";
}
return typeStr;
}
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; i < fdCnt; i++) {
nameArr[i] = RS.Fields(i).Name%>
<OPTION><%=nameArr[i]%></OPTION>
<% }%>
</SELECT></TD>
<TD><SELECT name=listType size=11 WIDTH=150 style="WIDTH: 150"
onChange="listType_onChange();">
<% for (i = 0; i < fdCnt; i++) {%>
<OPTION><%=TypeStr( RS.Fields(i).Type )%></OPTION>
<% }%>
</SELECT></TD>
<TD><SELECT name=listSize size=11 WIDTH=130 style="WIDTH: 130" onChange="listSize_onChange();">
<% for (i = 0; i < fdCnt; i++) {%>
<OPTION><%=RS.Fields(i).DefinedSize%></OPTION>
<% }%>
</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 = new Array(schem, cotag, null, null, tbName);
REC = Session("webConn").OpenSchema(12, arr5);
temp = "";
while ( !REC.Eof ) {
idxName = REC.Fields("INDEX_NAME");
if ( idxName.Value != null && temp != idxName.Value ) {%>
<OPTION><%=idxName.Value%>
<% temp = idxName.Value;
}
REC.MoveNext();
}
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; i < fdCnt; i++) {%>
<OPTION><%=nameArr[i]%></OPTION>
<% }%>
</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>
|