<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLAutore, RSAutore, SQLModifica, RSModifica, FID, FPassword, FPasswordConferma, FPasswordVecchia, FMail, FSito, FICQ, FMSN, FTesto, FImmagine, FAdmin, Errore If Request.QueryString("id") <> "" AND Request.QueryString("id") <> "0" AND IsNumeric(Request.QueryString("id")) = True Then FID = Request.QueryString("id") Else FID = 0 End If %>

\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Autori%> : <%=Testo_Modulo_PulsanteModifica%>

<%=Testo_Autori_IntroduzioneModifica%>

<% If Request.QueryString("a") = "modifica" Then FPassword = Request.Form("Password") FPasswordConferma = Request.Form("PasswordConferma") FPasswordVecchia = Request.Form("PasswordVecchia") FMail = DoppioApice(Request.Form("Mail")) FSito = DoppioApice(Request.Form("Sito")) FICQ = DoppioApice(Request.Form("ICQ")) FMSN = DoppioApice(Request.Form("MSN")) FTesto = DoppioApice(SostituisciCaratteri(Request.Form("Testo"), "Si")) FImmagine = DoppioApice(Request.Form("NomeFile")) FAdmin = Request.Form("Admin") Errore = False If FPassword = "" Then Errore = True Else If FPassword = FPasswordConferma Then If FPassword = FPasswordVecchia Then FPassword = FPassword Else FPassword = getSHAPassword(FPassword) End If Else Errore = True End If End If If Errore = False Then SQLModifica = " UPDATE [Autori] SET Autori.Password = '"& FPassword &"', Autori.Mail = '"& FMail &"', Autori.Sito = '"& FSito &"', Autori.ICQ = '"& FICQ &"', Autori.MSN = '"& FMSN &"', Autori.Testo = '"& FTesto &"', Autori.Immagine = '"& FImmagine &"', " If FAdmin = "si" Then SQLModifica = SQLModifica & "Autori.Admin = True " Else SQLModifica = SQLModifica & "Autori.Admin = False " End If SQLModifica = SQLModifica & "WHERE Autori.ID = "& FID &" " If Session("BLOGAdmin") = False Then SQLModifica = SQLModifica & "AND Autori.Nick = '"& Session("BLOGNick") &"' " End If Set RSModifica = Server.CreateObject("ADODB.Recordset") RSModifica.Open SQLModifica, Conn, 1, 3 Set RSModifica = Nothing %>

<%=Testo_Autori_ModificaABuonFine%>
<%=Testo_Autori_LinkTornaIndietro%>, <%=Testo_Autori_LinkVaiElenco%> <%=Testo_SceltaOppure%> <%=Testo_Link_AvviaUploadFile%>.

<% Else %>

<%=Testo_Autori_ErroreInserimento%>
<%=Testo_Autori_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Autori_LinkVaiElenco%>.

<% End If Else SQLAutore = " SELECT * FROM [Autori] WHERE [ID] = "& FID &" " If Session("BLOGAdmin") = False Then SQLAutore = SQLAutore & "AND [Nick] = '"& Session("BLOGNick") &"' " End If Set RSAutore = Server.CreateObject("ADODB.Recordset") RSAutore.Open SQLAutore, Conn, 1, 3 If NOT RSAutore.EOF Then %>

<%=Testo_Modulo_CampoUserID%> * <%=Testo_Modulo_SpiegazioneCampoUserID%>
     <%=RSAutore("UserID")%>
<%=Testo_Modulo_CampoPassword%> * <%=Testo_Modulo_SpiegazioneCampoPassword%>
     " size="50" maxlength="40"> ">
<%=Testo_Modulo_CampoPasswordConferma%> * <%=Testo_Modulo_SpiegazioneCampoPasswordConferma%>
     " size="50" maxlength="40">
<%=Testo_Modulo_CampoNick%> * <%=Testo_Modulo_SpiegazioneCampoNick%>
     <%=RSAutore("Nick")%>
<%=Testo_Modulo_CampoMail%> <%=Testo_Modulo_SpiegazioneCampoMail%>
      "" Then Response.Write Server.HTMLEncode(RSAutore("Mail")) End If%>" size="50" maxlength="150">
<%=Testo_Modulo_CampoSito%> <%=Testo_Modulo_SpiegazioneCampoSito%>
      "" Then Response.Write Server.HTMLEncode(RSAutore("Sito")) End If%>" size="50" maxlength="250">
<%=Testo_Modulo_CampoICQ%> <%=Testo_Modulo_SpiegazioneCampoICQ%>
      "" Then Response.Write Server.HTMLEncode(RSAutore("ICQ")) End If%>" size="50" maxlength="15">
<%=Testo_Modulo_CampoMSN%> <%=Testo_Modulo_SpiegazioneCampoMSN%>
      "" Then Response.Write Server.HTMLEncode(RSAutore("MSN")) End If%>" size="50" maxlength="150">
<%=Testo_Modulo_CampoProfilo%> <%=Testo_Modulo_SpiegazioneCampoProfilo%>

<%=Testo_Modulo_CampoImmagine%> <%=Testo_Modulo_SpiegazioneCampoImmagine%>
      "" Then Response.Write Server.HTMLEncode(RSAutore("Immagine")) End If%>" size="50" maxlength="250"> <%=Testo_Modulo_LinkPopupCampoFileFotografia%>
<%=Testo_Modulo_CampoAdmin%> <%=Testo_Modulo_SpiegazioneCampoAdmin%> <% If Session("BLOGAdmin") = True Then %>
     <%=Testo_Modulo_CampoAdminSi%> > <%=Testo_Modulo_CampoAdminNo%> > <% Else %>
      <%If RSAutore("Admin") Then Response.Write Testo_Modulo_CampoAdminSi Else Response.Write Testo_Modulo_CampoAdminNo End If%> <% End If %>

<%=Testo_Legenda_CampiObbligatori%>

<% Else %>

<%=Testo_TabellaAutori_ErroreNessunAutoreTrovatoPassaggioParametri%>
<%=Testo_Autori_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Autori_LinkVaiElenco%>.

<% End If Set RSAutore = Nothing End If %>

<% Conn.Close Set Conn = Nothing %>