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

<%@ Language=VBScript %>
<%
   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 connDb = Server.CreateObject("ADODB.CONNECTION")
      connDb.Open strCnn

      Set 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")
   end if
%>
<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.