|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Citazioni%> : <%=Testo_Modulo_PulsanteModifica%>
<%
If Session("BLOGAdmin") = True Then
%>
<%=Testo_Citazioni_IntroduzioneModifica%>
<%
If Request.QueryString("a") = "modifica" Then
FAutore = DoppioApice(SostituisciCaratteri(Request.Form("Autore"), "No"))
FCitazione = DoppioApice(SostituisciCaratteri(Request.Form("Citazione"), "Si"))
FHeader = Request.Form("Header")
Errore = False
If FCitazione = "" Then
Errore = True
End If
If Errore = False Then
SQLModifica = " UPDATE [Citazioni] SET Citazioni.Autore = '"& FAutore &"', Citazioni.Citazione = '"& FCitazione &"', "
If FHeader = "si" Then
SQLModifica = SQLModifica & "Citazioni.Header = True "
Else
SQLModifica = SQLModifica & "Citazioni.Header = False "
End If
SQLModifica = SQLModifica & "WHERE Citazioni.ID = "& FID &" "
Set RSModifica = Server.CreateObject("ADODB.Recordset")
RSModifica.Open SQLModifica, Conn, 1, 3
Set RSModifica = Nothing
%>
<%=Testo_Citazioni_ModificaABuonFine%>
<%=Testo_Citazioni_LinkTornaIndietro%>, <%=Testo_Citazioni_LinkVaiElenco%> <%=Testo_SceltaOppure%> <%=Testo_Link_AvviaUploadFile%>.
<%
Else
%>
<%=Testo_Citazioni_ErroreModifica%>
<%=Testo_Citazioni_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Citazioni_LinkVaiElenco%>.
<%
End If
Else
SQLCitazioni = " SELECT * FROM [Citazioni] WHERE [ID] = "& FID &" "
Set RSCitazioni = Server.CreateObject("ADODB.Recordset")
RSCitazioni.Open SQLCitazioni, Conn, 1, 3
If NOT RSCitazioni.EOF Then
%>
<%=Testo_Legenda_CampiObbligatori%>
<%
Else
%>
<%=Testo_TabellaCitazioni_ErroreNessunaCitazioneTrovataPassaggioParametri%>
<%=Testo_Citazioni_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Citazioni_LinkVaiElenco%>.
<%
End If
Set RSCitazioni = Nothing
End If
Else
%>
<%=Testo_Errore_FunzioneRiservataAdmin%>
<%
End If
%>
|
|