VBScript Sample: vbscript/ado/webaccess/opencnn.asp

	ASP Script
	Comments or Client-side Script
	HTML and Text
<%@ Language=VBScript %>
<HTML>
<HEAD>
<%
if Request.Form("drvtxt").Count <> 0 then
   drv = Request.Form("drvtxt")
   url = Request.Form("urltxt")
   uid = Request.Form("uidtxt")
   pwd = Request.Form("pwdtxt")

    dim DrvArry(14)
    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"

   select case drv
      case 1, 13:
         dbms = "Access"
      case 2, 12, 14:
         dbms = "SQLServer"
      case 3, 9:
         dbms = "Oracle"
      case 4, 10:
         dbms = "Informix"
      case 5, 6:
         dbms = "MySQL"
      case 7, 11:
         dbms = "Sybase"
      case 8:
         dbms = "Cloudscape"
      case else
         dbms = ""
   end select

   strCnn = "Driver=" & DrvArry(drv) & ";URL=" & url & ";UID=" & uid & ";PWD=" & pwd & ";"
   set Session("webConn") = server.CreateObject("ADODB.CONNECTION")
   Session("webConn").Open strCnn
else
   dbms = Request.QueryString("dbms")
end if

if Request.QueryString("NewTable").Count > 0 then

   Session("webConn").Execute Request.Form("TbSQL")

   idxCnt = Request.Form("listIndex").Count
   if idxCnt > 0 then
      for i = 0 to idxCnt - 1
         Session("webConn").Execute Request.Form("listIndex")(i+1)
      next
   end if
end if

if Request.QueryString("DelTable").count > 0 then
   sql = "DROP TABLE " & Request.Form("ticker")
   Session("webConn").Execute sql
end if

%>
</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>
<%            set RS = Session("webConn").OpenSchema (20) 'adSchemaTables

            rows = 0
            while not RS.Eof
               if rows mod 5 = 0 then%>
                  <TR>
<%            end if
               if trim(RS.Fields.Item("TABLE_TYPE").Value) = "TABLE" then%>
                  <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
               end if
               if rows mod 5 = 0 then%>
                  </TR>
<%               end if
               RS.MoveNext
            wend
            RS.close
            rows  = rows mod 5
            if rows > 0 then
               for i = rows to 4%>
                  <TD> </TD>
<%               next%>
               </TR>
<%            end if%>
            </TABLE>
      </TD>
   </TR></TABLE>
   <script language=javascript>
      document.form1.submit();
   </script>
</FORM>
</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>