Replace su <BR/>, aggiunge a capo a piacere..

[Iron83]

Ciao ragazzi,

ho un problemino fastidioso con i
, ho due form, uno per l'aggiunta di una news e l'altro per la modifica della stessa. Il problemino è che quando vado a fare la modifica alla news e magari cancello una parola, o aggiungo una parte, lo script mi aggiunge un
a tutto il testo aumentando di 1 l'accapo e sballando l'impaginazione della news. Come posso risolvere questo fastidiosissimo problema? procedo postando il codice.

aggiungi_news

dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

   
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

Set rs = Server.CreateObject("ADODB.Recordset")



sql = "SELECT * FROM news" 
 
rs.Open sql, conn ,3,3 
rs.addnew
rs("titolo") = request.form("titolo")
rs("contenuto") = Replace(request.form("contenuto"), chr(13), "
")
rs("data") = Date()
rs.update
rs.Close
Set rs = nothing

conn.close
Set conn=Nothing
%>

modifica_news

dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

Set rs = Server.CreateObject("ADODB.Recordset")
	
	
sql = "SELECT * FROM news WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

'Faccio l'update e modifico la news

rs("titolo") = request.form("titolo")
rs("contenuto") = Replace(request.form("contenuto"), chr(13), "
")
rs("pubblicazione") = request.form("pubblicazione")
rs("data") = Date()
rs.update
rs.Close

end if
set rs = Nothing
conn.Close
set conn = Nothing
%>

[Roby_72]

Quando fai la modifica non devi incorporare l'HTML nel db, quindi questa riga la devi togliere:
rs("contenuto") = Replace(request.form("contenuto"), chr(13), "
")

e mettere solo

rs("contenuto") = Replace(request.form("contenuto"), "'", "''")

Roby

[Iron83]

Sembra risolot, ho modificato il replace in questo modo:

rs("contenuto") = Replace(request.form("contenuto"), chr(13)&chr(10), "
")

Ora riesco anche a copiare ed incollare e modificare un testo (senza formattazione) da un documento word senza abbondare di spazi. Nel caso in cui il problema persista scriverò, ovviamente se qualcuno di voi ha in mano un metodo migliore...Che lo posti!

[deleted_b]

come ti ha detto roby e buona norma mettere nel db solo il testo... e poi sostituire i br quando si crea la pagina

comunque chr(13)&chr(10) è la costante vbcrlf