Ciao a tutti!
Nel mio sito gli utenti possono iscriversi alla newsletter compilando un semplice form. Una volta spediti i dati, viene inviata un'e-mail (cdosys) con il riepilogo dei dati. Questi nel frattempo vengono salvati su db (fin qui funziona tutto).
Nell'e-mail inserisco due link che consentono all'utente di confermare o annullare l'iscrizione. Qui sorgono dei problemi, penso di facile soluzione, ma al momento sono poco lucido e non ci arrivo da solo. 
Questo l'errore se annulla l'iscrizione:
codice:
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression 'mail =mail_utente@hotmail.com'.
/mod-newsletter.asp, line 26
Questo l'errore se conferma l'iscrizione:
codice:
Microsoft JET Database Engine error '80040e14'
Missing semicolon (;) at end of SQL statement.
/mod-newsletter.asp, line 20
Altro problema: i link dell'e-mail inviata con cdosys non sono cliccabili (almeno legegndo il messaggio dalla pagina di hotmail).
Infine, ecco il codice della pagina che conferma/annulla:
Codice PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>
<body>
<%
dim mail, conferma, annulla, sqlNewsletter
mail = request("mail")
conferma = request("conferma")
annulla = request("annulla")
if conferma <> "" then
sqlNewsletter = "INSERT INTO iscritti (conferma) values ('"&conferma&"') where mail =" & mail
objConn.execute (sqlNewsletter)
response.Redirect ("conferma.html")
end if
if annulla <> "" then
sqlNewsletter = "DELETE * FROM iscritti where mail =" & mail
objConn.execute (sqlNewsletter)
response.Redirect ("annulla.html")
end if
%>
</body>
</html>
<%
objConn.close
set objConn = nothing
%>
Questa è invece la pagina che riceve i dati del form e invia l'e-mail:
Codice PHP:
<%
'recupero dati
dim nome, cognome, anno, sezione, mail, sqlNewsletter, conferma, annulla
nome = request("nome")
cognome = request("cognome")
anno = request("anno")
sezione = request("sezione")
mail = request("mail")
conferma= "www.nomesito.com/mod-newsletter.asp?conferma=ok&mail=" & mail
annulla = "www.nomesito.com/mod-newsletter.asp?annulla=ok&mail=" & mail
sqlNewsletter = "INSERT INTO iscritti (nome,cognome,anno,sezione,mail) values ('"&nome&"','"&cognome&"','"&anno&"','"&sezione&"','"&mail&"')"
objConn.execute (sqlNewsletter)
'********* SCRIPT CDOSYS ******************************************************
If Request.ServerVariables("server_software") <> "Microsoft-IIS/5.1" Then
Oggetto = "Iscrizione newsletter nomesito.com"
IMG = "http://www.nomesito.com/images/logo.jpg"
Dim eMail
Set eMail = CreateObject("CDO.Message")
'Definiamo i diversi attributi della nostra mail
eMail.From = "info@nomesito.com"
eMail.To = mail
eMail.Bcc = "webmaster@hotmail.com"
eMail.Subject = Oggetto
eMail.HTMLBody = "<html><body>[img] & IMG & [/img]
"
eMail.HTMLBody = eMail.HTMLBody & "
"
eMail.HTMLBody = eMail.HTMLBody & "Richiesta di iscrizione alla newsletter da parte di [b]" & nome & " " & cognome & "[/b]
"
eMail.HTMLBody = eMail.HTMLBody & "[b]<u>Dati del richiedente</u>[/b]:
"
eMail.HTMLBody = eMail.HTMLBody & "
[b]Anno di maturità[/b]: " & anno
eMail.HTMLBody = eMail.HTMLBody & "
[b]Sezione[/b]: " & sezione
eMail.HTMLBody = eMail.HTMLBody & "
[b]E-mail[/b]: " & mail & "
"
eMail.HTMLBody = eMail.HTMLBody & "Per confermare l'iscrizione clicca sul link:
"
eMail.HTMLBody = eMail.HTMLBody & conferma & "
"
eMail.HTMLBody = eMail.HTMLBody & "Conserva questo messaggio. In qualunque momento puoi annullare l'iscrizione alla newsletter
"
eMail.HTMLBody = eMail.HTMLBody & "cliccando sul seguente link:
"
eMail.HTMLBody = eMail.HTMLBody & annulla
'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Value = 1
eMail.Fields.Update()
'Inviamo la mail!
eMail.Send()
Set eMail = Nothing
ELSE
RESPONSE.Write("SU IIS NON POSSO INVIARE LA MAIL DI CONFERMA
")
END IF
response.Write(login)
'***** FINE SCRIPT CDOSYS *****************************************************
response.Redirect ("index.html")
%>
</body>
</html>
<%
objConn.close
set objConn = nothing
%>
Grazie in anticipo all'anima pia che di domenica mi risponderà.. 
Rispondi quotando
, usa la sequenza "". Ad esempio Response.Write("<a href=""p.asp"">....")
