<% Server.Execute("header.asp") %> <% If str_users_authority <> "admin" Then Response.Redirect("noentry.asp?entryType=noAdmin") 'Response.Write(str_users_authority) End If %> <% If Request.QueryString("step") = "2" Then 'Set le variabili da inserire nel database da parte di admin new_adminEmail = Replace(Request.Form("adminEmail"), "'", "''") new_TitoloSito = Replace(Request.Form("TitoloSito"), "'", "''") new_homePage = Replace(Request.Form("homePage"), "'", "''") new_mailHost = Replace(Request.Form("mailHost"), "'", "''") new_tipoMail = Request.Form("tipoMail") new_conf_email = Request.Form("conf_email") If new_adminEmail = "" OR new_TitoloSito = "" OR new_homePage = "" Then emptyValue = True Else emptyValue = False End If If emptyValue = False Then Set RS = Server.CreateObject ("ADODB.RecordSet") Sql = "SELECT * FROM tbl_admin" RS.Open Sql,adoCon,2,3 RS("adminEmail") = new_adminEmail RS("TitoloSito") = new_TitoloSito RS("homePage") = new_homePage RS("mailHost") = new_mailHost RS("tipoMail") = new_tipoMail RS("conf_email") = new_conf_email RS.Update RS.Close Response.Redirect("visualizza_profilo.asp") End If End If %> <%=pageTitle%> - Modificare le impostazioni
<% If Request.QueryString("setup") = "firstTime" Then %>

Ciao, <%=str_users_name%>!  da questo pannello di controllo potrai modificare la tua email, il server di posta...

<% Else %>
<% End If %>
I campi contrassegnati con * sono obbligatori.
<% If emptyValue = True AND new_adminEmail = "" Then %> <% End If %> Email Amministratore <% If emptyValue = True AND new_adminEmail = "" Then %> <% End If %> *
Server di Posta
Sistema invio email*
Conferma per email*
<% If emptyValue = True AND new_TitoloSito = "" Then %> <% End If %> Titolo del Sito <% If emptyValue = True AND new_TitoloSito = "" Then %> <% End If %> *
<% If emptyValue = True AND new_homePage = "" Then %> <% End If %> Home Page URL <% If emptyValue = True AND new_homePage = "" Then %> <% End If %> * (http://www...)
<% Server.Execute("footer.asp") %>