% dim conns dim rs dim sql set conns=server.createobject("ADODB.Connection") conns.open "provider=Microsoft.Jet.OLEDB.4.0;data Source="& server.mappath("admin/article.mdb") set rs=server.createobject("ADODB.Recordset") %>