upload - mail - delete contemporaneamente

[marco1970]

salve,
vi spego cosa faccio e quali sono i problemi.
ho 2 pagine la prima mail.htm dalla quale invio vari campi alla seconda pegina mail.asp la quale li riceve ed effettua in sequenza:
- Upload di Baol 74
- Invio mail con allegato ( dominio win 2003 )
- cancellazione del file uplodato

singolarmente tutto funzionna ma se unisco il tutto ho il problema che se eseguo un upload di dimensioni parte email prima che upload finisca.
secondo problema (anche su file piccoli) faccio upload,tutto ok, mando mail,tutto ok, tento di cancellare ma non trova ancora il file in quanto quest'ultimo arriva non immediatamente.

Qualche consiglio?
Grazie
Marco

[ubbicom]

fai vedere il codice, tra i tag possibilmente.

[marco1970]

<%
		SetLCID
'***********************************************************************
'***********************************************************************inizio upload
Dim oUpload
Set oUpload = new cUpload

'Destinazione
oUpload.SetPath "."
oUpload.AutoRename= False
oUpload.Load()

indirizzo = oUpload.Form("indirizzo")
oggetto = oUpload.Form("oggetto")
messaggio_formattato = oUpload.Form("messaggio")
NomeFile = oUpload.GetFileName()

While Not oUpload.EOF
	oUpload.Save
	If oUpload.Files("ErrorNumber")<>0 then
		Response.Write "Si è verificato un errore nel salvataggio del file " & oUpload.GetFileName() & "
"
	Else
		Response.Write "Il file " & oUpload.GetFileName() & " è stato salvato 
"
	End if
	oUpload.MoveNext
Wend

Set oUpload=Nothing
'***********************************************************************fine upload
'***********************************************************************



'***********************************************************************inizio mail
'***********************************************************************

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg
	Set .Configuration = iConf
	.CreateMHTMLBody "http://www.miosito.it/public/mail/mail.htm"
	.AddAttachment(Server.MapPath(NomeFile))
	.To = indirizzo
	.From = "info@miosito.it"
	.Subject = oggetto
	.Send
End With
set iMsg =nothing
set iConf =nothing
'***********************************************************************fine mail
'***********************************************************************



'***********************************************************************inizio a cancellare
'***********************************************************************
Dim fso
set fso=Server.CreateObject("Scripting.FileSystemObject")
Dim file
file=Server.MapPath(NomeFile)
if (fso.fileExists(file)) then
	fso.DeleteFile(file)
	Response.Write "Il file è stato cancellato 
"
else
	Response.Write "Il file NON è stato trovato 
"
end if

'***********************************************************************fine procedura per cancellare
'***********************************************************************
%>