Mr. Tokai :: Megacos Enterprise Sdn. Bhd.

Product Category

<% dim objCategory Set objCategory = Server.CreateObject("ADODB.Recordset") objCategory.ActiveConnection = Category_STRING objCategory.Source = "SELECT * FROM Category order by DateAdded desc" objCategory.CursorType = 0 objCategory.CursorLocation = 2 objCategory.LockType = 3 objCategory.Open() dim ikira ikira = 1 %> <%DO WHILE NOT objCategory.EOF%> " class="navlink2""><%=objCategory("Title")%>

<% ikira = ikira + 1 objCategory.MOVENEXT LOOP objCategory.Close Set objCategory = Nothing %>

What's New

<% dim objPro Set objPro = Server.CreateObject("ADODB.Recordset") objPro.ActiveConnection = Category_STRING objPro.Source = "SELECT * FROM Product order by DateAdded desc" objPro.CursorType = 0 objPro.CursorLocation = 2 objPro.LockType = 3 objPro.Open() %> <% recCount = 0 DO WHILE (NOT objPro.EOF) AND (recCount < 4) recCount = recCount + 1 %> " class="navlink2""><%=objPro("Name")%>

<% objPro.MOVENEXT LOOP objPro.Close Set objPro = Nothing %>

Catalog

Display all available category and its product.

<% dim objCategory1 Set objCategory1 = Server.CreateObject("ADODB.Recordset") objCategory1.ActiveConnection = Category_STRING objCategory1.Source = "SELECT * FROM Category order by DateAdded ASC" objCategory1.CursorType = 0 objCategory1.CursorLocation = 2 objCategory1.LockType = 3 objCategory1.Open() dim ikira1 ikira1 = 1 %> <%DO WHILE NOT objCategory1.EOF%> <% x_ID1 = cint(objCategory1("ID")) %>

<%=objCategory1("Title")%> (Total: <% Dim objAdminPro Set objAdminPro = Server.CreateObject("ADODB.Recordset") objAdminPro.ActiveConnection = Category_STRING objAdminPro.Source = "SELECT COUNT (*) as TOTAL FROM product Where Category = '"& x_ID1 &"'" objAdminPro.CursorType = 0 objAdminPro.CursorLocation = 2 objAdminPro.LockType = 3 objAdminPro.Open() if NOT objAdminPro.EOF then %> <%=objAdminPro("TOTAL")%> items)

" class="navlink1">More

<% Dim Pro1 Set Pro1 = Server.CreateObject("ADODB.Recordset") Pro1.ActiveConnection = Category_STRING Pro1.Source = "SELECT * FROM product Where Category = '"& x_ID1 &"' order by DateAdded ASC" Pro1.CursorType = 0 Pro1.CursorLocation = 2 Pro1.LockType = 3 Pro1.Open() %> <% recCount = 0 DO WHILE (NOT Pro1.EOF) AND (recCount < 4) recCount = recCount + 1 %> <% Pro1.MOVENEXT LOOP %> <% end if Pro1.Close Set pro1 = Nothing %>

<% dim pic1 pic1 = Pro1("pic") if pic1 <> 1 then %> "> <%=Pro1(

" width="100" height="110" border="0"> <% else %> ">

.jpg" alt="<%=Pro1("Name")%>" width="100" height="110" border="0"> <% end if %>
<%=Pro1("Name")%>

<% ikira1 = ikira1 + 1 objCategory1.MOVENEXT LOOP objCategory1.Close Set objCategory1 = Nothing %>