<% Server.Execute("header.asp") %> <% Dim isCodeValid Dim str_stato, str_name 'Credo stringa SQL validateSQL = "SELECT * FROM tbl_Authors WHERE code='" & str_code & "'" 'Creo un nuovo recordsheet Set rs_validate = Server.CreateObject ("ADODB.RecordSet") 'Apro il record sheet e eseguo SQL rs_validate.open validateSQL,adoCon 'Se il codice non è valido setto isCodeValid = false If rs_validate.EOF _ Or rs_validate.BOF Then isCodeValid = false Else isCodeValid = true End If %> <%=pageTitle%> - <%=str_users_name%> <% If str_users_stato = "Active" Then %> <% If Request.QueryString("mode") = "viewUser" AND isCodeValid = true AND str_users_authority <> "user" AND rs_viewuser("authority") <> "admin" AND str_users_code <> rs_viewuser("code") Then %>

Benvenuto, <%=str_users_name%>!

:: <%=rs_viewuser("name")%> ::

<% If rs_viewuser("stato") = "Disabled" Then %> <% End If %>
Username <%=rs_viewuser("name")%>
Nome <%=rs_viewuser("nome")%>
Cognome <%=rs_viewuser("cognome")%>
Password <% If str_users_authority = "admin" Then %> ')">Visualizza <% Else %> ... <% End If %>
Email "><%=rs_viewuser("email")%>
Telefono/Cellulare <%=rs_viewuser("Tel")%>
   
Tipo di Account <%=rs_viewuser("authority")%>
Data di Registrazione <%=rs_viewuser("dataregistrazione")%>
User Code <%=rs_viewuser("code")%>
Motivo per la disattivazione <%=rs_viewuser("utentesospeso")%>
<% If str_users_authority = "admin" Then %>
'" value="Aggiorna" name="UpdateProfile"> ' }" value="Cancella" name="Logout">
<% End If %> <% ElseIf str_users_authority = "mod" AND (rs_viewuser("authority") <> "user" AND str_users_code <> rs_viewuser("code")) Then %>

<%=str_users_name%>!  Stai cercando di modificare un utente che ha permessi di amministrazione.

<% Else %>
Username <%=str_users_name%>
Nome <%=str_users_nome%>
Cognome <%=str_users_cognome%>
Password Visualizza
Email <%=str_users_email%>
Telefono/Cellulare <%=str_users_Tel%>
Data di Registrazione <%=str_users_date%>
User Code <%=str_users_code%>

'" value="Aggiorna" name="UpdateProfile">
<% End If %> <% If str_users_authority = "admin" Then %>

Opzioni di amministrazione:

Lista degli utenti
Modifica le impostazioni

<% ElseIf str_users_authority = "mod" Then %>

Opzioni moderatore:

Visualizza la lista degli utenti

<% End If %> <% ElseIf str_users_stato = "Attesa" Then %>

Il tuo account è in Attesa di conferma.  Per attivare l'account controllare l'email e clikkare sul link. In caso di problemi contatta il Webmaster.

<% ElseIf str_users_stato = "Attesa" Then %>

Il tuo account è stato sospeso.  Se pensi che possa essere riattivato, contatta il Webmaster.

Ragione per la sospensione:
    <% curReason = Split(str_users_utentesospeso, ";") i = 0 For Each reason In curReason %>
  • <%=curReason(i)%>
    • <% i = i + 1 Next %>
<% Else Response.Redirect("login.asp") End If 'Close rs_validate rs_validate.Close %> <% Server.Execute("footer.asp") %>