<% set rsTypes = Server.CreateObject("ADODB.Recordset") rsTypes.ActiveConnection = MM_connDUarticle_STRING rsTypes.Source = "SELECT *, (SELECT COUNT(*) FROM BARZELLETTE WHERE ART_TYPE = TYPE_ID AND ART_APPROVED=1) AS ART_COUNT FROM BARZELLETTE_TYPES ORDER BY TYPE_NAME ASC" rsTypes.CursorType = 0 rsTypes.CursorLocation = 2 rsTypes.LockType = 3 rsTypes.Open() rsTypes_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 rsTypes_numRows = rsTypes_numRows + HLooper1__numRows %>

<% startrw = 0 endrw = HLooper1__index numberColumns = 2 numrows = -1 while((numrows <> 0) AND (Not rsTypes.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsTypes.EOF)) %> <% startrw = startrw + 1 rsTypes.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

	"><%=(rsTypes.Fields.Item("TYPE_NAME").Value)%> (<%=(rsTypes.Fields.Item("ART_COUNT").Value)%>)
	<%=(rsTypes.Fields.Item("TYPE_DESCRIPTION").Value)%>

barzellette | invia una barzelletta

<% rsTypes.Close() %>