<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLAggiungi, RSAggiungi, SQLCerca, RSCerca, FID, FUserID, FPassword, FPasswordConferma, FNick, FMail, FSito, FICQ, FMSN, FTesto, FImmagine, FAdmin, Errore %>

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

<% If Session("BLOGAdmin") = True Then %>

<%=Testo_Autori_IntroduzioneAggiungi%>

<% If Request.QueryString("a") = "aggiungi" Then FUserID = DoppioApice(Request.Form("UserID")) FPassword = Request.Form("Password") FPasswordConferma = Request.Form("PasswordConferma") FNick = DoppioApice(Request.Form("Nick")) 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 FUserID = "" Then Errore = True Else If InStr(FUserID, "%") > 0 OR InStr(FUserID, "[") > 0 OR InStr(FUserID, "]") > 0 OR InStr(FUserID, "_") > 0 OR InStr(FUserID, "#") > 0 Then Errore = True End If End If If FPassword = "" Then Errore = True Else If FPassword <> FPasswordConferma Then Errore = True End If End If If FNick = "" Then Errore = True End If If FNick <> "" AND FUserID <> "" Then SQLCerca = " SELECT [UserID], [Nick] FROM [Autori] WHERE [UserID] = '"& FUserID &"' OR [Nick] = '"& FNick &"' " Set RSCerca = Server.CreateObject("ADODB.Recordset") RSCerca.Open SQLCerca, Conn, 1, 3 If RSCerca.RecordCount > 0 Then Errore = True End If Set RSCerca = Nothing End If If Errore = False Then SQLAggiungi = " INSERT INTO [Autori] ([UserID], [Password], [Nick], [Mail], [Sito], [ICQ], [MSN], [Testo], [Immagine], [Admin]) VALUES ('"& FUserID &"', '"& getSHAPassword(FPassword) &"', '"& FNick &"', '"& FMail &"', '"& FSito &"', '"& FICQ &"', '"& FMSN &"', '"& FTesto &"', '"& FImmagine &"', " If FAdmin = "si" Then SQLAggiungi = SQLAggiungi & "True)" Else SQLAggiungi = SQLAggiungi & "False)" End If Set RSAggiungi = Server.CreateObject("ADODB.Recordset") RSAggiungi.Open SQLAggiungi, Conn, 1, 3 Set RSAggiungi = Nothing %>

<%=Testo_Autori_AggiuntaABuonFine%>
<%=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 %>

<%=Testo_Modulo_CampoUserID%> * <%=Testo_Modulo_SpiegazioneCampoUserID%>

<%=Testo_Modulo_CampoPassword%> * <%=Testo_Modulo_SpiegazioneCampoPassword%>

<%=Testo_Modulo_CampoPasswordConferma%> * <%=Testo_Modulo_SpiegazioneCampoPasswordConferma%>

<%=Testo_Modulo_CampoNick%> * <%=Testo_Modulo_SpiegazioneCampoNick%>

<%=Testo_Modulo_CampoMail%> <%=Testo_Modulo_SpiegazioneCampoMail%>

<%=Testo_Modulo_CampoSito%> <%=Testo_Modulo_SpiegazioneCampoSito%>

<%=Testo_Modulo_CampoICQ%> <%=Testo_Modulo_SpiegazioneCampoICQ%>

<%=Testo_Modulo_CampoMSN%> <%=Testo_Modulo_SpiegazioneCampoMSN%>

<%=Testo_Modulo_CampoProfilo%> <%=Testo_Modulo_SpiegazioneCampoProfilo%>

<%=Testo_Modulo_CampoImmagine%> <%=Testo_Modulo_SpiegazioneCampoImmagine%>
      <%=Testo_Modulo_LinkPopupCampoFileFotografia%>
<%=Testo_Modulo_CampoAdmin%> <%=Testo_Modulo_SpiegazioneCampoAdmin%>
     <%=Testo_Modulo_CampoAdminSi%> <%=Testo_Modulo_CampoAdminNo%>

<%=Testo_Legenda_CampiObbligatori%>

<% End If Else %>

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

<% End If %>

<% Conn.Close Set Conn = Nothing %>