% set objconn = server.createobject ( "ADODB.Connection" ) objconn.open "DRIVER={SQL Server};Server=ESPR1SQL7\I1;Database=SC71;Uid=SC71_User;Pwd=SC71_User;Database=SC71" strSQL="SELECT ContactAbb, ContactContent FROM Contact WHERE ContactAbb='scao'" Set ObjContentRS = objconn.Execute(strSQL) %>
|