Ciao.

Sto cercando di mettere insieme un form per l'upload implementando la classe di Baol74 con del materiale trovato con la ricerca ed ho scritto questo codice:
codice:
 
<%

Function GetConnection()
  dim Conn: Set Conn = CreateObject("ADODB.Connection")
  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
  Conn.open "Data Source=" & Server.MapPath("mdb-database/upload.mdb") 
  set GetConnection = Conn
end function

If Request("Upload")="1" then

Dim VirtualFolder 
VirtualFolder = "UploadFolder"
response.write VirtualFolder &"
"

Dim DestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
response.write DestinationPath &"
"

Dim oUpload
	Set oUpload = new cUpload
		oUpload.Upload
		
        oUpload.SaveAs DestinationPath & "\" & GetFileName
      

	Set oUpload=Nothing	
end if


%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1" size="20">

<INPUT TYPE="submit" NAME="Enter">
</FORM>
Non dà errori ma il file non viene caricato sul server.
Dove sbaglio?