mail con allegati : dovè l'errore?

[Mr.Fabio]

HO MODIFICATO IL CONTENUTO DEL POST PERCHE HO RISOLTO UNO DEI DUE PROBLEMI E PER NON APRIRNE UN ALTRO HO FATTO COSI'


dovrei fare una pagina tramite la quale inviare
per posta elettronica un file.


come modifico il codice in maniera
che se la checkbox è spuntata venga allegato
alla mail il file volantino.doc?


ECCO IL CODICE:

........

                  <td width="541" height="23" align="left"><div align="center">
                    <input type="checkbox" name="volantino" value="ON">
                    <font face="Verdana" size="2">
                    

                    volantino</font>
                    </div></td>
                </tr>
                <tr> 
                  <td width="541" height="27" align="left"> <p align="center"> 
                      <input type="submit" name="Submit" value="   Invia   ">

..............

 
<%
Dim miaMail, dest

dest = request.Form("destinatario")
'response.write(dest)

Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "info@miosito.it"
miaMail.To = dest
miaMail.Subject = "Invio pubblicita"
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0
miaMail.Importance = 0

'Invio il file
miaMail.AttachFile "volantino.doc"

miaMail.Body = request.Form("messaggio") 
miaMail.Send

Set miaMail = Nothing

response.Write("<center>Email inviata a: " & dest)
%>

[Roby_72]

miaMail.AttachFile server.mappath("/cartelladelfile/volantino.doc")

Roby

[Mr.Fabio]

ti ringrazio Roby_72, ma il mio problema è il ciclo if che mi determina se la checkbox è spuntata oppure no:

Esempio:
IF (la checkbox è spuntata)
THEN (allega il file)
END IF

<td width="541" height="23" align="left">
<div align="center">
<input type="checkbox" name="volantino" value="ON">volantino
</div>
</td>

[Roby_72]

<td width="541" height="23" align="left">
<div align="center">
<input type="checkbox" name="volantino" value="">volantino
</div>
</td>

volantino = request("volantino")
if len(volantino) > 0 then
..
end if

Roby

[Mr.Fabio]

Non va mi spiace.....
mi arriva la mail ma senza file allegato :master:

<input type="checkbox" name="volantino" value="">invia curriculum

<%
Dim miaMail, dest, invio
invio ="no"
volantino = request("volantino ")
dest = request.Form("destinatario")
response.write(dest)
response.write("
")
response.write(volantino)

Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "info@miosito.it"
miaMail.To = dest
miaMail.Subject = "Invio pubblicita"
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0
miaMail.Importance = 0

'Invio il file
if len(volantino) > 0 then
invio = "si"
miaMail.AttachFile server.mappath("volantino.doc")
end if

miaMail.Body = request.Form("messaggio") 
miaMail.Send

Set miaMail = Nothing

response.Write("
Email inviata a: " & dest &"
volantino: "& invio)
%>

[Roby_72]

Ma il file dov'è???
Sul server o no???

Roby

[Mr.Fabio]

i file si trovano tutti su aruba nella stessa cartella.

[Roby_72]

Metti un attimo il file nella cartella "/public" e scrivi questa riga così:

miaMail.AttachFile server.mappath("/public/volantino.doc")

Roby

[Mr.Fabio]

Caro Roby_72,
sei gentile, ma il mio problema non è:

miaMail.AttachFile server.mappath("/public/volantino.doc")

ma fare funzionare il ciclo if in maniera che se la checkbox è flaggata venga allegato il file volantino.doc
Ho provato a fare:

<td width="502" height="23" align="left">
<div align="center">
<input type="checkbox" name="volantino" value="">volantino
</div>
</td>

if len(volantino) > 0 then
miaMail.AttachFile server.mappath("/public/volantino.doc")
end if

ma non allega alcun file sia che flaggo sia che non flaggo la checkbox

[Roby_72]

Ma l'hai recuperato???

volantino = request("volantino")
if len(volantino) > 0 then

Roby