<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLAggiungi, RSAggiungi, FDomanda, FRisposta1, FRisposta2, FRisposta3, FRisposta4, FRisposta5, FRisposta6, FRisposta7, FRisposta8, FRisposta9, FRisposta10, Errore %>

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

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

<%=Testo_Sondaggi_IntroduzioneAggiungi%>

<% If Request.QueryString("a") = "aggiungi" Then FDomanda = DoppioApice(SostituisciCaratteri(Request.Form("Domanda"), "No")) FRisposta1 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta1"), "No")) FRisposta2 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta2"), "No")) FRisposta3 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta3"), "No")) FRisposta4 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta4"), "No")) FRisposta5 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta5"), "No")) FRisposta6 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta6"), "No")) FRisposta7 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta7"), "No")) FRisposta8 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta8"), "No")) FRisposta9 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta9"), "No")) FRisposta10 = DoppioApice(SostituisciCaratteri(Request.Form("Risposta10"), "No")) Errore = False If FDomanda = "" Then Errore = True End If If FRisposta1 = "" AND FRisposta2 = "" AND FRisposta3 = "" AND FRisposta4 = "" AND FRisposta5 = "" AND FRisposta6 = "" AND FRisposta7 = "" AND FRisposta8 = "" AND FRisposta9 = "" AND FRisposta10 = "" Then Errore = True End If If Errore = False Then SQLAggiungi = " INSERT INTO [Sondaggio] ([Domanda], [Risposta1], [Risposta2], [Risposta3], [Risposta4], [Risposta5], [Risposta6], [Risposta7], [Risposta8], [Risposta9], [Risposta10]) VALUES ('"& FDomanda &"', '"& FRisposta1 &"', '"& FRisposta2 &"', '"& FRisposta3 &"', '"& FRisposta4 &"', '"& FRisposta5 &"', '"& FRisposta6 &"', '"& FRisposta7 &"', '"& FRisposta8 &"', '"& FRisposta9 &"', '"& FRisposta10 &"') " Set RSAggiungi = Server.CreateObject("ADODB.Recordset") RSAggiungi.Open SQLAggiungi, Conn, 1, 3 %>

<%=Testo_Sondaggi_AggiuntaABuonFine%>
<%=Testo_Sondaggio_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Sondaggi_LinkVaiElenco%>.

<% Set RSAggiungi = Nothing Else %>

<%=Testo_Sondaggi_ErroreInserimento%>
<%=Testo_Sondaggio_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Sondaggi_LinkVaiElenco%>.

<% End If Else %>

<%=Testo_Modulo_CampoDomanda%> * <%=Testo_Modulo_SpiegazioneCampoDomanda%>

<%=Testo_Modulo_CampoRisposta%>1 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>2 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>3 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>4 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>5 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>6 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>7 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>8 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>9 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Modulo_CampoRisposta%>10 <%=Testo_Modulo_SpiegazioneCampoRisposta%>

<%=Testo_Legenda_CampiObbligatori%>

<% End If Else %> <%=Testo_Errore_FunzioneRiservataAdmin%> <% End If %>

<% Conn.Close Set Conn = Nothing %>