<%@LANGUAGE="VBSCRIPT"%> <% Dim rsRelatedMerchandise Dim rsRelatedMerchandise_numRows Set rsRelatedMerchandise = Server.CreateObject("ADODB.Recordset") rsRelatedMerchandise.ActiveConnection = MM_cnMerchandise_STRING rsRelatedMerchandise.Source = "SELECT * FROM related_merchandise ORDER BY ID DESC" rsRelatedMerchandise.CursorType = 0 rsRelatedMerchandise.CursorLocation = 2 rsRelatedMerchandise.LockType = 1 rsRelatedMerchandise.Open() rsRelatedMerchandise_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsRelatedMerchandise_numRows = rsRelatedMerchandise_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsRelatedMerchandise_total Dim rsRelatedMerchandise_first Dim rsRelatedMerchandise_last ' set the record count rsRelatedMerchandise_total = rsRelatedMerchandise.RecordCount ' set the number of rows displayed on this page If (rsRelatedMerchandise_numRows < 0) Then rsRelatedMerchandise_numRows = rsRelatedMerchandise_total Elseif (rsRelatedMerchandise_numRows = 0) Then rsRelatedMerchandise_numRows = 1 End If ' set the first and last displayed record rsRelatedMerchandise_first = 1 rsRelatedMerchandise_last = rsRelatedMerchandise_first + rsRelatedMerchandise_numRows - 1 ' if we have the correct record count, check the other stats If (rsRelatedMerchandise_total <> -1) Then If (rsRelatedMerchandise_first > rsRelatedMerchandise_total) Then rsRelatedMerchandise_first = rsRelatedMerchandise_total End If If (rsRelatedMerchandise_last > rsRelatedMerchandise_total) Then rsRelatedMerchandise_last = rsRelatedMerchandise_total End If If (rsRelatedMerchandise_numRows > rsRelatedMerchandise_total) Then rsRelatedMerchandise_numRows = rsRelatedMerchandise_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsRelatedMerchandise_total = -1) Then ' count the total records by iterating through the recordset rsRelatedMerchandise_total=0 While (Not rsRelatedMerchandise.EOF) rsRelatedMerchandise_total = rsRelatedMerchandise_total + 1 rsRelatedMerchandise.MoveNext Wend ' reset the cursor to the beginning If (rsRelatedMerchandise.CursorType > 0) Then rsRelatedMerchandise.MoveFirst Else rsRelatedMerchandise.Requery End If ' set the number of rows displayed on this page If (rsRelatedMerchandise_numRows < 0 Or rsRelatedMerchandise_numRows > rsRelatedMerchandise_total) Then rsRelatedMerchandise_numRows = rsRelatedMerchandise_total End If ' set the first and last displayed record rsRelatedMerchandise_first = 1 rsRelatedMerchandise_last = rsRelatedMerchandise_first + rsRelatedMerchandise_numRows - 1 If (rsRelatedMerchandise_first > rsRelatedMerchandise_total) Then rsRelatedMerchandise_first = rsRelatedMerchandise_total End If If (rsRelatedMerchandise_last > rsRelatedMerchandise_total) Then rsRelatedMerchandise_last = rsRelatedMerchandise_total End If End If %> TOTAL RED DWARF - MERCHANDISE

Red Dwarf Related Merchandise
<% While ((Repeat1__numRows <> 0) AND (NOT rsRelatedMerchandise.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsRelatedMerchandise.MoveNext() Wend %>
Description

Picture

<%=(rsRelatedMerchandise.Fields.Item("Type").Value)%>

<%=(rsRelatedMerchandise.Fields.Item("Decription").Value)%>

<%=(rsRelatedMerchandise.Fields.Item("Notes").Value)%>

 " width="175" height="200">
<%=(rsRelatedMerchandise_total)%> items listed back

 

<% rsRelatedMerchandise.Close() Set rsRelatedMerchandise = Nothing %>