35 messaggi dal 27 giugno 2005
mi dice che l'e mail è stata inviata correttamente ma nn mi arriva niente... me lo testate? ciao grazie

codice:
<html>
<head>
<title> Invio di una e-mail da una form </title>
</head>
<body">


<%


'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.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><br>
<form action=formmail.asp method=post>

  <table border=1 align=center>
    <tr>
      <td>
      <b>MITTENTE</b>
      </td>
      <td>
      <input type="text" name="mittente" size="30" maxlength="30"><br>
      </td>
    </tr>
    <tr>
      <td>
      <b>DESTINATARIO</b>
      </td>
      <td>
      <input type="text" name="destinatario" size="30 maxlength="30"><br>
      </td>
    </tr>
    <tr>
      <td>
      <b>OGGETTO</b>
      </td>
      <td>
      <input type="text" name="oggetto" size="30" maxlength="30"><br>
      </td>
    </tr>
    <tr>
      <td colspan=2 align=center>
      <b>MESSAGGIO</b><br>
      <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>


Modificato da aluuupo il 20 novembre 2006 15.54 -
35 messaggi dal 27 giugno 2005
ragà una mano per favore ho urgenza!!!

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.