Tel: +65 6734 0111   I   Fax: +65 6734 0777   I    contact us       

               
 
 
 
 
   
 

 


 
<% Set Conn = Server.CreateObject("ADODB.Connection") OpenConnection SQLn = "select top 2 * from tblNews where show = 1 order by ndate desc" Set Rsn = server.CreateObject("ADODB.Recordset") 'Rsn.CursorLocation=adUseClient Rsn.Open SQLn,Conn,3,2,1 If Rsn.recordcount > 0 then Do while Not Rsn.eof %> <%Rsn.movenext loop else%> <%end if%>

<%=RetrieveS(Rsn("title"))%>

<%=RetrieveD(Rsn("ndate"))%>

">read more >>
 

No News Available.

 

 


 

 


 

 
   
 
...................................................................................................................

Asia Pacific Publishing PTE LTD

Tel: +65 6734 0111
Fax: +65 6734 0777

email: inquiries@asiapacificpublishing.com

1 Scotts Road
#26-03 Shaw Centre, Singapore 228208

www.asiapacificpublishing.com

 
 
Copyright © 2006 Asia Pacific Publishing Pte. Ltd. All rights reserved. Powered and managed by Akyweb.com