Upload di Baol

[Baol74]

Ok, mi era sfuggito. Questo funziona. Il filtro va messo dopo la chiamata di oUpload.Upload

<%
If Request("Upload")="1" then
	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "/public/test"
		oUpload.Upload
		oUpload.UploadOnly "Images"
		If oUpload.Count > 0 then		
			oUpload.Save
			filename = oUpload.GetFileName()
			Response.Write "Il file è stato caricato : "& filename 
		Else
			Response.Write "Nessun file caricato"	
		End if
	Set oUpload=Nothing	
end if
%>
<FORM ACTION="?upload=1" METHOD="Post" enctype="multipart/form-data" name="form" id="form">
	

ISTRUZIONI:</p>
	<ul>
	[*]Cliccare sul pulsante SFOGLIA.
	[*]Selezionare il file da uploadare.
	[*]Premere APRI.
	[*]Infine premere AGGIUNGI.
	[/list]
	<p align="center"><font size="2" face="Arial">

	  </font> 	  
	File : 
	<INPUT TYPE="file" NAME="Campo1">

	<INPUT NAME="Enter" TYPE="submit" value="INVIA">
  </FORM>