Problema con apice di indirizzo email

[[trodat]]

Originariamente inviato da optime
la replace va usata solo nei confronti del db

Infatti, nel db l'email è registrata come pippo.d'anna@nomedominio.it

Nel form scrivo pippo.d'anna@nomedominio.it

Per non mandare in errore la query di controllo faccio il replace:

function pulisci(stringa)
   pulisci = replace(stringa, "'", "''")
end function

strMail = pulisci(request.form("mail"))

Ma controllando nel db l'email non viene riconosciuta perchè è diventata:

pippo.d''anna@nomedominio.it

		strSql = "SELECT * FROM codici WHERE userName='"&strUser&"' AND userMail='"&strMail&"'"
		Set rs = Server.CreateObject("ADODB.Recordset")

		rs.Open strSql, conn ,3,3		

		if not(rs.eof) then
.....