Allora Dopo aver un form funzionante che ripesca i veki dati faccio invio e va a pescare questa pagina che serve per vedere le eventuali modifiche e riscriverle...
però c'è un problema .....
dopo che invia mi da errore
dicendomi
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/admin/mod_controllo_aggbarca.asp, line 72

Questo per via dei caratteri tipo ' . o cose del genere penso ...
Ho usato sto Replace per questo ma è come se non servisse a niente qualcuno di voi mi sa aiutare?

<%
id =Request.QueryString("id")
RIF = replace(Request.Form("riferimento"),"'","''")
MISURA = replace(Request.Form("misura"),"'","''")
MODELLO = replace(Request.Form("modello"),"'","''")
ANNO = replace(Request.Form("anno"),"'","''")
CANTIERE= replace(Request.Form("cantiere"),"'","''")
LUNG = replace(Request.Form("lunghezza"),"'","''")
LUNG_CE = replace(Request.Form("lungce"),"'","''")
LUNG2 = replace(Request.Form("lunghezza2"),"'","''")
LARG = replace(Request.Form("larghezza"),"'","''")
LARG2 = replace(Request.Form("larghezza2"),"'","''")
PESCAGGIO = replace(Request.Form("pescaggio"),"'","''")
MATSCAFO = replace(Request.Form("materiales"),"'","''")
SERBCARB = replace(Request.Form("serbcarbu"),"'","''")
NUMMOTORI = replace(Request.Form("numeromotori"),"'","''")
OMOLOG = replace(Request.Form("omolog"),"'","''")
MOTORI = replace(Request.Form("motori"),"'","''")
TIPO = replace(Request.Form("tipo"),"'","''")
POTENZA = replace(Request.Form("potenza"),"'","''")
OREMOTORI= replace(Request.Form("oremotori"),"'","''")
GRUPPOEL = replace(Request.Form("gruppoel"),"'","''")
SERBACQUA = replace(Request.Form("serbacqua"),"'","''")
ALLOGGI = replace(Request.Form("alloggi"),"'","''")
IMPIANTI = replace(Request.Form("impianti"),"'","''")
ACCSCAFO= replace(Request.Form("accessori"),"'","''")
ELETTRONICI = replace(Request.Form("elettronici"),"'","''")
NOTA = replace(Request.Form("notare"),"'","''")
ARMATORE = replace(Request.Form("armatore"),"'","''")
BANDIERA = replace(Request.Form("bandiera"),"'","''")
RINA = replace(Request.Form("rina"),"'","''")
RICHIESTA = replace(Request.Form("richiesta"),"'","''")
VISIBILE = replace(Request.Form("visibile"),"'","''")
set db= Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath(""&databaseibs&"")
db.Open connect
sql = "UPDATE usato SET "&_
" RIF = '"&RIF&"' ,"&_
" MISURA = '"& MISURA&"' ,"&_
" MODELLO = '"&MODELLO&"' ,"&_
" ANNO = '"&ANNO& "' ,"&_
" LUNG_CE = '"&LUNG_CE&"' ,"&_
" LUNG = '"&LUNG& "' ,"&_
" LUNG2 = '"&LUNG2& "' ,"&_
" LARG = '"&LARG& "' ,"&_
" LARG2 = '"&LARG2& "' ,"&_
" PESCAGGIO='"&PESCAGGIO&"' ,"&_
" MATSCAFO= '"&MATSCAFO&"' ,"&_
" SERBCARB= '"&SERBCARB&"' ,"&_
" NUMMOTORI='"&NUMMOTORI&"' ,"&_
" MOTORI= '"&MOTORI&"' ,"&_
" TIPO= '"&TIPO& "' ,"&_
" POTENZA= '"&POTENZA&"' ,"&_
" OREMOTORI='"&OREMOTORI&"' ,"&_
" GRUPPOEL ='"&GRUPPOEL&"' ,"&_
" SERBACQUA='"&SERBACQUA&"' ,"&_
" ALLOGGI = '" &ALLOGGI& "' ,"&_
" IMPIANTI ='"&IMPIANTI&"' ,"&_
" ACCSCAFO ='"&ACCSCAFO&"' ,"&_
" CANTIERE ='"&CANTIERE&"' ,"&_
" ELETTRONICI ='"&ELETTRONICI&"' ,"&_
" ARMATORE ='"&ARMATORE&"' ,"&_
" BANDIERA ='"&BANDIERA&"' ,"&_
" OMOLOG = '"&OMOLOG&"' ,"&_
" RINA = '"&RINA& "' ,"&_
" RICHIESTA='"&RICHIESTA&"' ,"&_
" NOTARE = '"&NOTA& "' ,"&_
" VISIBILE ='"&VISIBILE&"' "&_
" where id ='"&id&"'"

db.Execute(sql)


db.close
set db = nothing