per modifica su form mail

[Lino80]

dopo premuto sul pulsante INVIA compare la seguente scritta:

Email inviata correttamente da tuamail@...

sotto questa vorrei scriverci:

"Le risponderemo al più presto!

Grazie"

ho provato..ma nada.. avete idee?


contatti.asp:

<blockquote>
<p align="justify" class="Stile9">
<div align="center">





<font size="4" face="Georgia, Times New Roman, Times, serif">CONTATTACI</font><font size="4"><font face="Georgia, Times New Roman, Times, serif"></font></font><font size="4"><font face="Georgia, Times New Roman, Times, serif"></font></font><font size="4"><font face="Georgia, Times New Roman, Times, serif"></font></font><font size="4"><font face="Georgia, Times New Roman, Times, serif"></font><font face="Georgia, Times New Roman, Times, serif">



</font></font></div>


<%

' 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.tuo-url.com" 'es: "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@sito.com" ' 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 da " &_

Request.Form("email"))

else %>
<form name="formail" method="post" action="?invia=true">
<table border="1" align="center" cellpadding="3" cellspacing="1" bordercolor="#092952">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>
</p>
</blockquote>
</p>

[fero]

devi cambiare questa riga :

Response.Write("Email inviata correttamente da " &_
Request.Form("email"))


in :
Response.Write("Email inviata correttamente da " &_
Request.Form("email") & "

Le risponderemo al più presto!

Grazie"
)


ciao!

[Lino80]

grazie