<%
If request("Button")="Invia" then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.xxxxx.it"
Mail.From = "xxx@xxx.it"
Mail.FromName = request("Nome")
Mail.AddAddress "xxx@xxx.it", "Nome Cognome"
Mail.Subject = "Mail da " & request("TuaMail")
Mail.Body = request("Oggetto") & request("Messaggio")
Mail.Send
Response.Write "Messaggio inviato con successo, grazie per averci scritto!"
else
%>
<center><font size="+2">Scrivice</font>
<form action="mail.asp" method="POST" name="commenti">
<div align="center">
<table border="0" cellspacing="1" width="421">
<tr>
<td width="86">
Nome:</td>
<td width="321" align="right"> <input type="text" size="20" name="Nome"></td>
</tr>
<tr>
<td width="86">
La tua e-mail:</td>
<td width="321" align="right"> <input type="text" size="20" name="TuaMail"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellspacing="1" width="422">
<tr>
<td width="144">
Oggetto del messaggio:</td>
</center>
<td width="264">
<p align="right"> <input type="text" size="20" name="Oggetto"></p>
</td>
</tr>
<center>
<tr>
<td width="144">
Messaggio:</td>
<td width="264"></td>
</tr>
</table>
</div>
<TEXTAREA name="Messaggio" ROWS="10" COLS="50"></TEXTAREA>
<input type="submit" name="Button" value="Invia">
<INPUT TYPE="RESET" value="Reimposta">
</form>
<%
End if
%>
<%
If Err <> 0 Then
Response.Write "Il messaggio non Ë stato inviato per la seguente ragione: " & Err.Description
End if
%>