<%OpenConnection%> <% iPageSize = 6 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = ConvertDbl(Request.QueryString("page")) End If orderBy = Request.QueryString("orderBy") orderType = Request.QueryString("orderType") Select Case LCase(orderBy) Case "id" orderBy = "id" Case Else orderBy = "id" End Select Select Case LCase(orderType) Case "asc" orderType = "asc" Case Else orderType = "desc" End Select If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = ConvertDbl(Request.QueryString("page")) End If Set Conn = Server.CreateObject("ADODB.Connection") OpenConnection SQL1 = "select * from tblCatalogue where show = 1 order by "&orderBy&" "&orderType&"" Set Rs1 = server.CreateObject("ADODB.Recordset") Rs1.PageSize = iPageSize Rs1.CacheSize = iPageSize Rs1.CursorLocation=adUseClient Rs1.Open SQL1,Conn,adOpenStatic,adLockOptimistic iPageCount = Rs1.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount End If If iPageCurrent < 1 Then iPageCurrent = 1 End If %>

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

               
  <%items = split(Request.Cookies("ctshoplist"),"(:-)")%> <% ' iRecordsShown = iRecordsShown + 1 ' Rs1.movenext ' i=i+1 ' Loop ' end if%>
 
Enquiry Cart (<%if ubound(items) = "-1" then%>0<%elseif items(0) <> "" then%>1<%else%><%=ubound(items)%><%end if%>) items
 
...............................................................................................................................................................................................................................  
<%=Rs1.recordcount%> items found.   |   Page <%=iPageCurrent%>/<%=iPageCount%> <%If iPageCurrent > 1 Then%> ?page=<%=iPageCurrent-1%>"><  <%End If%> <%For i = 1 To iPageCount%> <%If i = iPageCurrent Then%> [<%=i%>] <%Else%> ?page=<%=i%>" class="innerbodylink"> <%=i%> <%End If%> <%Next%>   <%If iPageCurrent < iPageCount Then%> ?page=<%=iPageCurrent+1%>">> <%End If%>
 
   
     
  <% If Not Rs1.eof then i=1 itemsize=2 Rs1.AbsolutePage = iPageCurrent Do While Not Rs1.Eof And iRecordsShown < iPageSize %> <%'For y = 1 to itemsize%> <% 'Rs1.movenext 'Next 'y=0 if i = itemsize then i=0 %> <% end if iRecordsShown = iRecordsShown + 1 'response.write "data - " &iRecordsShown Rs1.movenext i=i+1 Loop end if%>
<%if len(Rs1("picture")) > 0 then%> ',200,200)">" width="149" height="230"> <%else%> <%end if%>
Title : <%=Rs1("catalogname")%>
 
Content : <%=RetrieveS(Rs1("content"))%>
 
" class="s8">More Information Click Here
 
" class="s7">Order Now
 
Price : S$<%=ConvertCurr(Rs1("pricesg"))%>
 
 
           
 
 
 
<%If iPageCurrent > 1 Then%> ?page=<%=iPageCurrent-1%>">< Previous  <%End If%> <%For i = 1 To iPageCount%> <%If i = iPageCurrent Then%> [<%=i%>] <%Else%> ?page=<%=i%>" class="innerbodylink"> <%=i%> <%End If%> <%Next%>   <%If iPageCurrent < iPageCount Then%> ?page=<%=iPageCurrent+1%>">Next > <%End If%>
 
Copyright © 2006 Asia Pacific Publishing Pte. Ltd. All rights reserved. Powered and managed by Akyweb.com