<%@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
%>
Promotion > Tools > Catlog > Id
