<%
Set CN = Server.CreateObject("ADODB.Connection")
CN.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("_system/_db/egypteng.mdb")
Set NewsRS = Server.CreateObject("ADODB.Recordset")
NewsRS.open "SELECT * FROM NewsEnglish ORDER BY NDate DESC" , CN
Set objNewsID = NewsRS("NewsID")
Set ObjNewsTitle= NewsRS("NewsTitle")
%>
<%
NCount=0
Do While not NewsRS.EOF
NCount=NCount+1
%>
|

|
><%=ObjNewsTitle%> |
<%
if NCount>=10 then exit do
NewsRS.MoveNext
Loop%>
<%CN.Close%>