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

<%@ Language=JavaScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<%
// Open one connection and create one recordset
if (Request.Form("drvtxt").Count > 0) {
   drv = parseInt( Request.Form("drvtxt") );
   url = Request.Form("urltxt");
   uid = Request.Form("uidtxt");
   pwd = Request.Form("pwdtxt");

    DrvArry = new Array(15);
    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] = "postgresql.Driver";
    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] = "intersolv.jdbc.sequelink.SequeLinkDriver";
    DrvArry[15] = "openlink.jdbc2.Driver";

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

   strCnn = "Driver=" + DrvArry[drv] + ";URL=" + url + ";UID=" + uid + ";PWD=" + pwd + ";"
   
   conn = Server.CreateObject("ADODB.CONNECTION");
   conn.Open( strCnn );

   Session("PublishRd") = Server.CreateObject("ADODB.RECORDSET");
   Session("PublishRd").Open ("Publishers", conn, 1, 2);
   movecnt = 1;
} else {
   dbms = Request.QueryString("dbms");
   movecnt = parseInt( Request.QueryString("movecnt") );
}

RS = Session("PublishRd");

if (RS.RecordCount > 0) {
   direction = parseInt( Request.QueryString("direction") );

   switch ( direction ) {
   case 1:
      RS.MoveFirst();
      movecnt = 1;
      break;
   case 2:
      if ( !RS.BOF ) {
         RS.MovePrevious();
         movecnt = parseInt(movecnt) - 1;
      }
      break;
   case 3:
      if ( !RS.EOF ) {
         RS.MoveNext();
         movecnt = parseInt(movecnt) + 1;
      }
      break;
   case 4:
      RS.MoveLast();
      movecnt = RS.RecordCount;
      break;
   }

   // Error Handling   
   if ( RS.EOF ) {
      movecnt = RS.RecordCount;
      RS.MoveLast();
   }

   if ( RS.BOF ) {
      movecnt = 1;
      RS.MoveFirst();
   }
} else {
   movecnt = 0;
}
%>

<font size="4" face="Arial, Helvetica">
<b>BLOB of LONG VARCHAR Database Sample</b></font><br>
<hr size="1" color="#000000">

<FORM Method=Post Name=form1>
<TABLE width=100%>
   <TR><TD width=60%>
      <TABLE width=100%>
<%      fieldInfo = RS.Fields;
      for (i = 0; i < fieldInfo.Count - 1; i++) {
         field = fieldInfo.Item(i);%>
         <TR><TD align=center width=40%><%=field.Name%>:</TD>
         <TD width=60%>
<%         if (RS.Eof || RS.Bof) {%>
               <Input Type=Text  name="Text<%=i%>" size=25 >
<%         } else {%>
               <Input Type=Text  name="Text<%=i%>" size=25 Value="<%=field.Value%>">
<%         }%>
            </TD></TR>
<%      }%>
      </TABLE>
      <TD width=5%></TD>
      <TD width=35%>
<%      field = fieldInfo.Item(9);
         Response.Write(field.Name)%>:<BR>
<%         if ( RS.Eof || RS.Bof ) {%>
            <TextArea Name="Text9" Rows=14 Cols=25></TextArea>
<%         } else {%>
            <TextArea Name="Text9" Rows=14 Cols=25><%=field.Value%></TextArea>
<%         }%>
      </TD></TR></TABLE>

<CENTER><P>
<input type=button name=MoveFirst value="   |<   " onClick="MoveClick(1);">
<input type=button name=MovePrevious value="    <   " onClick="MoveClick(2);">
<INPUT Type=button  Name=absolute      Value=" <%=movecnt%> of <%=RS.RecordCount%> ">
<input type=button name=MoveNext value="   >    " onClick="MoveClick(3);">
<input type=button name=MoveLast value="   >|   " onClick="MoveClick(4);">
</P></CENTER>

<hr size="1" color="#000000">
<EM>This is a <%=dbms%> database.</EM>
<font size="+1">
<center><a href="default.asp">
Return Home</a></center></font>
</FORM>
</BODY>

<Script Language="JavaScript">
function MoveClick(option) {
   document.form1.action = "publishers.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>&direction=" + option;
   document.form1.submit();
}
</Script>
</HTML>

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