<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLSondaggi, RSSondaggi, SQLModifica, RSModifica, FID, FDomanda, FRisposta1, FRisposta2, FRisposta3, FRisposta4, FRisposta5, FRisposta6, FRisposta7, FRisposta8, FRisposta9, FRisposta10, 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_Sondaggio%> : <%=Testo_Modulo_PulsanteModifica%>

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

<%=Testo_Sondaggi_IntroduzioneModifica%>

<% If Request.QueryString("a") = "modifica" 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 SQLModifica = " UPDATE [Sondaggio] SET Sondaggio.Domanda = '"& FDomanda &"', Sondaggio.Risposta1 = '"& FRisposta1 &"', Sondaggio.Risposta2 = '"& FRisposta2 &"', Sondaggio.Risposta3 = '"& FRisposta3 &"', Sondaggio.Risposta4 = '"& FRisposta4 &"', Sondaggio.Risposta5 = '"& FRisposta5 &"', Sondaggio.Risposta6 = '"& FRisposta6 &"', Sondaggio.Risposta7 = '"& FRisposta7 &"', Sondaggio.Risposta8 = '"& FRisposta8 &"', Sondaggio.Risposta9 = '"& FRisposta9 &"', Sondaggio.Risposta10 = '"& FRisposta10 &"' WHERE Sondaggio.ID = "& FID &" " Set RSModifica = Server.CreateObject("ADODB.Recordset") RSModifica.Open SQLModifica, Conn, 1, 3 Set RSModifica = Nothing %>

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

<% Else %>

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

<% End If Else SQLSondaggi = " SELECT * FROM [Sondaggio] WHERE [ID] = "& FID &" " Set RSSondaggi = Server.CreateObject("ADODB.Recordset") RSSondaggi.Open SQLSondaggi, Conn, 1, 3 If NOT RSSondaggi.EOF Then %>
<%=Testo_Modulo_CampoDomanda%> * <%=Testo_Modulo_SpiegazioneCampoDomanda%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>1 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>2 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>3 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>4 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>5 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>6 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>7 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>8 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>9 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoRisposta%>10 <%=Testo_Modulo_SpiegazioneCampoRisposta%>
     " size="50" maxlength="250">

<%=Testo_Legenda_CampiObbligatori%>

<% Else %>

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

<% End If Set RSSondaggi = Nothing End If Else %> <%=Testo_Errore_FunzioneRiservataAdmin%> <% End If %>
<% Conn.Close Set Conn = Nothing %>