%@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))
%>
|
Title:
<%=(rsDesign.Fields.Item("galtitle").Value)%>
|
"> |
Client:
<%=(rsDesign.Fields.Item("galclientname").Value)%> |
|
|
<%
startrw = startrw + 1
rsDesign.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>
<% End If ' end Not rsDesign.EOF Or NOT rsDesign.BOF %>
|
<%
rsDesign.Close()
%>