<% Dim*DBConnA,*strConnectA Set*DBConnA*=*Server.CreateObject("ADODB.Connection") strConnectA*=*"Provider=SQLOLEDB;Data*Source=اسم الجهاز\SQLEXPRESS;Initial*Catalog=SRO_VT_ACCOUNT;user*ID=sa;password=Pw-SQL;" DBConnA.Open*strConnectA %>**