<% If LCase(Request.Cookies("IWGalleryAccess")) <> "amministratore" Then Response.Redirect("logout.asp?reason=Accesso negato") %> <% pau_AutoCreatePath(Server.MapPath(strPublicPath & "/_templates")) %> <% Dim rsUsers Dim rsUsers_numRows Set rsUsers = Server.CreateObject("ADODB.Recordset") rsUsers.ActiveConnection = MM_connIWGallery_STRING rsUsers.Source = "SELECT * FROM USERS WHERE USE_APPROVED = 0 ORDER BY USE_DATED" rsUsers.CursorType = 0 rsUsers.CursorLocation = 2 rsUsers.LockType = 1 rsUsers.Open() rsUsers_numRows = 0 %> <% Dim rsPictures Dim rsPictures_numRows Set rsPictures = Server.CreateObject("ADODB.Recordset") rsPictures.ActiveConnection = MM_connIWGallery_STRING rsPictures.Source = "SELECT * FROM PICTURES, USERS WHERE PIC_APPROVED = 0 AND PIC_USER = USE_NAME" rsPictures.CursorType = 0 rsPictures.CursorLocation = 2 rsPictures.LockType = 1 rsPictures.Open() rsPictures_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsUsers_numRows = rsUsers_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsPictures_numRows = rsPictures_numRows + Repeat2__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsUsers_total Dim rsUsers_first Dim rsUsers_last ' set the record count rsUsers_total = rsUsers.RecordCount ' set the number of rows displayed on this page If (rsUsers_numRows < 0) Then rsUsers_numRows = rsUsers_total Elseif (rsUsers_numRows = 0) Then rsUsers_numRows = 1 End If ' set the first and last displayed record rsUsers_first = 1 rsUsers_last = rsUsers_first + rsUsers_numRows - 1 ' if we have the correct record count, check the other stats If (rsUsers_total <> -1) Then If (rsUsers_first > rsUsers_total) Then rsUsers_first = rsUsers_total End If If (rsUsers_last > rsUsers_total) Then rsUsers_last = rsUsers_total End If If (rsUsers_numRows > rsUsers_total) Then rsUsers_numRows = rsUsers_total End If End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsPictures_total Dim rsPictures_first Dim rsPictures_last ' set the record count rsPictures_total = rsPictures.RecordCount ' set the number of rows displayed on this page If (rsPictures_numRows < 0) Then rsPictures_numRows = rsPictures_total Elseif (rsPictures_numRows = 0) Then rsPictures_numRows = 1 End If ' set the first and last displayed record rsPictures_first = 1 rsPictures_last = rsPictures_first + rsPictures_numRows - 1 ' if we have the correct record count, check the other stats If (rsPictures_total <> -1) Then If (rsPictures_first > rsPictures_total) Then rsPictures_first = rsPictures_total End If If (rsPictures_last > rsPictures_total) Then rsPictures_last = rsPictures_total End If If (rsPictures_numRows > rsPictures_total) Then rsPictures_numRows = rsPictures_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsUsers_total = -1) Then ' count the total records by iterating through the recordset rsUsers_total=0 While (Not rsUsers.EOF) rsUsers_total = rsUsers_total + 1 rsUsers.MoveNext Wend ' reset the cursor to the beginning If (rsUsers.CursorType > 0) Then rsUsers.MoveFirst Else rsUsers.Requery End If ' set the number of rows displayed on this page If (rsUsers_numRows < 0 Or rsUsers_numRows > rsUsers_total) Then rsUsers_numRows = rsUsers_total End If ' set the first and last displayed record rsUsers_first = 1 rsUsers_last = rsUsers_first + rsUsers_numRows - 1 If (rsUsers_first > rsUsers_total) Then rsUsers_first = rsUsers_total End If If (rsUsers_last > rsUsers_total) Then rsUsers_last = rsUsers_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsPictures_total = -1) Then ' count the total records by iterating through the recordset rsPictures_total=0 While (Not rsPictures.EOF) rsPictures_total = rsPictures_total + 1 rsPictures.MoveNext Wend ' reset the cursor to the beginning If (rsPictures.CursorType > 0) Then rsPictures.MoveFirst Else rsPictures.Requery End If ' set the number of rows displayed on this page If (rsPictures_numRows < 0 Or rsPictures_numRows > rsPictures_total) Then rsPictures_numRows = rsPictures_total End If ' set the first and last displayed record rsPictures_first = 1 rsPictures_last = rsPictures_first + rsPictures_numRows - 1 If (rsPictures_first > rsPictures_total) Then rsPictures_first = rsPictures_total End If If (rsPictures_last > rsPictures_total) Then rsPictures_last = rsPictures_total End If End If %>

Da approvare

Utenti: <%=(rsUsers_total)%>   <% If Not rsUsers.EOF Or Not rsUsers.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsUsers.EOF)) %> <% If Repeat1__numRows Mod 2 Then %> <% Else %> <% End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsUsers.MoveNext() Wend %>   Login Nome e Cognome Data     "> <%=(rsUsers.Fields.Item("USE_NAME").Value)%> <%=(rsUsers.Fields.Item("USE_FIRST").Value)%> <%=(rsUsers.Fields.Item("USE_LAST").Value)%> <%= DoDateTime((rsUsers.Fields.Item("USE_DATED").Value), 2, 2057) %> &nUser=<%=(rsUsers.Fields.Item("USE_NAME").Value)%>"> &nUser=<%=(rsUsers.Fields.Item("USE_NAME").Value)%>" onClick="GP_popupConfirmMsg('Cancellare definitivamente l\'Utente selezionato (<%=(rsUsers.Fields.Item("USE_NAME").Value)%>)?');return document.MM_returnValue"> <% End If ' end Not rsUsers.EOF Or NOT rsUsers.BOF %> Immagini: <%=(rsPictures_total)%>   <% If Not rsPictures.EOF Or Not rsPictures.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT rsPictures.EOF)) %> <% If Repeat2__numRows Mod 2 Then %> <% Else %> <% End If %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsPictures.MoveNext() Wend %> Immagine Autore Data     ')">" title="<%=(rsPictures.Fields.Item("PIC_TITLE").Value)%> (<%=(rsPictures.Fields.Item("PIC_FILE").Value)%>)" alt="<%=(rsPictures.Fields.Item("PIC_TITLE").Value)%> (<%=(rsPictures.Fields.Item("PIC_FILE").Value)%>)" border="0"> "> - <%=(rsPictures.Fields.Item("USE_FIRST").Value)%> <%=(rsPictures.Fields.Item("USE_LAST").Value)%>"><%=(rsPictures.Fields.Item("USE_NAME").Value)%> <%= DoDateTime((rsPictures.Fields.Item("PIC_DATED").Value), 2, 2057) %> &iCat=<%=(rsPictures.Fields.Item("PIC_CATEGORY").Value)%>&lCat=<%=(rsPictures.Fields.Item("PIC_LISTING").Value)%>"> &iCat=<%=(rsPictures.Fields.Item("PIC_CATEGORY").Value)%>&lCat=<%=(rsPictures.Fields.Item("PIC_LISTING").Value)%>" onClick="GP_popupConfirmMsg('Cancellare definitivamente l\'immagine <%=(rsPictures.Fields.Item("PIC_FILE").Value)%>?');return document.MM_returnValue"> <% End If ' end Not rsPictures.EOF Or NOT rsPictures.BOF %>

<% rsUsers.Close() Set rsUsers = Nothing %> <% rsPictures.Close() Set rsPictures = Nothing %>