BDConnect
&&&&&&&&&&&&&&&&&
%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=SQLOLEDB;Data Source=EDGE-A491187BE2\SQLEXPRESS;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=0121580359"
DBConnA.Open strConnectA
%>