|
il form si chiama FormMail.asp <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" --> <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> <html> <body> <% If request("Button")="Invia" then Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From=request("Address") CorpoMessaggio="Grazie" & request("Nome") & request("Cognome") & "per aver letto il mio articolo" objMail.Body=CorpoMessaggio objMail.To="A_ASPItalia@dominio.it" objMail.Subject="Risultati da una Form di Prova" objMail.Send set objMail = nothing response.write "E-mail Inviata" else %> <form action="FormMail.asp" method="POST" name="CDOEMAIL"> Nome: <input type="text" size="20" name="Nome"> Cognome:<input type="text" size="20" name="Cognome"> E-mail: <input type="text" size="20" name="Address"> <input type="submit" name="Button" value="Invia"> </form> <% End if %> </body> </html> |