<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "e:\Domains\alqaserhotel.com\db\project.mdb" set rs = server.createobject("AdODB.Recordset") rs.open "select * from news order by add_dat desc",conn 'dim i 'FOR i=0 TO 3 do until rs.EOF %>

<%response.write rs("subject")%>

<%response.write rs("body")%>