<% Dim rs,conn Set conn = Server.CreateObject("ADODB.Connection") conn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("\solo\DB\announce.mdb") Set rs = Server.CreateObject("ADODB.Recordset") Set rs1 = Server.CreateObject("ADODB.Recordset") %>