<%@ Language=VBScript %>
<%
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(14)
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) = "intersolv.jdbc.sequelink.SequeLinkDriver"
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) = "openlink.jdbc2.Driver"
select
case drv
case 1, 13:
dbms
= "Access"
case 2, 12, 14:
dbms
= "SQLServer"
case 3, 9:
dbms
= "Oracle"
case 4, 10:
dbms
= "Informix"
case 5, 6:
dbms
= "MySQL"
case 7, 11:
dbms
= "Sybase"
case 8:
dbms
= "Cloudscape"
case else
dbms
= ""
end select
strCnn
= "Driver=" & DrvArry(drv) & ";URL=" &
url & ";UID=" & uid & ";PWD=" & pwd
& ";"
Set connDb = Server.CreateObject("ADODB.CONNECTION")
connDb.Open strCnn
Set
Session("animalsRd") = Server.CreateObject("ADODB.RECORDSET")
Session("animalsRd").Open
"select * from animals", connDb, 1, 2
movecnt = 1
else
dbms = Request.QueryString("dbms")
movecnt = Request.QueryString("movecnt")
end if
%>
<html>
<head>
<title>Web Access Example</title>
</head>
<frameset frameborder="0" border="0"
cols="*">
<frameset cols="360,*" frameborder=0>
<frame name="normal" src="animals.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>&direction=0">
<frame name="blob" src="gif.asp">
</frameset>
<noframes>
<body bgcolor="#FFFFFF">
<p>This web page uses frames, but your browser doesn't support them.</p>
</body>
</noframes>
</frameset>
</html>
|