inserimento dati nel database con sql co apostrofo e punto interrogativo

[nataw]

gantili cybernauti, ho un problema nell'inserimento del contenuto di un campo testo: qualora scrivo una frase con apostrofo o punto interrogativo il browser mi segnala questo errore:

Microsoft JET Database Engine error '80040e14'
Syntax error in date in query expression ''c'è ?','17','singola', 'rizzo@hotmail.com','1','1','333333', 'sampai')'.
/mail2.asp, line 50

il codice è questo:

<%@language=vbscript%>


<%
for each strn in request.form
count=count+1
next
if count=1 then
response.redirect "conduzione.htm"
end if
dim objconn, strconn
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/mdb-database/pino.mdb")
objconn.open strconn
tex=request.form("testo")
ident=request.form("nascosto")
noche=request.form("notti")
numeropers=request.form("persone")
giora=request.form("gioar")
messa=request.form("mesar")
ana=request.form("anra")
gip=request.form("giopa")
messp=request.form("mespa")
annop=request.form("anpa")
came=request.form("camer")
identifi=request.form("nome")
surname=request.form("cognome")
address=request.form("indirizzo")
town=request.form("citta")
phone=request.form("telefono")
email=request.form("mail")
codice=request.form("cap")
merco= cint(messp)
ao= cint(annop)
gior=cint(gip)
completissimo=dateserial(ao,merco,gior)
mercif=cint(messa)
aloa= cint(ana)
gionatan=cint(giora)
completo=dateserial(aloa,mercif,gionatan)
if instr(1, email, "@", 1)=0 then
response.redirect "avvert.htm"
end if
strsql="select post, man from tblex where id like '"&ident&"'"
set rs= server.createobject("adodb.recordset")
rs.open strsql,objconn,3,3
maildest=rs("post")
nom= rs("man")
strquer="INSERT INTO tabprenot (nome, cognome, indirizzo, citta, telefono, hotel, dataarr, datapart, richiesta, codec, camera, postae, night, numpers, codix, nomhot) VALUES ('"& identifi &"', '"& surname &"','"& address &"','"&town&"','"& phone &"','"& maildest &"','"& completo &"','"& completissimo &"','"& tex &"','"& ident &"','"& came &"', '"& email &"','"& noche &"','"& numeropers &"','"&codice&"', '"&nom&"')"
objconn.execute(strquer) [SIZE=3](questa è la linea n 50) [/SIZE] rs.close
set rs= nothing
strsql="select max(id) as chiu from tabprenot"
set rss= server.createobject("adodb.recordset")
rss.open strsql,objconn,3,3
chiunque=rss("chiu")
c=chiunque+1
o=chiunque+5
coc=chiunque&c&o
strquer="update tabprenot set codiceprenot="&coc&" where id = "&chiunque&""
set rsss= server.createobject("adodb.recordset")
rsss.open strquer,objconn,3,3
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============



'* voce da modificare con il proprio indirizzo email

invioA = maildest

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "easyplatz@hotmail.it"

'------------fine modifiche necessarie------------------


'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "
" & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf, myurl
myurl="http://www.easyplatz.com/risposta.asp?indenti=" & chiunque

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Cc="easyplatz@hotmail.it"
.Sender = invioDa
.Subject = "Contatto da easyplatz "

.HTMLBody = "<font face=verdana size=2>la richiesta è di notti " & noche & " per numero di persone " & numeropers & "
dal " & completo & "al" & completissimo & " tipo camera " & came & "
ulteriore commento:" & tex & " per rispondere
se non funziona il link digita "&myurl&" all'inerno dell'url del browser"

.Send
End With
set objmessage=nothing
rss.close
set rss= nothing

set rsss= nothing
objconn.close
set objconn=nothing
%>
<script>
document.location.replace('grazie.htm');
</script>
</body>
</html>

qualcuno può dami un consiglio?

[michele.santoro]

Provato con un Replace?

[nataw]

come si usa puoi farmi un esempio

[optime]

valore_corretto = Replace(valore_con_apostrofo, "'", "''")

[nataw]

ti ringrazio per il momento, ci provo

[nataw]

ho scritto il codice così:

ax=request.form("testo")
tax=replace(ax,"'","*",,-1)(questa è la riga 16)
tex=replace(tax,"?","ç",,-1)
tax=tex

ma l'errore è:Microsoft VBScript runtime error '800a000d'

Type mismatch

/mail2.asp, line 16


puoi dami un consiglio?

[michele.santoro]

tex=request.form("testo")
tex=Replace(tex,"'","''")