Modificare il file:
\registrazione\lista_utenti.asp
<!--#include file="inc_common.asp" --> <!--#include file="inc_checklogin.asp" --> <!--#include file="inc_lista_utenti.asp" --> <% Server.Execute("header.asp") %> <% If str_users_authority = "user" Then Response.Redirect("noentry.asp?entryType=noAdmin") ElseIf str_users_name = "" Then Response.Redirect("noentry.asp") Else %> <title><%=pageTitle%> - <%=str_users_name%> - Visualizza la lista degli utenti</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="28"> <tr> <td height="14"><p><img src="../Logo04-100x99.png" width="100" height="99" /></p> <p> </p></td> </tr> <tr> <td width="100%" height="14"> <img border="0" src="images/lista_utenti.gif"></td> </tr> </table> <br> <div align="center"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"> <tr> <td width="769"> <!-- Inizio della tabella --> <p align="center"><b><font color="#FF0000" size="2">Utenti Attivi</font></b></p> <div align="left"> <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="100%"> <tr> <th width="48%" bgcolor="#FFFF99">Username</th> <th width="19%" bgcolor="#FFFF99">Tipo di Account</th> <th width="33%" bgcolor="#FFFF99">Opzioni</th> </tr> <% While not rs_userlist.EOF If rs_userlist("stato") = "Active" Then %> <tr> <td width="48%"><a href="visualizza_profilo.asp<% If rs_userlist("code") <> str_users_code Then %>?mode=viewUser&userCode=<%=rs_userlist("code")%><% End If %>"><%=rs_userlist("name")%></a> </td> <td width="19%"> <% If rs_userlist("authority") = "admin" Then %> Administrator <% ElseIf rs_userlist("authority") = "mod" Then %> Moderatore <% ElseIf rs_userlist("authority") = "user" Then %> User <% End If %> </td> <td width="33%"> <p align="center"><a href="aggiorna_profilo.asp<% If rs_userlist("code") <> str_users_code Then %>?userCode=<%=rs_userlist("code")%><% End If %>"> Modifica Profilo</a> <% If rs_userlist("authority") <> "admin" Then %> | <a href="cancella_utente.asp?userCode=<%=rs_userlist("code")%>">Cancella Utente</a> <% End If %> </td> </tr> <% End If rs_userlist.MoveNext() WEnd %> </table> </div> <p align="center"> </p> <p align="center"><b><font color="#FF0000" size="2">Utenti che devono confermare l'iscrizione</font></b></p> <div align="left"> <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="100%"> <tr> <th width="48%">Username</th> <th width="17%">Tipo di Account</th> <th width="35%">Opzioni</th> </tr> <% iCount = 0 rs_userlist.MoveFirst() While not rs_userlist.EOF If rs_userlist("stato") = "Attesa" Then iCount = iCount + 1 %> <tr> <td width="48%"><a href="visualizza_profilo.asp?mode=viewUser&userCode=<%=rs_userlist("code")%>"><%=rs_userlist("name")%></a> </td> <td width="17%"> <% If rs_userlist("authority") = "mod" Then %> Moderatore <% ElseIf rs_userlist("authority") = "user" Then %> User <% End If %> </td> <td width="35%"> <p align="center"><a href="attivo.asp?userCode=<%=rs_userlist("code")%>"> Attiva Utente</a> | <a href="aggiorna_profilo.asp?userCode=<%=rs_userlist("code")%>">Modifica Profilo</a> | <a href="cancella_utente.asp?userCode=<%=rs_userlist("code")%>"> Cancella Utente</a></td> </tr> <% End If rs_userlist.MoveNext() WEnd %> <% If iCount = 0 Then %> <tr> <td width="48%">Non ci sono utenti in Attesa di attivazione</td> <td width="17%"></td> <td width="35%"></td> </tr> <% End If %> </table> </div> <p align="center"> </p> <p align="center"><b><font color="#FF0000" size="2">Utenti Sospesi</font></b></p> <div align="left"> <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="100%"> <tr> <th width="48%" bgcolor="<%=tableColor%>">Username</th> <th width="17%" bgcolor="<%=tableColor%>">Tipo di Account</th> <th width="35%" bgcolor="<%=tableColor%>">Opzioni</th> </tr> <% iCount = 0 rs_userlist.MoveFirst() While not rs_userlist.EOF If rs_userlist("stato") = "Disabled" Then iCount = iCount + 1 %> <tr> <td width="48%"><a href="visualizza_profilo.asp?mode=viewUser&userCode=<%=rs_userlist("code")%>"><%=rs_userlist("name")%></a> </td> <td width="17%"> <% If rs_userlist("authority") = "mod" Then %> Moderatore <% ElseIf rs_userlist("authority") = "user" Then %> User <% End If %> </td> <td width="35%"> <p align="center"><a href="aggiorna_profilo.asp?userCode=<%=rs_userlist("code")%>"> Modifica Profilo</a> | <a href="cancella_utente.asp?userCode=<%=rs_userlist("code")%>"> Cancella Utente</a></td> </tr> <% End If rs_userlist.MoveNext() WEnd %> <% If iCount = 0 Then %> <tr> <td width="48%">Non ci sono utenti sospesi</td> <td width="17%"></td> <td width="35%"></td> </tr> <% End If %> </table> </div> <% 'chiudo adoCon e rs_userlist rs_userlist.Close set rs_userlist = Nothing %> <td width="10"> </table> </div> </td> </tr> </table> </div> <% Server.Execute("footer.asp") %> <% End If %>
[
Íàçàä
]