<% If (strPrivate = 1 AND Request.Cookies("IWGalleryUserName") = "") Then Response.Redirect("../home/") %> <% set rsDefaultCats = Server.CreateObject("ADODB.Recordset") rsDefaultCats.ActiveConnection = MM_connIWGallery_STRING rsDefaultCats.Source = "SELECT * FROM CATEGORIES WHERE CAT_PARENT = 0 AND CAT_ACTIVE = 1 ORDER BY CAT_NAME ASC" rsDefaultCats.CursorType = 0 rsDefaultCats.CursorLocation = 2 rsDefaultCats.LockType = 3 rsDefaultCats.Open() rsDefaultCats_numRows = 0 %> <% set rsDefaultSubs = Server.CreateObject("ADODB.Recordset") rsDefaultSubs.ActiveConnection = MM_connIWGallery_STRING rsDefaultSubs.Source = "SELECT * FROM CATEGORIES WHERE CAT_ACTIVE = 1 ORDER BY CAT_NAME ASC" rsDefaultSubs.CursorType = 0 rsDefaultSubs.CursorLocation = 2 rsDefaultSubs.LockType = 3 rsDefaultSubs.Open() rsDefaultSubs_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 rsDefaultCats_numRows = rsDefaultCats_numRows + HLooper1__numRows %>

Immagini

<% If Not rsDefaultCats.EOF Or Not rsDefaultCats.BOF Then %> Seleziona una categoria <% startrw = 0 endrw = HLooper1__index numberColumns = 2 numrows = -1 while((numrows <> 0) AND (Not rsDefaultCats.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsDefaultCats.EOF)) strCatId = rsDefaultCats.Fields.Item("CAT_ID").Value set rsCatCount = Server.CreateObject("ADODB.Recordset") rsCatCount.ActiveConnection = MM_connIWGallery_STRING rsCatCount.Source = "SELECT COUNT(*) AS PIC_COUNT FROM PICTURES WHERE PIC_LISTING LIKE '%." & strCatId & ".%' AND PIC_APPROVED = 1 AND PIC_ACTIVE = 1" rsCatCount.CursorType = 0 rsCatCount.CursorLocation = 2 rsCatCount.LockType = 3 rsCatCount.Open() rsCatCount_numRows = 0 %> <% startrw = startrw + 1 rsDefaultCats.MoveNext() Wend %> <% numrows=numrows-1 Wend %> "><%=(rsDefaultCats.Fields.Item("CAT_NAME").Value)%> (<%=(rsCatCount.Fields.Item("PIC_COUNT").Value)%>) <% rsCatCount.Close() Set rsCatCount = Nothing %> <% Dim rsDefaultSubs__numRows rsDefaultSubs__numRows = 3 Dim rsDefaultSubs__index rsDefaultSubs__index = 0 rsDefaultSubs_numRows = rsDefaultSubs_numRows + rsDefaultSubs__numRows rsDefaultSubs.Filter = "CAT_PARENT=" & rsDefaultCats.Fields.Item("CAT_ID").Value %> <% While ((rsDefaultSubs__numRows <> 0) AND (NOT rsDefaultSubs.EOF)) %> <%=(rsDefaultSubs.Fields.Item("CAT_NAME").Value)%> <% If rsDefaultSubs__index - 1 > 0 Then Response.Write(" ...") Else Response.Write(", ") End If %> <% rsDefaultSubs__index=rsDefaultSubs__index+1 rsDefaultSubs__numRows=rsDefaultSubs__numRows-1 rsDefaultSubs.MoveNext() Wend %> <% End If ' end Not rsDefaultCats.EOF Or NOT rsDefaultCats.BOF %>

<% rsDefaultCats.Close() Set rsDefaultCats = Nothing %> <% rsDefaultSubs.Close() Set rsDefaultSubs = Nothing %>