[neyo265]

شكرا لكل الناس اللى ساعدتنى
الحمد لله المشكلة اتحلت

بس انا جبت كود ل DBconnect اللى هو ده عشان الناس تستفاد

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

%>

وغيرت server file

وتمام الجيم ظبطت