Di seguito il codice dei mie file:

NuovoDoc.asp:

<h2><em> INSERIMENTO NUOVO DOCUMENTO </em></h2>
<FORM METHOD="POST" ACTION="upDocumento.asp" name="caricadocumento" ENCTYPE="multipart/form-data">
<table width="100" border="0" cellspacing="0" cellpadding="1">
<tr>
<td>
Documento:<BR>
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR><BR>

</td>
</tr>
<tr>
<td><div align="center">
<INPUT TYPE="SUBMIT" VALUE="CARICA DOCUMENTO">
</div></td>
</tr>
<td>
<p align="left"><em><strong>File allegati: </strong></em></p>
</td>
<td><b><% response.Write(request.QueryString("file"))%> </b></td>
</tr>
</table>
</FORM>

<FORM METHOD="POST" ACTION="insertDoc.asp" name="infodocumento" >
<table width="100" border="0" cellspacing="0" cellpadding="1">
<tr>
<td>Descrizione:<br>
<textarea name="descrizione" rows="5" cols="47"></textarea>
<BR>
<BR>
Data:<br> gg <input maxlength=40 name="Giorno" size=4> / mm <input maxlength=40 name="Mese" size=4> / aaaa <input maxlength=40 name="Anno" size=8><BR><BR>

<input name="file" type="hidden" id="file" value="<% response.Write(request.QueryString("file")) %>">
</td>
</tr>
<tr>
<td> <div align="center">
<INPUT TYPE="SUBMIT" VALUE="SALVA">
</div></td>
</tr>
</table>
</FORM>

UpDocumento.asp

<h2><em> UPLOAD DOCUMENTO</em></h2>
<%
Dim mySmartUpload
Dim file
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs(Server.mapPath("upload/" & file.FileName))
Response.Write("Nome File = " & file.FileName & "<BR>")
Response.Write("Dimensione = " & file.Size & "<BR>")
Response.Write("Estensione file = " & file.FileExt & "<BR>")
Response.Write("percorso file= " & file.FilePathName & "<BR>")
Dim filename
filename=file.FileName
End If
Next
response.Redirect "NuovoDoc.asp?file = " &filename
%>

InsertDoc.asp

<%
Dim data, descrizione, nomefile
data = Request.Form("data")
descrizione = Request.Form("descrizione")
nomefile = Request.Form("file")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.mapPath("/db/crm.mdb"))
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "documenti",objConn, 3, 3
objRs.AddNew
objRs("nomefile")= nomefile
objRs("data") = data
objRs("descrizione") = descrizione
objRs("percorso") = "upload/"&nomefile
objRs.Update
objRs.Close
Set objRs = Nothing

%>

Il problema è che in NuovoDoc.asp nella zona file allegati non scrive niente (come se la variabile ?file? fosse vuota).

Chi mi sa aiutare?
Grazie[/LEFT][/LEFT]

:bho: