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

codice:
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

codice:
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
%>