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