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

<%@ Language=JavaScript %>
<HTML>
<HEAD>
<TITLE>MultiScrolling Database Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>MultiScrolling Database Sample</b></font><br>
<hr size="1" color="#000000">
Contacts within the Authors Database:<br><br>

<%
   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("mscrollRd") = Server.CreateObject("ADODB.RECORDSET");
      Session("mscrollRd").PageSize = 4;
      Session("mscrollRd").Open ("Authors", conn, 3);
   } else {
      dbms = Request.QueryString("dbms");
   }

   RS = Session("mscrollRd");
   
// Determine what PageNumber the scrolling currently is on
   Mv = Request("Mv");

   if (Request.Form("PageNo")<2){
      Session("PageNo")=1;
      PageNo = Session("PageNo");
   } else {
      PageNo=Session("PageNo");
   }


   
// Adjust PageNumber as Appropriate
   if (Mv == "Page Up"){
      if (PageNo > 1) {
         PageNo = PageNo - 1;
      } else {
         PageNo = 1;
      }
   } else if (Mv =="Page Down"){
      if (RS.AbsolutePage < RS.PageCount) {
         PageNo = PageNo + 1;
      } else {
         PageNo = RS.PageCount;
      }
   } else {
      PageNo = 1;
   }
   Session("PageNo")=PageNo
   RS.AbsolutePage = PageNo;
%>

<TABLE BORDER=1>
<%
   for (j = 1; j <= RS.PageSize; j++){
%>

<TR>
<%
      for (i = 0; i < RS.Fields.Count; i++) {
%>

<TD VALIGN=TOP>
<%= RS(i) %></TD>
<%
      }
%>

</TR>
<%
      
// Don't try to print the EOF record.
      RS.MoveNext();
      if ( RS.EOF){
         break;
      }
   }
%>

</TABLE>

<Form action="multiscrolling.asp?dbms=<%=dbms%>" Method="POST" name=form1>
<Input Type="Hidden" Name="PageNo" Value="<%=PageNo %>">
<!-- Only show appropriate buttons -->
<%
   if (PageNo < RS.PageCount){
%>

<INPUT TYPE="Submit" Name="Mv" Value="Page Down">
<%
   }
   if (PageNo > 1){
%>

<INPUT TYPE="Submit" Name="Mv" Value="Page Up">
<%
   }
%>

</Form>
<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>
</BODY>
</HTML>


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