<% Dim DBConnA, strConnectA Set DBConnA = Server.CreateObject("ADODB.Connection") strConnectA = "Provider=SQLOLEDB;Data Source=ComputerName-PC\SQLEXPRESS;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=SQLpassword;" DBConnA.Open strConnectA %>