ecco tutto il codice:

codice:
If Request("Upload")="1" then
	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "/public/test"
		oUpload.UploadOnly "Images"
		oUpload.Upload
		oUpload.Save
		filename = oUpload.GetFileName()
	Set oUpload=Nothing
	
'	Dim oUpload
'	Set oUpload = new cUpload
'		oUpload.AutoRename = False
'		oUpload.Overwrite = true
'		oUpload.SetPath "/public/test"
'		oUpload.UploadOnly "Images"
'		oUpload.Upload
'		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>