Salve a tutti. Ho un semplice modulo in asp inviare un'email, avrei bisogno di inserire la possibilità di allegare file da inviare con la form. Il tutto arriva ad un indirizzo email. Come potrei fare? Grazie per l'aiuto!
Luca

NB: qui sotto posto il codice:

Questo è il form con i campi

<div id="homeadmin">

<h1 id="h1form"><span>Form per l'inoltro di un messaggio</span></h1>
<div>

<p class="info">Per inviare una email all'associazione compilare il form di cui sotto e premere Invia.</p>
<table class="tableartic" width="100%">
<form action="formcdosys.asp" method="post" name="form" target="_self" onSubmit="validate();return returnVal;">
<tr>
<td class="inte">Tua email </td>
<td><input type="text" name="email" maxlength="50"/></td>
</tr>
<tr>
<td class="inte">Oggetto</td>
<td> <input name="oggetto" type="text" size="40" /></td>
</tr>
<tr>
<td class="inte"> Testo</td>
<td> <textarea name="testo" rows="7" cols="40" ></textarea></td>
</tr>
<tr>
<td class="inte">Allega un file
</td>
<td><input type="image" src="img/pulsanti/allega.gif" alt="Allega un file" />
</td>
</tr>
<tr>
<td class="inte">Invia l'email
</td>
<td><input type="image" src="img/pulsanti/invia.gif" alt="invia" />
</td>
</tr>
</form>
</table>
</div>

</div>

E questo è il codice che elabora il tutto



<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "lucadibello@interfree.it"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = request.Form("email")

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = corpoMessaggio
.Send
End With
%>
<script>
document.location.replace('grazie.asp?azione=mail' );
</script>