1) Sì ma con qualche modifica... devi sostituire i nomi delle variabili, per esempio.
Posso anche scrivertelo visto che ci vuole un attimo se mi sai dire che DLL usi
2) Sì ma dove andranno scritte, fattivamente?
Perché mittente in quel caso comparirà nel campo FROM del client di posta, l'oggetto sarà l'oggetto della mail, il resto andrà nel corpo (body) della stessa.
I campi che vuoi aggiungere (pippo, pluto, paperino) andranno anch'essi accodati al corpo della mail, giusto?
Ci sarà anche una struttura fissa?
Giusto per non parlare di aria fritta...
codice:
<h1><center>Form per invio ordini</center></h1>
<form action=mail.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" value="kjascian@email.it">
</td></tr>
<tr><td>OGGETTO</td>
<td><input type="text" name="oggetto" size="30" maxlength="30"></td></tr>
<tr><td>Paperino</td>
<td><input type="text" name="paperino" size="30" maxlength="30"></td></tr>
<tr><td>Pippo</td>
<td><input type="text" name="pippo" size="30" maxlength="30">
</td></tr>
<tr><td colspan=2 align=center>MESSAGGIO
<textarea name="messaggio" rows="10" cols="60"></textarea>
</td></tr>
<tr><td colspan=2 align=center><input type="submit" name="invia_btn" value="INVIA">
</td></tr>
</table>
</form>
NB: Qua c'era un "end if" derivato probabilmente da un copia e incolla. Se non c'è altro codice sopra levalo.
e poi
codice:
<%
Dim Mail
Mail= "mia@mail.it"
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = Request.Form("mittente")
Mail.To = Request.Form("destinatario")
Mail.Subject = Request.Form("oggetto")
Mail.Body = Request.Form("messaggio") & Request.Form("paperino") & Request.Form("pippo")
Mail.Importance = 1
Mail.Send 'invia la e-mail
Set Mail = nothing
Response.Write "<CENTER><H2>E-mail inviata!<H2></CENTER>"
%>
Grezzissimo, ma dovrebbe funzionare.