Ciao,
in effetti il problema è proprio questo, ho letto alcuni messaggi sul forum, ho provato ad inserire una Funzione, tipo questa
codice:
Function quote(testo)
quote = Replace(testo, "'", "''")
End Function
in effetti ho risolto, ora il problema è presente in fare di UPDATE, ho modificato così la stringa SQL:
codice:
<%
'---Dichiarazione variabili
Dim IDnews, titolo, descrizione, data, fonte, SQL, RSnews
'---Recupero i valori della Form
'titolo = Trim(Replace(Request.Form("titolo"), "'", "''"))
'descrizione = Trim(Replace(Request.Form("descrizione"), "'", "''"))
'data = Trim(Replace(Request.Form("data"), "'", "''"))
'fonte = Trim(Replace(Request.Form("fonte"), "'", "''"))
IDnews=Request.Form("IDnews")
titolo = Request.Form("titolo")
descrizione = Request.Form("descrizione")
data = Request.Form("data")
fonte = Request.Form("fonte")
Function quote(testo)
quote = Replace(testo, "'", "''")
End Function
SQL = " UPDATE News Set titolo = '"& quote(titolo) &"', '"& quote(descrizione) &"', '"& quote(data) &"', '"& quote(fonte) &"' WHERE IDnews = " & IDnews
Set RSnews = Conn.Execute(SQL)
Response.Write SQL
Response.Redirect "NB_list.asp"
%>
Ed ho questo errore:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/admin/NB_update_proc.asp, line 29