|
|
|
|
<% IF j = 0 THEN %>
<% IF varlang = 1 THEN %>
Help to cut down on the usage of man made chemical products in our home, offices and our overall environment. Searching for the ancient and environmental friendly way, Okin Shop Pte Ltd has brought in this traditionally used product, The Bamboo Charcoal under our "OKIN SHOP".
Bamboo has been traditionally used to make summer pillows, mats and baskets for daily use and as decorative goods. But certain species of bamboo also have many highly sought-after properties. A special species of bamboo is used as a source of bamboo charcoal and this is where our products are made from. Making use of bamboo charcoal unique properties as seen in its absorption, deodorization, anti-bacterial and purification aspects, as well as other function like elimination of electromagnetic waves, generation of infrared rays and negative ions, we have brought in a range of household products like pillows for adult and baby, bamboo vinegar, cushions and decorative items. We even have a range of Personal Care products like shoes soles/fillers, beauty soap and many others.
Just browse through our website and you will see the wonders of Bamboo Charcoal. Let us go back to the basic, and live the all-natural health and environment- friendly way.
Find out more about the products in the various categories:
<%
Dim objRstViewCategoryMENU
call associateRecordset(objConn,objRstViewCategoryMENU)
objRstViewCategoryMENU.Open("SELECT tblm_Category.* FROM tblm_Category")
While Not objRstViewCategoryMENU.EOF
%>
" class="common"><% = objRstViewCategoryMENU("C_Name") %>
<%objRstViewCategoryMENU.MoveNext
Wend%>
<%ELSE %>
“黑钻石”竹炭！它是你生活中无污染、纯天然的健康卫士！
人们都知道要少用合成化学品，从古代的文化遗产中我们就找到了天然而神奇的竹
炭！它无毒、无味、无副作用，是纯天然制品。竹炭能吸收有害化学物、除臭防霉、
自动调湿，更奇妙的是能产生远红外线和负离子，促进人体血液循环，消除疲劳，
净化空气，还能有效阻隔电磁波辐射，帮助人们去病防病，好处数不完！要了解多
些吗？请到我们的OKIN SHOP，我们用竹炭制作的枕头、床垫、除味包等几十种包
装精美的产品一定令你大开眼界，受惠无穷！为你打造健康＋时尚的美好新生活，
是我们追求的梦想！
<%
Dim objRstViewCategoryMENU1
call associateRecordset(objConn,objRstViewCategoryMENU1)
objRstViewCategoryMENU1.Open("SELECT tblm_Category.* FROM tblm_Category")
While Not objRstViewCategoryMENU1.EOF
%>
&lang=2" class="common"><% = objRstViewCategoryMENU1("C_NameZH") %>
<%objRstViewCategoryMENU1.MoveNext
Wend%>
<%END IF %>
<% ELSE %>
<%
Dim objRstCategoryProducts, objRstCategory
call associateRecordset(objConn,objRstCategoryProducts)
call associateRecordset(objConn,objRstCategory)
objRstCategory.Open("SELECT tblm_Category.* FROM tblm_Category WHERE tblm_Category.CID=" & varCategoryID)
objRstCategoryProducts.Open("SELECT tblm_Products.* FROM tblm_Products "_
& "WHERE tblm_Products.P_Status=" & True & " AND (tblm_Products.P_CID_1=" & varCategoryID & " OR tblm_Products.P_CID_2=" & varCategoryID & " OR tblm_Products.P_CID_3=" & varCategoryID & " OR tblm_Products.P_CID_4=" & varCategoryID & " OR tblm_Products.P_CID_5=" & varCategoryID & ") ORDER BY tblm_Products.PID DESC")
varPageSize= 8
varRecDisplaySize= 8
varPageDivision = 2
If Session("CurrentPage") = "" then
Session("CurrentPage") = 1
Else
If CInt(Request.QueryString("MOVE"))=0 then
Session("CurrentPage")=1
Else
Session("CurrentPage")=CInt(Request.QueryString("MOVE"))
End if
End if
If Session("CurrentPage") = 1 then
Session("PageDivision") = varPageDivision
End if
If Not objRstCategoryProducts.EOF then
objRstCategoryProducts.PageSize = varRecDisplaySize
objRstCategoryProducts.AbsolutePage = Session("CurrentPage")
End if
If objRstCategoryProducts.RecordCount > varRecDisplaySize then
If objRstCategoryProducts.RecordCount mod varRecDisplaySize <> 0 then
varDivide = objRstCategoryProducts.RecordCount/varRecDisplaySize
varFindDecimal = Mid(varDivide, (InStr(varDivide, ".")))
varDecimal = Cdbl(varFindDecimal)
varTotalPages = varDivide - varDecimal
varTotalPages = varTotalPages + 1
Else
varTotalPages = objRstCategoryProducts.RecordCount/varRecDisplaySize
End if
Else
varTotalPages = 1
End if
If Session("CurrentPage") = varTotalPages then
varTotalPagesMod = varTotalPages mod 16
Session("PageDivision") = varTotalPages + (varPageDivision - varTotalPagesMod)
End if
If Session("CurrentPage") > Session("PageDivision") then
Session("PageDivision") = Session("PageDivision") + varPageDivision
End if
If Session("CurrentPage") = (Session("PageDivision") - varPageDivision) then
Session("PageDivision") = Session("PageDivision") - varPageDivision
End if%>
|
<% IF varlang = 1 THEN%>
You are at > Okin Shop > <%=objRstCategory("C_Name")%>
<% ELSE %>
You are at > Okin Shop > <%=objRstCategory("C_NameZH")%>
<%END IF%>
|
Page
<%
For iLoop = 1 to varPageDivision
If iLoop = 1 then
varPageNum = Session("PageDivision") - (varPageDivision-1)
Else
varPageNum = varPageNum + 1
End if
If varPagenum < varTotalPages or varPageNum = varTotalPages then
If varPagenum = Session("CurrentPage") then%>
<%=varPageNum%> |
<%Else%>
<% IF varlang = 1 THEN%>
<%=varPageNum%> |
<% ELSE %>
<%=varPageNum%> |
<%END IF%>
<%End if
Else%>
<%End if
Next
%>
|
<%IF objRstCategoryProducts.RecordCount <> 0 THEN%>
|
|
|
|
