Riprendo il post per un'aggiornamento ed un consiglio.
Ho un bel script per l'upload di file che và in errore quando tento d'inserire i dati nel DB.
Questo è l'errore:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/public/upload.asp, line 102
Ecco lo script:
<%
strPath = Server.MapPath("\public\immagini") & "\"
'Controlliamo se sono stati inviati dei file
If Uploader.Files.Count = 0 Then
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b> Nome file: </b>Nessun file inviato.</font></td>
</tr>
<%
If Uploader.Error Then
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b> Errore: </b><%=Uploader.ErrorDesc%></font></td>
</tr>
<%
End If
Else
'Ciclo tra i file inviati
For Each File In Uploader.Files.Items
'Salvo il file
File.SaveToDisk strPath
'Mostriamo i dettagli dei file salvati
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b> Nome file: </b><%=File.FileName%></font></td>
</tr>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b> Dimensioni: </b><%=File.FileSize%> byte</font></td>
</tr>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma"><b> Tipo: </b><%=File.ContentType%></font></td>
</tr>
<%
Next
End If
strFName = File.FileName ******LINEA102 ERRORE*****
strFSize = File.FileSize
strCType = File.Content.Type
Set Uploader = Nothing
'Connessione al Database
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/Catalogo.mdb")
'Prepara la SQL
sql = "select * from Image"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
'Aggiungi
rs.AddNew
rs.Fields("Nome")=nome
rs.Fields("NomeCat")=categoria
rs.Fields("FilePath")=StrPath
rs.Fields("FileName")=strFName
rs.Fields("FileSize")=strFSize
rs.Fields("FileCT")=strCType
rs.update
'Chiusura
rs.Close
Set rs = Nothing
Conn. Close
Set Conn = Nothing
Response.redirect("form.asp")
%>
Un consiglio?
Grazie