<%@LANGUAGE="VBSCRIPT"%> <% set rssp1 = Server.CreateObject("ADODB.Recordset") rssp1.ActiveConnection = MM_connprd_STRING rssp1.Source = "SELECT * FROM tblProducts" rssp1.CursorType = 0 rssp1.CursorLocation = 2 rssp1.LockType = 3 rssp1.Open() rssp1_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -5 Dim HLooper1__index HLooper1__index = 0 rssp1_numRows = rssp1_numRows + HLooper1__numRows %> <% startrw = 0 endrw = HLooper1__index numberColumns = 5 numrows = -1 while((numrows <> 0) AND (Not rssp1.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rssp1.EOF)) %> <% startrw = startrw + 1 rssp1.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
.jpg" width="56" height="69" border="0">
<%=(rssp1.Fields.Item("product_code").Value)%>
<%=(rssp1.Fields.Item("name").Value)%>
<% rssp1.Close() %>