<%
Dim CadCn, CadSQL
Dim Cn
Dim Cmd
Dim Rs, Rs1, Rs2, Rs3, Rs4, Rs5, Rs6, Rs7, Rs8, Rs9, Rs10, Rs11
Set Cn = Server.CreateObject("ADODB.Connection")
Set Cmd = Server.CreateObject("ADODB.Command")
'adUseClient = 3
'Cmd.CursorLocation = adUseClient
Set Rs = Server.CreateObject("ADODB.RecordSet")
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Set Rs2 = Server.CreateObject("ADODB.RecordSet")
Set Rs3 = Server.CreateObject("ADODB.RecordSet")
Set Rs4 = Server.CreateObject("ADODB.RecordSet")
Set Rs5 = Server.CreateObject("ADODB.RecordSet")
Set Rs6 = Server.CreateObject("ADODB.RecordSet")
Set Rs7 = Server.CreateObject("ADODB.RecordSet")
Set Rs8 = Server.CreateObject("ADODB.RecordSet")
Set Rs9 = Server.CreateObject("ADODB.RecordSet")
Set Rs10 = Server.CreateObject("ADODB.RecordSet")
Set Rs11 = Server.CreateObject("ADODB.RecordSet")
CadCn = "Provider=OraOleDB.Oracle;DATA SOURCE=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=ora-sc.tmpla.com)(PORT=1234))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=sisr)));USER ID=UserNotas;PASSWORD=123;"
Cn.open CadCn
%>