%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim AllBlends__MMColParam AllBlends__MMColParam = "1" If (Request.QueryString("Category") <> "") Then AllBlends__MMColParam = Request.QueryString("Category") End If %> <% Dim AllBlends Dim AllBlends_numRows Set AllBlends = Server.CreateObject("ADODB.Recordset") AllBlends.ActiveConnection = MM_palladio_STRING AllBlends.Source = "SELECT * FROM Blend WHERE Category = '" + Replace(AllBlends__MMColParam, "'", "''") + "' ORDER BY CodeName ASC" AllBlends.CursorType = 0 AllBlends.CursorLocation = 2 AllBlends.LockType = 1 AllBlends.Open() AllBlends_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 AllBlends_numRows = AllBlends_numRows + HLooper1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim AllBlends_total Dim AllBlends_first Dim AllBlends_last ' set the record count AllBlends_total = AllBlends.RecordCount ' set the number of rows displayed on this page If (AllBlends_numRows < 0) Then AllBlends_numRows = AllBlends_total Elseif (AllBlends_numRows = 0) Then AllBlends_numRows = 1 End If ' set the first and last displayed record AllBlends_first = 1 AllBlends_last = AllBlends_first + AllBlends_numRows - 1 ' if we have the correct record count, check the other stats If (AllBlends_total <> -1) Then If (AllBlends_first > AllBlends_total) Then AllBlends_first = AllBlends_total End If If (AllBlends_last > AllBlends_total) Then AllBlends_last = AllBlends_total End If If (AllBlends_numRows > AllBlends_total) Then AllBlends_numRows = AllBlends_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (AllBlends_total = -1) Then ' count the total records by iterating through the recordset AllBlends_total=0 While (Not AllBlends.EOF) AllBlends_total = AllBlends_total + 1 AllBlends.MoveNext Wend ' reset the cursor to the beginning If (AllBlends.CursorType > 0) Then AllBlends.MoveFirst Else AllBlends.Requery End If ' set the number of rows displayed on this page If (AllBlends_numRows < 0 Or AllBlends_numRows > AllBlends_total) Then AllBlends_numRows = AllBlends_total End If ' set the first and last displayed record AllBlends_first = 1 AllBlends_last = AllBlends_first + AllBlends_numRows - 1 If (AllBlends_first > AllBlends_total) Then AllBlends_first = AllBlends_total End If If (AllBlends_last > AllBlends_total) Then AllBlends_last = AllBlends_total End If End If %>
| Company Promotion Products Design Application Technical Fixing Network Contact Member Sitemap | |
Checklist Substrate Preperation Adhesive Grout Mosaic Fixing Tools Movie |
|
|