Come aggiungere una citazione ad una email tramite formail

[gelova]

Utilizzando questo script per inviare email dal mio sito

Set objMail.Configuration = objConfig
objMail.From = "mittente@dominio.it" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
objMail.Send()
Set objMail = Nothing

vorrei fare in modo che il destinatario oltre all'email riceva anche una citazione del tipo:
grazie di aver visitato il mio sito www....., oppure continua a visitare il sito...ecc...
qualche frase da aggiungere alla fine dell'email !

[Mems]

Set objMail.Configuration = objConfig
objMail.From = "mittente@dominio.it" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio &_
                           "
Grazie per aver visitato il sito http://<a href="http://www.miosito.i...miosito.it</a>.
" &_
                           "Torna presto a trovarci!"
objMail.Send()
Set objMail = Nothing

[gelova]

Ho provato ma esce fuori questo errore:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/form_mail/email_2.asp, line 38

objMail.HTMLBody = Request.Form("messaggio") Messaggio &_
---------------------------------------------^

[Mems]

Non mi ero accorto che c'era un commento.

objMail.HTMLBody = Request.Form("messaggio") &_
                           "
Grazie per aver visitato il sito http://<a href="http://www.miosito.i...miosito.it</a>.
" &_
                           "Torna presto a trovarci!"

[gelova]

Ora l'email la manda ma la citazione non appare !
Perchè ?

[gelova]

[gelova]

[Roby_72]

Riposta tutto lo script corretto.

Roby

[gelova]

Eccolo:

<%
' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")

With objConfig

' Server SMTP di uscita

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Assegna all'oggetto le proprietà necessarie
objMail.From = "mia@email.it" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") &_
"
Grazie per aver visitato il sito http://<a href="http://www.miosito.i...miosito.it</a>.
" &_
"Torna presto a trovarci!"

' Invia l'email
objMail.Send()

Set objMail = Nothing

[Mems]

' se la pagina è in locale...
Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuointernetprovider.it"

' altrimenti se è online
Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuositointernet.it"