|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_LinkLog%> : <%=Testo_Modulo_PulsanteAggiungi%>
<%=Testo_LinkLog_IntroduzioneAggiungi%>
<%
If Request.QueryString("a") = "aggiungi" Then
FIntroduzione = SostituisciCaratteri(DoppioApice(Request.Form("Introduzione")), "Si")
FTestoLinkato = SostituisciCaratteri(DoppioApice(Request.Form("TestoLinkato")), "No")
FURL = DoppioApice(Request.Form("URL"))
FData = DoppioApice(Request.Form("Data"))
FAutore = Session("BLOGNick")
Errore = False
If FIntroduzione = "" Then
Errore = True
End If
If FTestoLinkato = "" Then
Errore = True
End If
If FURL = "" OR FURL = "http://" OR Mid(FURL, 1, 7) <> "http://" Then
Errore = True
End If
If FData = "" OR Len(FData) <> 8 OR IsNumeric(FData) = False OR IsDate(StrToData(FData)) = False Then
Errore = True
End If
If Errore = False Then
SQLLinkLog = " INSERT INTO [LinkLog] ([Introduzione], [TestoLinkato], [URL], [Data], [Autore]) VALUES ('"& FIntroduzione &"', '"& FTestoLinkato &"', '"& FURL &"', '"& FData &"', '"& FAutore &"') "
Set RSLinkLog = Server.CreateObject("ADODB.Recordset")
RSLinkLog.Open SQLLinkLog, Conn, 1, 3
Set RSLinkLog = Nothing
%>
<%=Testo_LinkLog_AggiuntaABuonFine%>.
<%=Testo_LinkLog_LinkTornaIndietro%>, <%=Testo_LinkLog_LinkVaiElenco%>.
<%
Else
%>
<%=Testo_LinkLog_ErroreInserimento%>
<%=Testo_LinkLog_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_LinkLog_LinkVaiElenco%>.
<%
End If
Else
%>
<%=Testo_Legenda_CampiObbligatori%>
<%
End If
%>
|
|