Ciao...
vorrei far funzionare questo script: è configurato per cdonts e va trasformato per cdosys.
ma no so che fare...
Ho eliminato il campo "To", volendo mettere il destinatario nello script (ho fatto male?)
Qualcuno può aiutarmi?
codice:
<%
'Sample file Form-Email.asp 
' Let's you send one an email with one or more attachments.

'Global declarations.
'Get temporary folder
Dim ResultHTML

'Create upload form
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %><% 

Server.ScriptTimeout = 1000
'Do not upload data greater than 10MB. 
Form.SizeLimit = &HA00000

'Progress bar window will receive the same ID.
Form.UploadID = Request.QueryString("UploadID")'{/b}

Const fsCompletted  = 0

If Form.State = fsCompletted Then 'Completted
  ResultHTML = ProcessForm
ElseIf Form.State > 10 then
  Const fsSizeLimit = &HD
  Select case Form.State
		case fsSizeLimit: ResultHTML = "
<Font Color=red>Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font>
"
		case else ResultHTML = "
<Font Color=red>Some form error.</Font>
"
  end Select
End If 
if request.QueryString("Action") = "Cancel" then
	ResultHTML = "
Upload was cancelled"
end if

Function TempFolder()
	Dim FS
  Set FS = CreateObject("Scripting.FileSystemObject")
  'Get temporary folder
  TempFolder = FS.GetSpecialFolder(2) & "\emailtemp"
End Function

Sub DeleteFile(FileName)
	Dim FS
  Set FS = CreateObject("Scripting.FileSystemObject")
	FS.DeleteFile FileName
End Sub




Function ProcessForm
  Dim eFrom, eTo, Subject, Message

  'get source form fields - From, To, Subject and Message
  eFrom = Form("From")
  eTo = mio@indirizzo.it 'va bene se definisco l'indirizzo qui, senza mettere il form?
  Subject = Form("Subject")
  Message = Form("Message")
  
  Dim HTML
  HTML = "
<Font Color=red>_____Server-side ASP script accepted source form with fields and files and email object was created. "
  HTML = HTML & "
From: " & eFrom & ""
  HTML = HTML & "
To: " & eTo & ""
  HTML = HTML & "
Subject: " & Subject & ""
  HTML = HTML & "
Message: " & Message & ""

  Dim objNewMail, File, FileName

  'Create a new email message
  Set objNewMail = CreateObject("CDONTS.NewMail")
  Const CdoMailFormatMime = 0
  objNewMail.MailFormat = CdoMailFormatMime
  'Save source files to temporary folder
  'Add these files to the new e-mail
	HTML = HTML & "
Attachments:"
  For Each File In Form.Files.Items

    'If source file is specified.
    If Len(File.FileName) > 0 Then

		  HTML = HTML & "
" & File.Name & ": " & File.FileName & ", " & File.Length \ 1024 & "kB"
      FileName = TempFolder & "\" & File.FileName 
    
      File.SaveAs FileName
      
      objNewMail.AttachFile FileName
    End If
  Next
  
  'Send the new email
  objNewMail.Send eFrom, eTo, Subject, Message

  'delete temporary files
  For Each File In Form.Files.Items
    If Len(File.FileName) > 0 Then
      FileName = TempFolder & "\" & File.FileName
      on error resume next
      DeleteFile FileName
    End If
  Next
  HTML = HTML & "</Font>
"
  ProcessForm = HTML
End Function



'{b}get an unique upload ID for this upload script and progress bar.
Dim UploadID, PostURL
UploadID = Form.NewUploadID

'Send this ID as a UploadID QueryString parameter to this script.
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
%>  
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
 <TITLE>.............</TITLE>
 <STYLE TYPE="text/css"></STYLE>
 <meta name="robots" content="noindex,nofollow">
</HEAD>
<BODY BGColor=white>


<Div style=width:600>

<TABLE cellSpacing=2 cellPadding=1 width="100%" bgColor=white border=0>
  
  <TR>
    <TD colSpan=2>
      

Temporary folder for e-mail file attachments is <%=TempFolder%>
  </P>
  </TD></TR></TABLE>
<%=ResultHTML%>

<TABLE cellSpacing=1 cellPadding=3 bordercolor=silver bgcolor=GAINSBORO width="100%" border=1>
<form method="post" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">
  <TBODY>
  <tr><td> From : </td><td><input Name=From Size=50 value="<%=Form("From")%>"></td></tr>

  <tr><td> To : </td><td></td></tr>

  <tr><td> Subject : </td><td><input Name=Subject Size=80  value="<%=Form("Subject")%>"></td></tr>

  <tr><td ColSpan=2> Message:
    
<TEXTAREA name=Message rows=6 cols=76><%=Form("Message")%></TEXTAREA>
  </td></tr>

  <tr><td ColSpan=2>File attachments:
     Form size limit is <%=Form.SizeLimit%>B (<%=Form.SizeLimit \ 1024 %>kB).

    <DIV ID=files>
       Attachment 1 : <input type="file" name="File 1">
    </DIV>
    <INPUT Type=button Value="Aggiungi file" OnClick=return(Expand()) 
     Style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BACKGROUND: yellow; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px">
  </td></tr>

  <tr><td ColSpan=2 Align=right>
    <input Name=SubmitButton Value="Invia email &gt;&gt;" Type=submit>
    </td></tr>
  </form></TBODY>
</TABLE>




<SCRIPT>
//Script to add an attachment file field 
var nfiles = 1;
function Expand(){
  nfiles++
  var adh = '
 Attachment '+nfiles+' : <input type="file" name="File '+nfiles+'">';
  files.insertAdjacentHTML('BeforeEnd',adh);
  return false;
};

//Open a window with progress bar indicator.
function ProgressBar(){
  var ProgressURL
  ProgressURL = 'progress.asp?UploadID=<%=UploadID%>'

  var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=350,height=200')
  
  return true;
}
</SCRIPT>

</Div>
</BODY></HTML>