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