<%
If Request("Upload")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath "/writable/"
oUpload.Upload
oUpload.SaveAs ""
Set oUpload=Nothing
end if
%>
<%
Set emailMail = Server.createObject("CDO.Message")
Set emailConfig = Server.createObject ("CDO.Configuration")
With emailConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mioprovider.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set emailMail.Configuration = emailConfig
emailMail.From = "info@mioprovider.com"
emailMail.To = "mioprovider@mioprovider.com"
emailMail.Subject = "- Email dal Sito Web - Invio File"
emailMail.HTMLBody = "
