aggiungere area testo a form mail

[Lino80]

ciao, dovrei aggiungere dei campi testo "Messaggio" a questo form..ho provato così ma mi arriva a destinazione solo il testo "Messaggio2":

<%

' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig

' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sito.com"

' 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 = Request.Form("email") ' Mittente
objMail.To = "info@.com" ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
objMail.HTMLBody = Request.Form("messaggio2") ' Messaggio2

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente da " &_

Request.Form("email") & " 

Le risponderemo al più presto!

Grazie.")

else %>
<form name="formail" method="post" action="?invia=true">
<table border="1" align="center" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Oggetto</td>
<td><input type="text" name="oggetto" value="oggetto" /></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>">* Messaggio2</td>
<td><textarea name="messaggio2"></textarea></td>
</tr>
<tr>
<td bgcolor="<%=Tabella_Colore_Titolo%>"></td>
<td> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>

[Mems]

 Assegna all'oggetto le proprietà necessarie
objMail.From = Request.Form("email") ' Mittente
objMail.To = "info@.com" ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") & " " & Request.Form("messaggio2") ' Messaggio + messaggio2

' Invia l'email
objMail.Send()

[Lino80]

grazie Mems velocissimo!!! VVoVe:

e se volessi far arrivare a destinazione il testo nella mia casella di posta fatto in questo modo:

Messaggio: testo....

Messaggio2: testo2.....

anche con uno spazio
tra l uno e l altro si può fare?

[Mems]

objMail.HTMLBody = "Messaggio: " & Request.Form("messaggio") & "
Messaggio2: " & Request.Form("messaggio2") ' Messaggio + messaggio2

[Lino80]

thank you

[Lino80]

vorrei inserire nello stesso script un Response, se nel caso un utente non compila tutti i campi gli uscirà scritto:

"Errore

Devi compilare tutti i campi"

si può?

grazie

[Lino80]

up

[Lino80]

se non sbaglio di dovrebbero inserire nel codice:

dim errore

If email = "" Then
Errore = Errore & "114,"

If messaggio = "" Then
Errore = Errore & "115,"

Else
Response.Redirect "errore.asp?cod=" & Mid(Errore, 1, Len(Errore)-1)
End If

ecc.... ma dove? come ?

grazie

[Lino80]

up