codice:
Controllando che i campi siano compilati:

if Request.Form("invia_btn") = "INVIA" then

if Request.Form("mittente") &"[]" <> "[]" and Request.Form("destinatario") &"[]" <> "[]" and Request.Form("oggetto") &"[]" <> "[]" Request.Form("messaggio") &"[]" <> "[]" then

  Dim Mail
  Set objMail = Server.CreateObject("CDO.Message")
  objMail.From = Request.Form("mittente")
  'objMail.To = Request.Form("destinatario")
  objMail.To = "miamail@hotmail.com"
  objMail.Subject = Request.Form("oggetto")
  objMail.HTMLBody = Request.Form("messaggio")
  objMail.Send()           'invia la e-mail
  Set objMail = nothing
  Response.Write "<CENTER><H2>E-mail inviata!<H2></CENTER>"

else

response.write("Compila i campi!")

end if

else


'altrimenti visualizza la Form
...
....%>
Roby