<%Dim DBConnA, strConnectASet DBConnA = Server.CreateObject("ADODB.Connection")strConnectA = "Provider=SQLOLEDB;Data Source=YOURSQLNAME;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=YourPW;"DBConnA.Open strConnectA%>