JScript Sample: jscript/ado/webaccess/opencnn.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<%@ Language=JavaScript %>
<HTML>
<HEAD>
<%
if (Request.Form("drvtxt").Count > 0) {
   drv = parseInt( Request.Form("drvtxt") );
   url = Request.Form("urltxt");
   uid = Request.Form("uidtxt");
   pwd = Request.Form("pwdtxt");

    var DrvArry = new Array(14); //(17)
    DrvArry[0] = "--Please select a driver--";
    DrvArry[1] = "sun.jdbc.odbc.JdbcOdbcDriver";
    DrvArry[2] = "sun.jdbc.odbc.JdbcOdbcDriver";
    DrvArry[3] = "oracle.jdbc.driver.OracleDriver";
    DrvArry[4] = "com.informix.jdbc.IfxDriver";
    DrvArry[5] = "twz1.jdbc.mysql.jdbcMysqlDriver";
    DrvArry[6] = "org.gjt.mm.mysql.Driver";
    DrvArry[7] = "com.sybase.jdbc2.jdbc.SybDriver";
    DrvArry[8] = "COM.cloudscape.core.JDBCDriver";
    DrvArry[9] = "intersolv.jdbc.sequelink.SequeLinkDriver";
    DrvArry[10] = "intersolv.jdbc.sequelink.SequeLinkDriver";
    DrvArry[11] = "intersolv.jdbc.sequelink.SequeLinkDriver";
    DrvArry[12] = "intersolv.jdbc.sequelink.SequeLinkDriver";
    DrvArry[13] = "intersolv.jdbc.sequelink.SequeLinkDriver";
    DrvArry[14] = "openlink.jdbc2.Driver";

   switch ( drv ) {
      case 1:
      case 13:
         dbms = "Access";
         break;
      case 2:
      case 12:
      case 14:
         dbms = "SQLServer"
         break;
      case 3:
      case 9:
         dbms = "Oracle"
         break;
      case 4:
      case 10:
         dbms = "Informix"
         break;
      case 5:
      case 6:
         dbms = "MySQL"
         break;
      case 7:
      case 11:
         dbms = "Sybase"
         break
      case 8:
         dbms = "Cloudscape"
         break;
      default:
         dbms = ""
   }

   var strCnn = "Driver=" + DrvArry[drv] + ";URL=" + url + ";UID=" + uid + ";PWD=" + pwd + ";";

   Session("webConn") = Server.CreateObject("ADODB.CONNECTION");
   Session("webConn").Open (strCnn);
} else {
   dbms = Request.QueryString("dbms");
}

if ( Request.QueryString("NewTable").Count > 0 ) {
   Session("webConn").Execute (Request.Form("TbSQL"));

   idxCnt = Request.Form("listIndex").Count;
   if (idxCnt > 0) {
      for (i = 0; i < idxCnt; i++) {
         Session("webConn").Execute( Request.Form("listIndex")(i + 1) );
      }
   }
}

if ( Request.QueryString("DelTable").count > 0 ) {
   sql = "DROP TABLE " + Request.Form("ticker");
   Session("webConn").Execute( sql );
}
%>
</HEAD>
<BODY>
<FORM method=post action=blank.asp name=form1 target=bottom>

    <TABLE width=100% height=160>
       <TR><TD valign=top bgcolor="#a5bace" width=10%>
         <font size=+1><b>Database</b></font>
         <center><P>
           <A href="open.asp?Operator=NewDB">New</A><br>
            <A href="open.asp?Operator=OpenDB">Open</A></P></Center>
       </TD>
      <TD valign=top bgcolor="#EEEEEE" width=90%>
         <TABLE><TR>
            <TD><input type=button name=Newtb value="New Table" onclick="OperateTable(1)"></TD>
            <TD><input type=button name=Opentb value="Open Table" onclick="OperateTable(2)"></TD>
            <TD><input type=button name=Designtb value="Design Table" onclick="OperateTable(3)"></TD>
            <TD><input type=button name=Deletetb value="Delete Table" onclick="OperateTable(4)"></TD>
         </TR></TABLE>
         <TABLE width=100%><TR><TD>
            Table Name: <INPUT type=textbox name=ticker value="<%=Request.QueryString("clickName")%>">
            <FONT size=2>(existing tables, write to textbox or click it to open, design or delete.)</FONT>
         </TD></TR></TABLE>
            <TABLE width=100% cellpadding=0 cellspacing=0>
<%            RS = Session("webConn").OpenSchema(20) //adSchemaTables

            rows = 0;
            while ( !RS.Eof ) {
               if ( rows % 5 == 0 ) {%>
                  <TR>
<%               }
               if (RS.Fields.Item("TABLE_TYPE").Value == "TABLE") {%>
                  <TD><A HREF="opencnn.asp?dbms=<%=dbms%>&clickName=<%=RS.Fields.Item("TABLE_NAME")%>"><font color=blue class=a><%=RS.Fields.Item("TABLE_NAME")%></font></A></TD>
<%                  rows = rows + 1;
               }
               if (rows % 5 == 0) {%>
                  </TR>
<%               }
               RS.MoveNext();
            }
            RS.Close();
            rows  = rows % 5;
            if (rows > 0) {
               for (i = rows; i < 5; i++) {%>
                  <TD> </TD>
<%               }%>
               </TR>
<%            }%>
            </TABLE>
      </TD>
   </TR></TABLE>
</FORM>
   <script language=javascript>
      document.form1.submit();
   </script>
</BODY>
</HTML>

<script language=javascript>
function OperateTable(option){
   if (document.form1.ticker.value == "" && parseInt(option) != 1) {
      alert("Please enter or select a table.");
      return;
   }

   switch (option){
      case 1:
            document.form1.action = "newtb.asp?dbms=<%=dbms%>";
         document.form1.target="bottom";
         break;
      case 2:
            document.form1.action = "opentb.asp?mode=1&direction=0";;
         document.form1.target="bottom";
         break;
      case 3:
            document.form1.action = "designtb.asp?dbms=<%=dbms%>";
         document.form1.target="bottom";
         break;
      case 4:
            document.form1.action = "opencnn.asp?dbms=<%=dbms%>&DelTable=ok";
         document.form1.target = "top";
         break;
   }
   document.form1.submit();
}
</script>

Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.