Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<html>
<head>
</head>
<body>
<%
dim cnAccess,rsAccess,cmAccess, cnOracle,cmOracle,rsOracle, sql
set cnAccess = Server.CreateObject ("ADODB.Connection")
set rsAccess = Server.CreateObject("ADODB.Recordset")
set cmAccess = Server.CreateObject("ADODB.Command")
set cnOracle = Server.CreateObject ("ADODB.Connection")
set rsOracle = Server.CreateObject("ADODB.Recordset")
set cmOracle = Server.CreateObject("ADODB.Command")
with cnAccess
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "c:\inetpub\[URL unfurl="true"]wwwroot\sitefolder\access.mdb"[/URL]
.Open
end with
with cnOracle
.Provider = "OraOledb.oracle"
.ConnectionString = "Data Source=Database;User ID=User;Password=Password;"
.CursorLocation = 3
.Open
end with
cmAccess.CommandText = "Select id, field1, field2 from table1"
cmAccess.ActiveConnection = cnAccess
Set rsAccess = cmAccess.Execute
cmOracle.ActiveConnection = cnOracle
do until rsAccess.EOF = true
sql = "insert into mytable values('" & rsAccess("id") & "','" & rsAccess("field1") & "','" & rsAccess("field2") & "')"
cmOracle.CommandText = sql
cmOracle.Execute
rsAccess.MoveNext
loop
cmOracle.CommandText = "Select * from mytable"
Set rsOracle = cmOracle.Execute
do until rsOracle.eof = true
Response.Write rsOracle("ID") & "<BR>"
rsOracle.MoveNext
loop
set cnAccess = nothing
set cnOracle = nothing
set rsAccess = nothing
set rsOracle = nothing
set cmAccess = nothing
set cmOracle = nothing
%>
</body>
</html>