FCKEditor - Sto impazzendo

[anflam]

Ragazzi scusate per il titolo ma son due giorni che sbatto la testa con questo Editor.
Ho realizzato un sito con una parte back office dove inserisco delle notizie tramite FCKEditor .
Poi queste notizie vengono visualizzate sull'homepage del sito.Ho installato FCKEditor seguendo le istruzioni della guida e diciamo che quasi tutto funziona...
Quando inserisco alcune notizie il sistema va in errore per la sintassi sbagliata , leggendo i vari post ho visto che qualcuno per evitare questo problema prima di effettuare un insert oppure un update , sul database,fai il replace degli apici singoli con gli apici doppi, ho fatto anche io questo ma succede una cosa ancora piu strana. Infatti ogni volta che faccio un update gli apici raddoppiano esempio se scrivo la parola l'ora facendo un update o un inserimento la parola diventa l''ora poi ancora l''''ora e cosi via...
Un' altra cosa strana e che poi nell'homepage la parola viene visualizzata cosi


l'ora</p>
completa dei tag

.

Mi potreste aiutare a risolvere questi problemi
grazie mille

[Mems]

Vediamo com richiami l'oggetto FCKEditor nella pagina ASP e il codice che fa l'insert e l'update dei dati sul db.

[anflam]

metto questo all'inizio della mia pagina


poi metto questo meta tag
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="robots" content="noindex, nofollow" />

poi nel form della mia pagina istanzio l'oggetto:


Dim sBasePath
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
sBasePath="/fckeditor/"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
oFCKeditor.Value= "" & sNotizia & ""
oFCKeditor.Create "txtNotizia"

poi sul submit ricarico la stessa pagina e faccio un inserimento con l'execute

prima di fare l'insert o l'update faccio il replace

sNotizia=replace(sNotizia,"'","''")

[Mems]

E vediamolo sto codice che fa l'insert e/o l'update ed anche quello le legge e visualizza il testo nella pagina.

[anflam]

se vuoi ti spedisco per email la pagina oppure
inserisco tutto in questo post ?

[Mems]

Originariamente inviato da anflam
se vuoi ti spedisco per email la pagina oppure
inserisco tutto in questo post ?

Qui. Basta il codice necessario.

[anflam]

Ecco il codice per l'inserimento delle notizie dal back office

<%@ Language=VBScript %>
<%
Response.Expires = 0
Response.Buffer = True
%>


<%

sOp=cstr("" & request.Form("txtOP"))
lID=clng("0" & request.Form("txtID"))
sData=cstr("" & request.Form("txtData"))
sOre=cstr("" & request.Form("cboOre"))
sTitolo=cstr("" & request.Form("txtTitolo"))
sAutore=trim(cstr("" & request.Form("txtAutore")))
sNotizia=trim(cstr("" & request.Form("txtNotizia")))
sNotizia=replace(sNotizia,"'","''")

select case sOP
case "Aggiungi"
sSQL=" Insert into Notizia(Data,Ore,Titolo,Notizia,autore)" & _
" values('" & sData &"','" & sOre & "','" & sTitolo & "','" & sNotizia & "','" & sAutore & "')"
set DicReturn = Execute_SQL(sSQL)

case "Elimina"
sSQL="delete FROM Notizia WHERE Notizia_id=" & lID
lID=0
set dicReturn = Execute_SQL(sSQL)

case "Modifica"
sSQL=" UPDATE Notizia " & _
" set Data='" & SData &"',"& _
" Ore='" & sOre &"',"& _
" Titolo='" & sTitolo &"',"& _
" Autore='" & sAutore &"',"& _
" Notizia='" & sNotizia &"'"& _
" WHERE Notizia_id=" & lID

set dicReturn = Execute_SQL(sSQL)

case else
sSQL="SELECT * FROM Notizia WHERE Notizia_id=" & lID
set DicReturn = Execute_SQL(sSQL)
if dicReturn.Exists("KO") then
set dicADOError = DicReturn
Err.Raise 1000
else
set rs= dicReturn("OK")
if not(rs.BOF and rs.EOF) then
sData=cstr("" & rs("Data"))
sOre=cstr("" & rs("Ore"))
sTitolo=cstr("" & rs("Titolo"))
sAutore=cstr("" & rs("autore"))
sNotizia=cstr("" & rs("Notizia"))
end if
end if
end select

function Execute_SQL_Forum(sSQL)
On Error Resume next
dim sPathRoot,dicReturn,Conn,dicSQL,rs

set dicReturn = Server.CreateObject("Scripting.Dictionary")
sPathRoot = mid(Request.ServerVariables("PATH_INFO"),1,instr(2 ,Request.ServerVariables("PATH_INFO"),"/"))

set Conn = Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject ("ADODB.Recordset")
set dicSQL = Server.CreateObject("Scripting.Dictionary")

Conn.CursorLocation = 3
Conn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/database.mdb") & ";Persist Security Info=False"
Conn.Open

set rs = Conn.Execute(sSQL)
set rs.ActiveConnection = Nothing
if err.number = 0 then
dicSQL.Add "OK",rs
set Conn = Nothing
else
dicSQL.Add "KO", Array(Err.Number, Err.Description, Err.Source)
end if

Conn.Close
set Execute_SQL_Forum = dicSQL
set rs=nothing
set dicReturn=nothing
set Conn=nothing
set dicSQL=nothing
end function


%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="robots" content="noindex, nofollow" />
<link href="/fckeditor/_samples/sample.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form action="details.asp" method="POST" id="frm" name="frm">
<%
Dim sBasePath
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
sBasePath="/fckeditor/"
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
oFCKeditor.Value= "" & sNotizia & ""
oFCKeditor.Create "txtNotizia"
%>
</form>
</body>
</html>

[Mems]

Prova a levare tutti quei cstr

[anflam]

allora..
ho tolto tutti gli apici..
ho notato qualche piccolo cambiamento sel senso che..
adesso se scrivo la parolo l'ora nell'homepage viene visualizzata corrattamente e nn piu' in questo modo

l''ora</p>
adesso pero' persiste il problema che se faccio l'upade della notizia già inserita gli apicetti raddoppiano e quindi sull'homepage la parola diventa l''ora.

[Umanista]

Mi sono imbattuto in questo post perché anch'io assillato dai tags

</p> indesiderati che venivano generati da FCKeditor ogni volta che cliccavo sul pulsante "Codice sorgente" o Invio.

Alla fine ho scoperto che per risolvere questo fastidioso problema è sufficiente intervernire sul file fckconfig.js e modificare le seguenti proprietà:

FCKConfig.EnterMode = 'p' ; // p | div | br
FCKConfig.ShiftEnterMode = 'br' ; // p | div | br

In pratica basta settare EnterMode in questo modo:
FCKConfig.EnterMode = '' ;