Welcome to Everpure com.my

<% set rs = server.CreateObject("ADODB.Recordset") rs.open "Select * from tblIce",con,1,3 count = 1 if not rs.eof then rs.pagesize = 4 if request.querystring("ctr")="" then ctr = 1 else ctr=request.querystring("ctr") end if rs.AbsolutePage = ctr %>

[ ]


Products
	Commercial
		Ice Filtration Systems

<% image = rs("imgProduct") while not rs.eof and count <= rs.pagesize %> <% count = count+1 rs.movenext wend end if %>



<%if rs("imgProduct") <>"" then%> "> <% end if%>		Price: RM
	<%=rs("title")%>	<%=rs("price1")%>
	SYSTEM PART NO.<%=rs("partNo")%>

	<%=rs("desc1")%>

	Application:
	<%=rs("desc2")%>

	Max.Flow Rate: <%=rs("flowRate")%> gpm

	<%=rs("ReplaceCart1")%>	<%=rs("price2")%>

	<%=rs("ReplaceCart2")%>	<%=rs("price3")%>

Result Page: <% if request.querystring("ctr")="" then j = 1 tmp=0 else j=request.querystring("ctr") tmp = ( Int ((j-1) / 10)) 10 end if if tmp <> 0 then %> First* <<Prev <% end if for i = 1+tmp to 10+tmp if i <= rs.pagecount then if i = Int(request.querystring("ctr")) then %> [<%=i%>] <% else %> <%=i%> <% end if end if next %> <% if i <= rs.pagecount then %> Next >> <% end if %> <% if (tmp+10) < rs.pagecount then %> Last <% end if %>