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

<%@LANGUAGE="VBSCRIPT"%>
<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 then
      drv = Request.Form("drvtxt")
      url = Request.Form("urltxt")
      uid = Request.Form("uidtxt")
      pwd = Request.Form("pwdtxt")

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

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

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

      Set Session("mscrollRd") = Server.CreateObject("ADODB.RECORDSET")
      Session("mscrollRd").PageSize = 4
      Session("mscrollRd").Open "Authors", conn, 3
   else
      dbms = Request.QueryString("dbms")
   end if

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

   If Request("PageNo") = "" Then
      PageNo = 1
   Else
      PageNo = Request("PageNo")
   End If

   ' Adjust PageNumber as Appropriate
   If Mv = "Page Up" or Mv = "Page Down" Then
      Select Case Mv
         Case "Page Up"
            If PageNo > 1 Then
               PageNo = PageNo - 1
            Else
               PageNo = 1
            End If
         Case "Page Down"
            If RS.AbsolutePage < RS.PageCount Then
               PageNo = PageNo + 1
            Else
               PageNo = RS.PageCount
            End If
         Case Else
            PageNo = 1
         End Select
   End If

   RS.AbsolutePage = PageNo
%>

<!-- Draw Table of Contacts in DB -->
<TABLE BORDER=1>
<%
   For j = 1 to RS.PageSize
%>

<TR>
<%
      For i = 0 to RS.Fields.Count - 1
%>

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

</TR>

<%
      RS.MoveNext

      ' Don't try to print the EOF record.
      If RS.EOF Then
         Exit For
      End If
   Next
%>

</TABLE>
<!-- Scrolling Navigation Control for Sample -->
<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 Then
%>

<INPUT TYPE="Submit" Name="Mv" Value="Page Down">
<%
   End If
   If PageNo > 1 Then
%>

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

</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.