<%
...
'1. ETL BR
'On Error Resume Next
set conn=server.CreateObject("adodb.connection")
conn.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=ETL_BR;ConnectionTimeout=600"
'Response.Write err.number
'2. ETL PA
set connPA=server.CreateObject("adodb.connection")
connPA.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=CN_PREAPP;ConnectionTimeout=600"
'3. ETL NTL
set connNTL=server.CreateObject("adodb.connection")
connNTL.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=CN_NTL;ConnectionTimeout=600"
'4. ETL_Biz base on SESSION("USER_BUSNDBN")
if SESSION("USER_BIZDBN")<>"" then
set connBiz=server.CreateObject("adodb.connection")
connBiz.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=" & SESSION("USER_BIZDBN") &";ConnectionTimeout=600"
end if
'Response.Write err.number
function closeconn()
set conn=nothing
set connPA=nothing
set connNTL=nothing
set connBiz=nothing
end function
%>
'1. ETL BR
'On Error Resume Next
set conn=server.CreateObject("adodb.connection")
conn.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=ETL_BR;ConnectionTimeout=600"
'Response.Write err.number
'2. ETL PA
set connPA=server.CreateObject("adodb.connection")
connPA.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=CN_PREAPP;ConnectionTimeout=600"
'3. ETL NTL
set connNTL=server.CreateObject("adodb.connection")
connNTL.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=CN_NTL;ConnectionTimeout=600"
'4. ETL_Biz base on SESSION("USER_BUSNDBN")
if SESSION("USER_BIZDBN")<>"" then
set connBiz=server.CreateObject("adodb.connection")
connBiz.Open "driver={sql server};uid=tcs;pwd=tcs;server=3.242.165.18;database=" & SESSION("USER_BIZDBN") &";ConnectionTimeout=600"
end if
'Response.Write err.number
function closeconn()
set conn=nothing
set connPA=nothing
set connNTL=nothing
set connBiz=nothing
end function
%>