codice:

<%
		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
'***********************************************************************
%>