[حسام محمد على]

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

%>




دا كل الى مكتوب