form mail da errore se lascio i campi vuoti

[fbdesign]

Ho questa form che compilandola mi funziona regolarmente, ma se la invio lasciando i campi vuoti mi da quest'errore:

CDO.Message.1 error '8004020d'

At least one of the From or Sender fields is required, and neither was found.

/formmail.asp, line 22

(la linea 22 è: objMail.Send() 'invia la e-mail)

Come risolvo? grazie

'Se alla pagina viene inviata la form con i dati...


if Request.Form("invia_btn") = "INVIA" 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


'altrimenti visualizza la Form


%>



<h1><center>Form per invio e-mail</center></h1>

<form action=formmail.asp method=post>

  <table border=1 align=center>
    <tr>
      <td>
      MITTENTE
      </td>
      <td>
      <input type="text" name="mittente" size="30" maxlength="30">

      </td>
    </tr>
    <tr>
      <td>
      DESTINATARIO
      </td>
      <td>
      <input type="text" name="destinatario" size="30 maxlength="30">

      </td>
    </tr>
    <tr>
      <td>
      OGGETTO
      </td>
      <td>
      <input type="text" name="oggetto" size="30" maxlength="30">

      </td>
    </tr>
    <tr>
      <td colspan=2 align=center>
      MESSAGGIO

      <textarea name="messaggio" rows="8" cols="42"></textarea>
      </td>
    </tr>
    <tr>
      <td colspan=2 align=center>
      <input type="submit" name="invia_btn" value="INVIA">
      </td>
    </tr>
  </table>
</form>


<%
end if
%>


</body>
</html>