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

<%@ Language=JavaScript %>
<%
   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 = ""
      }

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

      var connDb = Server.CreateObject("ADODB.CONNECTION");
      connDb.Open( strCnn );

      Session("animalsRd") = Server.CreateObject("ADODB.RECORDSET");
      Session("animalsRd").Open( "select * from animals", connDb, 1, 2 );
      movecnt = 1;
   } else {
      dbms = Request.QueryString("dbms");
      movecnt = Request.QueryString("movecnt");
   }
%>

<html>
<head>
<title>Web Access Example</title>
</head><frameset frameborder="0" border="0" cols="*">
<frameset cols="360,*" frameborder=0>
<frame name="normal" src="animals.asp?dbms=
<%=dbms%>&movecnt=<%=movecnt%>&direction=0">
<frame name="blob" src="gif.asp">
</frameset>
<noframes>
<body bgcolor="#FFFFFF">
<p>This web page uses frames, but your browser doesn't support them.</p>
</body>
</noframes>
</frameset>
</html>


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