<% 
dim objconn,connstr 
Set objconn = Server.CreateObject("ADODB.Connection") 
connstr = "Provider=SQLNCLI;Server=(local);Database=sosuo8.comdatabase;Uid=sa;Pwd=123;" 
objconn.Open connstr 
%>