problemi con aspsmartupload e database

[liviapaterra]

Devo inserire in una cartella upload dei file e contemporanamente inserire in un dab il nome del file, una descrizione, una data ed il percorso. Sono obbligata ad usare aspsamrtupload da register.it. Il problema è che non riesco a "ripescare" il nome del file caricato sul server e quindi il percorso che è del tipo:upload\nomefile e ad inserirlo nel db.

Di seguito il codice dei mie file:

NuovoDoc.asp:
************************************************** **************
<h2> INSERIMENTO NUOVO DOCUMENTO </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:

<INPUT TYPE="FILE" NAME="FILE1" SIZE="50">



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

<FORM METHOD="POST" ACTION="insertDoc.asp" name="infodocumento" >
<table width="100" border="0" cellspacing="0" cellpadding="1">
<tr>
<td>Descrizione:

<textarea name="descrizione" rows="5" cols="47"></textarea>




Data:
gg <input maxlength=40 name="Giorno" size=4> / mm <input maxlength=40 name="Mese" size=4> / aaaa <input maxlength=40 name="Anno" size=8>



<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> UPLOAD DOCUMENTO</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 & "
")
Response.Write("Dimensione = " & file.Size & "
")
Response.Write("Estensione file = " & file.FileExt & "
")
Response.Write("percorso file= " & file.FilePathName & "
")
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 scrove niente (come se la variabile file fosse vuota).

Chi mi sa aiutare?
Grazie

[Roby_72]

file.FileName è il nome del file, assegnalo ad una variabile e passala in querystring.

Roby

[liviapaterra]

Lo faccio già nel file UpDocumento.asp

Dim filename
filename=file.FileName
....
response.Redirect "NuovoDoc.asp?file = " &filename

e poi nel file NuovoDocumento.asp

<td><% response.Write(request.QueryString("file"))%> </td>

ma non scrive niente!

[Roby_72]

La Dim dentro la For/Next è sbagliata, la devi fare fuori...
Ma tutti quei response.write scrivono qualcosa?

Roby

[liviapaterra]

Ho tirato fuori la dim dal ciclo for e adesso ho quest'errore:

Microsoft VBScript runtime error '800a01a8'
Object required: ''

Le response.write vengono correttamente scritte ( mi servono solo come controllo per vedere se l'uplod sul servere viene esguito ).