<%
'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="&productstoshow)
'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
%>
- <%= CategoryTitle%>
<%
rowcount = rowcount + 1
rs.movenext
wend
%>
|
<%= Gallery%>
|
<%else%>
