਍ഀ ਍ഀ View ASP Source code਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
ASP Source Code਍ഀ

ASP File: ਍ഀ 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 & ਍ഀ ";"
           'strCnn = ਍ഀ "DSN=AccessDB;UID=sa;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 <%=dbms%>  ਍ഀ database.</EM>
      <font ਍ഀ size="+1">
      <center><a ਍ഀ href="default.asp">
      Return ਍ഀ Home</a></center></font>
           ਍ഀ
</BODY>
</HTML>
਍ഀ
਍ഀ
਍ഀ

 

਍ഀ