<% Sub ErrorRedirection Response.Redirect("/sub-tyre-products.asp") Response.End() End Sub Sub GetSetValue TotalRecordFound = 0 SearchProductTypeID = Request("sltProductType") If SearchProductTypeID <> "" Then If NOT IsNumeric(SearchProductTypeID) Then Call ErrorRedirection() End If SearchProductTypeID = CInt(SearchProductTypeID) End If SearchProductPatternID = Request("sltProductPattern") If SearchProductPatternID <> "" Then If NOT IsNumeric(SearchProductPatternID) Then Call ErrorRedirection() End If SearchProductPatternID = CInt(SearchProductPatternID) End If SearchProductSizeID = Request("sltProductSize") If SearchProductSizeID <> "" Then If NOT IsNumeric(SearchProductSizeID) Then Call ErrorRedirection() End If SearchProductSizeID = CInt(SearchProductSizeID) End If RecordPerPage = 9 PageIndex = 1 If Request("PageIndex") <> "" Then PageIndex = CInt(Request("PageIndex")) End If End Sub Sub SearchProduct Dim rsGet Dim sqlStatement Set rsGet = Server.CreateObject("ADODB.RecordSet") sqlStatement = "SELECT * FROM st_product WHERE 1=1" If SearchProductTypeID <> "" Then sqlStatement = sqlStatement & " AND FIND_IN_SET('" & SearchProductTypeID & "',TypeID)" End If If SearchProductPatternID <> "" Then sqlStatement = sqlStatement & " AND FIND_IN_SET('" & SearchProductPatternID & "',PatternID)" End If If SearchProductSizeID <> "" Then sqlStatement = sqlStatement & " AND FIND_IN_SET('" & SearchProductSizeID & "',SizeID)" End If Set rsGet = QueryDB(sqlStatement) If Not rsGet.EOF Then rsGet.sort = "ProductName ASC" ResultSet = rsGet.GetRows TotalRecordFound = UBound(ResultSet,2) + 1 ResultProductIDIndex = 0 ResultProductNameIndex = 4 ResultImageFileNameSIndex = 7 End If rsGet.close Set rsGet = nothing End Sub %> <% Dim SearchProductTypeID, SearchProductPatternID, SearchProductSizeID Dim ResultSet Dim TotalRecordFound Dim ResultProductIDIndex, ResultProductNameIndex, ResultImageFileNameSIndex Dim TotalPages Dim RecordPerPage, PageIndex Dim RecordFrom, RecordTo Dim iPage %> <% Call GetSetValue() Call SearchProduct() RecordFrom = ((PageIndex - 1) * RecordPerPage) + 1 RecordTo = PageIndex * RecordPerPage If RecordTo > TotalRecordFound Then RecordTo = TotalRecordFound End If TotalPages = Round(TotalRecordFound/RecordPerPage) If TotalPages < (TotalRecordFound/RecordPerPage) Then TotalPages = TotalPages + 1 End If %> Sunrich Integrated
Home About Us Holding Company Technology Career Opportunities Media Centre Contacts


PRODUCTS

<% For RowCounter = (RecordFrom-1) TO (RecordTo - 1) %> <% Next %>

Copyright © Sunrich Integrated. All Rights Reserved