<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLLinkLog, RSLinkLog, SQLModifica, RSModifica, FID, FIntroduzione, FTestoLinkato, FURL, FTitolo, FData, FAutore, Errore, SQLListBox, RSListBox 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_LinkLog%> : <%=Testo_Modulo_PulsanteModifica%>

<%=Testo_LinkLog_IntroduzioneModifica%>

<% If Request.QueryString("a") = "modifica" 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")) If Request.Form("Autore") = "" Then FAutore = Session("BLOGNick") Else FAutore = DoppioApice(Request.Form("Autore")) End If Errore = False If FIntroduzione = "" Then Errore = True End If If FTestoLinkato = "" Then Errore = True End If If FURL = "" 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 SQLModifica = " UPDATE [LinkLog] SET LinkLog.Introduzione = '"& FIntroduzione &"', LinkLog.TestoLinkato = '"& FTestoLinkato &"', LinkLog.URL = '"& FURL &"', LinkLog.Data = '"& FData &"', LinkLog.Autore = '"& FAutore &"' WHERE LinkLog.ID = "& FID &" " If Session("BLOGAdmin") = False Then SQLModifica = SQLModifica & "AND LinkLog.Autore = '"& Session("BLOGNick") &"' " End If Set RSModifica = Server.CreateObject("ADODB.Recordset") RSModifica.Open SQLModifica, Conn, 1, 3 Set RSModifica = Nothing %>

<%=Testo_LinkLog_ModificaABuonFine%>
<%=Testo_LinkLog_LinkTornaIndietro%>, <%=Testo_LinkLog_LinkVaiElenco%>.

<% Else %>

<%=Testo_LinkLog_ErroreModifica%>
<%=Testo_LinkLog_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_LinkLog_LinkVaiElenco%>.

<% End If Else If Session("BLOGAdmin") = True Then SQLLinkLog = " SELECT * FROM [LinkLog] WHERE [ID] = "& FID &" " Else SQLLinkLog = " SELECT * FROM [LinkLog] WHERE [ID] = "& FID &" AND [Autore] = '"& Session("BLOGNick") &"' " End If Set RSLinkLog = Server.CreateObject("ADODB.Recordset") RSLinkLog.Open SQLLinkLog, Conn, 1, 3 If NOT RSLinkLog.EOF Then %>
<% If Session("BLOGAdmin") = True Then SQLListBox = " SELECT [Nick] FROM [Autori] GROUP BY Autori.Nick " Set RSListBox = Server.CreateObject("ADODB.Recordset") RSListBox.Open SQLListBox, Conn, 1, 3 %> <%=Testo_Modulo_CampoAutore%> <%=Testo_Modulo_SpiegazioneCampoAutore%>
      <% End If %>
<%=Testo_Modulo_CampoIntroduzione%> <%=Testo_Modulo_SpiegazioneCampoIntroduzione%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoTestoLinkato%> * <%=Testo_Modulo_SpiegazioneCampoTestoLinkato%>
     " size="50" maxlength="250">
<%=Testo_Modulo_CampoURL%> * <%=Testo_Modulo_SpiegazioneCampoURL%>
     " size="50">
<%=Testo_Modulo_CampoData%> <%=Testo_Modulo_SpiegazioneCampoData%>
     " size="50" maxlength="8"> o scegli
<%=Testo_Modulo_CampoOra%> <%=Testo_Modulo_SpiegazioneCampoOra%>

<%=Testo_Legenda_CampiObbligatori%>

<% Else %>

<%=Testo_TabellaLinkLog_ErroreNessunLinkTrovato%>: <%=Testo_Errore_PassaggioParametri%>
<%=Testo_LinkLog_LinkTornaIndietro%> <%=Testo_SceltaOppure%> <%=Testo_LinkLog_LinkVaiElenco%>.

<% End If Set RSLinkLog = Nothing End If %>
<% Conn.Close Set Conn = Nothing %>