Oracle - CONNECTIONSTRING ASP - ORACLE

<%

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 

%>