<%
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

' Imposta le configurazioni
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 = "[email protected]" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
' Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))else %>

per fortuna che avevo detto le righe incriminate...

comunque non ti invia la citazione semplicemente perchè non c'è....

objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

????

Scusami Legolas il codice sopra è quello originale,
quello con le modifiche suggerite da te diventerebbe:

<%
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
Dim citazione
citazione = vbcrlf & "grazie ecc......"
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")
......
..........
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "[email protected]" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") & citazione
' Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))else %>
Ma anche questo pur inviando l'emai non fa apparire la citazione !:x

Dove sei Legolas

prova a cambiare questa stringa
citazione = vbcrlf & "grazie ecc......"

con questa

citazione = " grazie ecc......"

Mi dispiace deluderti Legolas ma la citazione continua a non apparire !
x:x

prima di inviare la mail fai un response.write Request.Form("messaggio") & citazione e guarda cosa ti scrive

Ho scritto come dici tu e mi appare sempre la scritta:
"Email inviata correttamente all'indirizzo.....ecc"
Inviandomi l'email.
Non ci sto capendo un tuboooooo x:x

i consigli che ti ha dato legolas ed il codice che vedo sembra essere tutto corretto. La cosa è strana!
Prova magari una cosa, a non dichiarare la variabile citazione, ovvero elimina "Dim citazione" anche se non dovrebbe cambiare assolutamente nulla.

Curiosità, vedo che nel codice usi sia request.querystring che request.form, questo funziona solo se usi come metodo di invio dati il metodo POST e come action del form qualcosa come pagina.asp?invia=true. Hai impostato così la tua pagina?

Facci sapere.

Si è impostata proprio così "email.asp?invia=true"

Ci rinuncio ?

ma se scirvi:

Dim citazione
citazione = "ciao ciao ciao"
Request.Form("messaggio")  & citazione

Ti scrive la citazione?

Ok ! Funziona tutto non so cosa era successo ho cancellato i file e ricreato tutto e poi ho ripubblicato tutto quando e finalmente funziona.
Però la citazione ad esempio > citazione = "ciao ciao ciao"
la scrive accanto al messaggio come potrei fare per scriverla sotto di un paio di righe ?

se mandi un messaggio html:

citazione = "<br/><br/><br/>CITAZIONE"

se il messaggio non è html:

citazione = vbcrlf & vbcrlf & "CITAZIONE"

Ciao

@gelova said:

Ok ! Funziona tutto non so cosa era successo.....

ah perfetto! Era diventato un mistero inspiegabile!

Ok Grazie a tutti !