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.

 

 


 

 


 

  
   
 

One of Singapore's most dynamic publishing companies, with a reputation for producing mass-appeal winners, Asia Pacific Publishing handles all aspects of publishing from content creation to marketing and distribution.

We are committed to publishing high impact magazines and literature with a purpose.
Service excellence is a key focus and we strive to constantly introduce unique innovative ideas and concepts to shape and grow our publishing business. 

Asia Pacific Publishing develops and implements circulation and brand marketing strategies across the region, including newsstand and customer service functions, to deliver the targets set by clients, whilst building the audience advertisers want to reach.

  
 
<%OpenConnection%> <% Set Conn = Server.CreateObject("ADODB.Connection") OpenConnection SQL1 = "select TOP 4 * from tblCatalogue where show = 1 and show2 = 1 and picture <> '' order by psort asc" Set Rs1 = server.CreateObject("ADODB.Recordset") Rs1.Open SQL1,Conn,adOpenStatic,adLockOptimistic %> <% If Not Rs1.eof then i=1 itemsize=4 Do While Not Rs1.Eof %> <% end if iRecordsShown = iRecordsShown + 1 Rs1.movenext i=i+1 Loop end if %>
<%if len(Rs1("picture")) > 0 then%> ">" width="155" height="250">   <%else%> <%end if%> <% if i = itemsize then i=0 %>
Copyright © 2006 Asia Pacific Publishing Pte. Ltd. All rights reserved. Powered and managed by Akyweb.com