<%@LANGUAGE="VBSCRIPT"%>
<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
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")
Mv = Request("Mv")
If Request("PageNo")
= "" Then
PageNo = 1
Else
PageNo = Request("PageNo")
End If
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
%>
<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>
<Form action="multiscrolling.asp?dbms=<%=dbms%>"
Method="POST" name=form1>
<Input Type="Hidden" Name="PageNo" Value="<%=
PageNo %>">
<%
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>
|