Untitled Document

<%@LANGUAGE="VBSCRIPT"%> <% set rsDesign = Server.CreateObject("ADODB.Recordset") rsDesign.ActiveConnection = MM_Mustard_STRING rsDesign.Source = "SELECT * FROM gallery WHERE galcategory = 'Multimedia'" rsDesign.CursorType = 0 rsDesign.CursorLocation = 2 rsDesign.LockType = 3 rsDesign.Open() rsDesign_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = 6 Dim HLooper1__index HLooper1__index = 0 rsDesign_numRows = rsDesign_numRows + HLooper1__numRows %> Untitled Document

<% If Not rsDesign.EOF Or Not rsDesign.BOF Then %> <% startrw = 0 endrw = HLooper1__index numberColumns = 6 numrows = 1 while((numrows <> 0) AND (Not rsDesign.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsDesign.EOF)) %> <% startrw = startrw + 1 rsDesign.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

Title: <%=(rsDesign.Fields.Item("galtitle").Value)%>	">
Client: <%=(rsDesign.Fields.Item("galclientname").Value)%>

<% End If ' end Not rsDesign.EOF Or NOT rsDesign.BOF %>

<% rsDesign.Close() %>