|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Citazioni%> : <%=Testo_Modulo_PulsanteAggiungi%>
<%
If Session("BLOGAdmin") = True Then
%>
<%=Testo_Citazioni_IntroduzioneAggiungi%>
<%
If Request.QueryString("a") = "aggiungi" 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
SQLAggiungi = " INSERT INTO [Citazioni] ([Autore], [Citazione], [Header]) VALUES ('"& FAutore &"', '"& FCitazione &"', "
If FHeader = "si" Then
SQLAggiungi = SQLAggiungi & "True)"
Else
SQLAggiungi = SQLAggiungi & "False)"
End If
Set RSAggiungi = Server.CreateObject("ADODB.Recordset")
RSAggiungi.Open SQLAggiungi, Conn, 1, 3
%>
<%=Testo_Citazioni_AggiuntaABuonFine%>
<%=Testo_Citazioni_LinkTornaIndietro%>, <%=Testo_Citazioni_LinkVaiElenco%> <%=Testo_SceltaOppure%> <%=Testo_Link_AvviaUploadFile%>.
<%
Set RSAggiungi = Nothing
Else
%>
<%=Testo_Citazioni_ErroreInserimento%>
<%=Testo_Citazioni_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_Citazioni_LinkVaiElenco%>.
<%
End If
Else
%>
<%=Testo_Legenda_CampiObbligatori%>
<%
End If
Else
%>
<%=Testo_Errore_FunzioneRiservataAdmin%>
<%
End If
%>
|
|