Devo inserire in una cartella upload dei file e contemporaneamente inserire in un db il nome del dei 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><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
%>
*******************************************************************
Precisamente il problema è che in NuovoDoc.asp
<td><b><% response.Write(request.QueryString("file"))%> </b></td> non scrive niente, come se
la variabile file fosse vuota e poi quindi la riga:
<input name="file" type="hidden" id="file" value="<% response.Write(request.QueryString("file")) %>">
risulta vuota e nel db non viene inserito nienete
Chi mi sa aiutare?
Grazie
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
%>
*******************************************************************
Precisamente il problema è che in NuovoDoc.asp
<td><b><% response.Write(request.QueryString("file"))%> </b></td> non scrive niente, come se
la variabile file fosse vuota e poi quindi la riga:
<input name="file" type="hidden" id="file" value="<% response.Write(request.QueryString("file")) %>">
risulta vuota e nel db non viene inserito nienete
Chi mi sa aiutare?
Grazie