Funzione replace

[Iron83]

Ciao ragazzi,

domandina veloce veloce (e ) sul replace.
Non ricordo al momento come poter inserire caratteri speciali (' " € à etc.) nell'inserimento di dati in un database. Per esempio quando scrivo una news con solo caratteri speciali, mi restituisce errore:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query '' €l'aquila ',' àà! €'.

La pagina di azione è semplicissima, recupera i dati da un form:

<%
dim strTitolo_articolo
strTitolo_articolo = request.form("titolo_articolo")

dim strContenuto_articolo
strContenuto_articolo = request.form("contenuto_articolo")

dim strParole_chiave
strParole_chiave = request.form("parole_chiave")



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("xxxxx")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

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

sql = "INSERT INTO nuovi_prodotti (titolo_articolo, contenuto_articolo, parole_chiave) values"&_
 "(' "&strTitolo_articolo&" ',' "&strContenuto_articolo&"',' "&strParole_chiave&"')" 
rs.Open sql, conn 

conn.close
Set conn=Nothing
%> 

Grazie in anticipo

[Mizushi]

sql = "INSERT INTO nuovi_prodotti (titolo_articolo, contenuto_articolo, parole_chiave) values" &_ 
"('" & replace(strTitolo_articolo,"'", "''") & "', '" & replace(strContenuto_articolo,"'", "''") & "', '" & replace(strParole_chiave,"'", "''") & "')" 

conn.execute sql 

conn.close 
Set conn = Nothing 

[Iron83]

Sembra funzionare, grazie mille!