Pagina1.asp

codice:
<%

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\Contratti\database\Contratti.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")

IF Session("Livello") <> "Contabilità" THEN Response.Redirect "log_in.asp"


' Recupero le variabili

Request.QueryString

NomeFile = Request ("NomeFile")
ID_Contratto = Request ("ID_Contratto")

%>

<html><head>

</head><body topmargin="0" bottommargin="0">

<form method="post" action="upload_semplice.asp" name="upload_semplice" enctype="multipart/form-data">

	<table width="335" height="" border="0" cellspacing="0" cellpadding="0" align="center">
		<tr>
			<td colspan="5" height="25"></td>
		</tr>
		<tr>
			<td width="100" height="20" align="right">Collega</td>
			<td width="25" height="20"></td>
			<td width="200" height="20" align="right"><input class="modulo_dati_upload" type="file" name="Campo1" size="27"></td>
		</tr>
		<tr>
			<td colspan="5" height="50"></td>
		</tr>
	</table>

	<input class="modulo_dati" type="hidden" name="NomeFile" size="27" value="<% Response.Write NomeFile %>">
	<input class="modulo_dati" type="hidden" name="ID_Contratto" size="27" value="<% Response.Write ID_Contratto %>">

	<div align="center">
		<input class="modulo_tasti" type="submit" value="COLLEGA" name="invia" size="27">
	</div>

</form>

</body></html>
Pagina2.asp

codice:
<%

Dim oUpload
Set oUpload = new cUpload
	oUpload.SetPath "Files\"
	oUpload.UploadAndSave
Set oUpload=Nothing


' Recupero le variabili

NomeFile = Request ("NomeFile")
ID_Contratto = Request ("ID_Contratto")


Response.Write "collega_effettuato.asp?NomeFile=" & NomeFile & "&ID_Contratto="& ID_Contratto

%>
La seconda pagina dovrebbe fare l'upload del file e poi passare ad un altra pagina

NomeFile e ID_Contratto

per fare un UPDATE sul DBAccess

però alla Pagina2.asp dice

codice:
ADODB.Stream error '80004005'

Operation is not allowed when the object is closed.

/Contratti/sito/upload_semplice.asp, line 16
La linea 16 è NomeFile = Request ("NomeFile")

Come mai?