invia allegato via mail oppure no..

[funambolo]

Allora ho un problemino: ho un form in cui inserisco tra i vari dati anche un file da caricare e spedire via mail.. ora il file in questione (una foto) non è obbligatorio quindi l'utente deve poter inviare tutti i dati anche senza inserire la foto.. o meglio voglio fare in modo che sia obbligatorio in un caso ma non in un altro.
In questo momento se io cerco di inviare il form senza aver inserito anche una foto, mi dà errore.. (premetto che ho usato l'upload di BAOL) io vorrei che a seconda del valore che inserisco nel campo 'option', presente nel form, il campo 'file' diventasse obbligatorio o meno e che nel caso non dovesse essere obbligatorio che non mi desse errore.
Praticamente ora il server cerca il file per allegarlo alla mail e siccome non lo trova mi dà errore..
quindi vorrei mettere un 'if' che gli dicesse:"se il file non c'è vuol dire che non l'ho caricato e quindi voglio mandare la mail senza foto!".. e in più una riga che controlli che valore c'è nel campo 'option' e cambi lo stato del campo file da obbligatorio e non..
Tutto questo è possibile?? Spero di essermi spiegato in maniera decente..
In caso sia impossibile mi basterebbe poter mandare le mail anche senza le foto..

thanks

ciao..ciao ..

[Roby_72]

Sintenticamente....

bolFile = false
if not oUpload.EOF then
...carichi il file
bolFile = true
end if

if bolFile then
'Aleeghi alla email
end if

Roby

[funambolo]

troppo sinteticamente.. :master:
ho cercato d'inserire il codice che mi hai postato dove ritenevo giusto, ma l'errore rimane quindi ora t'invio il codice che ho almeno mi puoi dire dove devo scrivere..
scusa..

<%

Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
path="/annunci/allegati/"
.SetPath path
.Load
.UploadOnly "Images"

While Not .Eof
If .Files("Height")=<570 or .Files("Width")=<450 then
Response.redirect ("errore.htm")
else

nomeFile="foto" & codiceID &"."& .Files("ext")
.SaveAs(nomeFile)

.MoveNext

End if



Wend
End With



Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "xxxxx"
Mail.From = "xxxxx"
Mail.AddAddress "xxxxx"
Mail.Subject = "xxxxx"
Mail.Body = "Mittente: " & oUpload.Form("nome") & " " & oUpload.Form("cognome") & "" & chr(10) &_
"Indirizzo: " & oUpload.Form("indirizzo") & ""& chr(10) &_
"CAP: "& oUpload.Form("cap") & ""& chr(10) &_
"Città: " & oUpload.Form("citta") & "" & chr(10) &_
"Stato: " & oUpload.Form("stato") & "" & chr(10) &_
"Telefono: " & oUpload.Form("tel") & "" & chr(10) &_
"E-mail: " & oUpload.Form("email") & "" & chr(10) &_
Mail.AddAttachment server.mappath("/annunci/allegati/"& nomefile)
Mail.Send()


set oUpload=Nothing
set mail = nothing



response.Redirect("grazie.asp")
%>

[Roby_72]

<%
bolFile = false 
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
path="/annunci/allegati/"
.SetPath path
.Load
.UploadOnly "Images"

While Not .Eof
If .Files("Height")=<570 or .Files("Width")=<450 then
Response.redirect ("errore.htm")
else

nomeFile="foto" & codiceID &"."& .Files("ext")
bolFile = true 
.SaveAs(nomeFile)

.MoveNext

End if



Wend
End With



Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "xxxxx"
Mail.From = "xxxxx"
Mail.AddAddress "xxxxx"
Mail.Subject = "xxxxx"
Mail.Body = "Mittente: " & oUpload.Form("nome") & " " & oUpload.Form("cognome") & "" & chr(10) &_
"Indirizzo: " & oUpload.Form("indirizzo") & ""& chr(10) &_
"CAP: "& oUpload.Form("cap") & ""& chr(10) &_
"Città: " & oUpload.Form("citta") & "" & chr(10) &_
"Stato: " & oUpload.Form("stato") & "" & chr(10) &_
"Telefono: " & oUpload.Form("tel") & "" & chr(10) &_
"E-mail: " & oUpload.Form("email") & "" & chr(10)
if bolFile then
Mail.AddAttachment server.mappath("/annunci/allegati/"& nomefile)
end if 
Mail.Send()
set oUpload=Nothing
set mail = nothing

response.Redirect("grazie.asp")
%>

Roby

[funambolo]

grassie!!