[MyRȝturn]

شوف كدة
<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=SQLOLEDB;Data Source=5.72.42.151;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=anas2012;"
DBConnA.Open strConnectA

%>