谁给我一段ADO连sqlserver 2000的连接代码，谢谢，我手头没有，急用，一小时后结贴!

Question

dim cn   
   dim connstr
   dim Ad
   dim ddel
  ' on error resume next
   connstr="DBQ="+server.mappath("_jin_bbs.jdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   connstr="Driver={SQL Server};Server=(local);Uid=sa;Pwd=;Database=jinescweb"
     set cn=server.createobject("ADODB.CONNECTION")
     
'    response.write(connstr)
     cn.open connstr 
     set rst=server.createobject("ADODB.recordset")
     rst.open "select * from admin where userid='" & request.cookies.item("users") & "'" ,cn
     if  not (rst.eof and rst.bof) then 
        admin="t"
     end if 
     rst.close