conn

<% ...
'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
%>