انهي الصح فيهم DBConnect 1 ولى 2
1
|
|
|
<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=SQLOLEDB;Data Source=25.31.121.105;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=m1598715963m;"
DBConnA.Open strConnectA
%>
|
2
|
|
|
<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=SQLOLEDB;Data Source=HAZEM-PC\SQLEXPRESS;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=m1598715963m;"
DBConnA.Open strConnectA
%>
|