codice:
<%

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

email = trim(Request.Form("email")) ' Mittente
oggetto = trim(Request.Form("oggetto")) ' Oggetto
messaggio = trim(Request.Form("messaggio")) ' Messaggio
messaggio2 = trim(Request.Form("messaggio2")) ' Messaggio2

if email &"[]" <> "[]" and oggetto &"[]" <> "[]" and messaggio &"[]" <> "[]" and messaggio2 &"[]" <> "[]" 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>
<%else
    Response.Write("Devi compilare tutti i campi, non te lo dico più!")
end if
end if
%>
Roby