Ragazzi, ho bisogno del vostro aiuto. Dal sito di Aruba ho preso uno script per eseguire l'upload di immagini dal sito, che ho implementato ad un'area riservata che già avevo...

Dunque, questo è il form di upload (form_upload_01.asp), modificato da me:

codice:
  
  
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 6.0">
<TITLE></TITLE>
</HEAD>
<BODY bgcolor="#FFCB8C">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td width="100%">

<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="outputFile.asp">
<p align="center"><font face="Verdana" size="2">Nome: <input type="text" name="nome" id="nome"></font><p align="center">
Descrizione: 
<p align="center">
<textarea name="descrizione" cols="60" rows="10" id="descrizione"></textarea><p align="center"><font face="Verdana" size="2">
File : <INPUT TYPE="file" NAME="blob">

<INPUT TYPE="submit" NAME="Enter" value="Invia!">
</font>
</FORM>

      </center>
      <p align="left"></td>
  </tr>
    <tr>
      <td width="100%">

   </td>
  </tr>
  </table>
</div>

</BODY>
</HTML>
Questo, invece, è il file "outputFile.asp" (sempre modificato da me):

codice:
  
  
  
  
<%Response.Expires=0
  Response.Buffer = TRUE
  Response.Clear
  byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount)
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")
  BuildUploadRequest  RequestBin
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  oldfilename = filename
  filename = Day(Now) & "-" & Month(Now) & "-" & Year(Now) & "-" & Hour(Now) & Minute(Now) & Second(Now) & "_by_" & str_users_name & "_" & filename
  value = UploadRequest.Item("blob").Item("Value")

  'Create FileSytemObject Component
  Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

  'Create and Write to a File
  pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
  Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & SUBFOLDER & "\" & filename)
 
  For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
  Next
  MyFile.Close%>
  
  <%
  
  nome_aereo = Request.Form("nome")
  descrizione = Request.Form("descrizione")
  
Dim objFSO, objTextFile

'Creazione dell'istanza FileSystem
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Apertura del file di testo
'Utilizzare, a seconda della necessità, una delle due righe di codice
'Set objTextFile = objFSO.CreateTextFile("C:\InetPub\prova\prova.txt")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("prova.txt"))

'Scrivo la prima riga di codice
objTextFile.WriteLine "Prova:" & nome_aereo & descrizione

'Chiudo il file e i vari oggetti/istanze
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
  
<head>
<title></title>
</head>

<body bgcolor="#FFCB8C">

<p align="center"><font face="Verdana" size="2">
  File "<%=filename%>" ricevuto con successo</font>
<p align="center"><font face="Verdana" size="2">torna</font></p>
Alla fine mi dà quest'errore:

Request object error 'ASP 0207 : 80004005'

Cannot use Request.Form

/public/outputFile.asp, line 34

Cannot use Request.Form collection after calling BinaryRead.

Spero davvero che qualcuno di voi mi riesca ad aiutare. Io sto impazzendo.