<% curDir = Server.MapPath("qazvin/qazvindb.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & curDir & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" Set rs=Server.CreateObject("ADODB.Recordset") SQLstr = "select * from news order by catnr desc " rs.CursorType=adOpenStatic rs.PageSize=4 rs.Open Sqlstr,Conn Set rs1=Server.CreateObject("ADODB.Recordset") SQLstr1 = "select * from new order by catnr desc " rs1.CursorType=adOpenStatic rs1.Open Sqlstr1,Conn %>