<% 'Set the response buffer to true as we maybe redirecting and setting a cookie Response.Buffer = true 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" Dim checkURLQuery checkURLQuery = formatURLFilter(Request.ServerVariables("QUERY_STRING")) %> <% Dim productssection : productssection = Request.QueryString("catid") Dim productscategory : productscategory = Request.QueryString("subcatid") Dim sqlquery Dim HeaderCategory if productscategory = "" then productscategory = 0 else productscategory = productscategory end if rs.Open "Select * from tbl_Kaizenint_Category Where CategoryId="& productscategory &";", objconn, 3, 2 if not rs.eof then HeaderCategory = rs("CategoryTitle") & " :: " end if rs.Close if productssection = 1 then sqlquery = "Select * From tbl_Kaizenint_Products Where ProductSection = 'Kaizen Tools' and CategoryId="& clng(productscategory) &" and trashed=0 ORDER BY ProductSection, CategoryId;" elseif productssection = 2 then sqlquery = "Select * From tbl_Kaizenint_Products Where ProductSection = 'Kaizen Equipments' and CategoryId="& clng(productscategory) &" and trashed=0 ORDER BY ProductSection, CategoryId;" elseif productssection = 3 then sqlquery = "Select * From tbl_Kaizenint_Products Where ProductSection = 'Kaizen Technology' and CategoryId="& clng(productscategory) &" and trashed=0 ORDER BY ProductSection, CategoryId;" elseif productssection = 4 then sqlquery = "Select * From tbl_Kaizenint_Products Where ProductSection = 'Kaizen International' and CategoryId="& clng(productscategory) &" and trashed=0 ORDER BY ProductSection, CategoryId;" else sqlquery = "Select * From tbl_Kaizenint_Products Where ProductSection = 'Kaizen Tools' and CategoryId="& clng(productscategory) &" and trashed=0 ORDER BY ProductSection, CategoryId;" end if %> Pharmaceutical Machinery: Mass Mixers, Blenders, Granulators and Dryers
Pharmaceutical Machinery Manufacturers and Exporters
 
 
<%if productssection = 1 then%>Kaizen Tooling Technology<%end if%> <%if productssection = 2 then%>Kaizen Equipments<%end if%> <%if productssection = 3 then%>Kaizen Technology<%end if%> <%if productssection = 4 then%>Kaizen International<%end if%>
Back 
<% Dim currentpage Dim rowcount Dim ct Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adCmdTableDirect = &H0200 Const adUseClient = 3 currentpage = trim(request.QueryString("page")) if currentpage = "" then currentpage = 1 end if rs.CursorLocation = adUseClient rs.Open sqlquery, objconn, 3, 2 if not rs.eof then rs.PageSize = 10 rs.absolutepage = cint(currentpage) totalPages = rs.PageCount TotalRecords = rs.RecordCount TotalPageSize = rs.PageSize rowcount = 0 if cint(currentpage) = 1 then ct = 0 elseif cint(currentpage) >1 then ct= ((cint(currentpage) - 1 ) * 10) end if %>
 
<%response.Write("Page : " ¤tpage& " of " & totalPages) %> <%ps = getPaginationString(Clng(currentpage), TotalRecords, TotalPageSize, 1, "products1.asp?i=1&catid="&productssection&"&subcatid="&Categoryid) Response.Write(ps)%>
 
<% dim inext : inext = 0 while not rs.eof and rowcount < rs.pagesize ct = ct + 1 id = ProductId = CategoryId = ProductsTitle = SubCategoryTitle = CategoryTitle = "" id = rs("ProductId") CategoryId = rs("CategoryId") ProductSection = rs("ProductSection") ProductTitle = rs("ProductTitle") if rs("ProductDetails") <> "" then ProductDetails = getWords(18,rs("ProductDetails")) & "..." else ProductDetails = "(no details)" end if ProductImage1 = rs("ProductImage1") if ISEmpty(CategoryId) = false then if IsNumeric(CategoryId) then rs2.Open "Select * From tbl_Kaizenint_Category Where CategoryId="&Clng(CategoryId)&" and trashed=0;", objconn, 3, 2 if not rs2.eof then CategoryTitle = rs2("CategoryTitle") else CategoryTitle = "---" end if rs2.Close else CategoryTitle = "---" end if else CategoryTitle = "---" end if %>
<%= ProductTitle%>

<%if ProductDetails <> "" then%> <%= ProductDetails%> <%end if%>

<%if ProductImage1 <> "" then%> <%= ProductImage1%> <%else%> noimage <%end if%>
Click here for details


<% rowcount = rowcount + 1 rs.movenext wend %>
<%else%>





Coming Soon
<%end if%>
 
 
Copyright 2010-2011. Kaizen International. All Rights Reserved .Designed by kiteindia.com Site map  |  Privacy policy  |  Terms & Conditions
Key Products: The Inspection Kit | Tool Kit | Tablet Dust Extractor | Tablet Dies & Punches | Tablet De-Dusters | Dies Punches Storage Cabinets