<%@ Language=JavaScript %>
<HTML>
<HEAD>
<TITLE>MultiScrolling Database Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<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");
Mv = Request("Mv");
if (Request.Form("PageNo")<2){
Session("PageNo")=1;
PageNo = Session("PageNo");
} else {
PageNo=Session("PageNo");
}
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>
<%
RS.MoveNext();
if ( RS.EOF){
break;
}
}
%>
</TABLE>
<Form action="multiscrolling.asp?dbms=<%=dbms%>"
Method="POST" name=form1>
<Input Type="Hidden" Name="PageNo" Value="<%=PageNo
%>">
<%
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>
|