|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_RinominaSezioni%>
<%
If Request.QueryString("a") = "modifica" Then
FNomeVecchio = Request.Form("NomeVecchio")
FNomeNuovo = Request.Form("NomeNuovo")
Errore = False
SQLControllo = " SELECT TOP 1 ID FROM Articoli WHERE [Sezione] = '"& DoppioApice(FNomeVecchio) &"' "
Set RSControllo = Server.CreateObject("ADODB.Recordset")
RSControllo.Open SQLControllo, Conn, 1, 3
If RSControllo.EOF Then
Errore = True
End If
RSControllo.Close
Set RSControllo = Nothing
If FNomeNuovo = "" Then
Errore = True
End If
If LCase(FNomeVecchio) = LCase(FNomeNuovo) Then
Errore = True
End If
If Errore = False Then
SQLModifica = " UPDATE Articoli SET [Sezione] = '"& DoppioApice(FNomeNuovo) &"' WHERE [Sezione] = '"& DoppioApice(FNomeVecchio) &"' "
Set RSModifica = Server.CreateObject("ADODB.Recordset")
RSModifica.Open SQLModifica, Conn, 1, 3
Set RSModifica = Nothing
%>
<%=Testo_SezioniModifica_Conferma%>
<%=Testo_Articoli_LinkTornaIndietro%>.
<%
Else
%>
<%=Testo_SezioniModifica_ErroreNonABuonFine%>
<%=Testo_Articoli_LinkTornaIndietro%>.
<%
End If
Else
%>
<%=Testo_Sezioni_IntroduzioneRinominaSezioni%>
<%
SQLSezioni = " SELECT Sezione FROM Articoli GROUP BY Articoli.Sezione ORDER BY Articoli.Sezione "
Set RSSezioni = Server.CreateObject("ADODB.Recordset")
RSSezioni.Open SQLSezioni, Conn, 1, 3
If RSSezioni.EOF = False Then
%>
<%
Else
%>
<%=Testo_SezioniDisponibili_ErroreNessunaTrovata%>
<%
End If
End If
%>
<%=Testo_LinkChiudi%>
|