Ciao a tutti...
è un ora che tento di uplodare un'immagine insieme a delle descrizioni..
nulla...mi da sempre questo errore :

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/commerce/upload.asp, line 29

Questo è il codice...chi mi aiuta ????

<!--#INCLUDE FILE="conn.asp"-->
<%
if Session("livello") < 1 then
response.redirect "../noaut.htm"
end if

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
id= request.querystring("id")
redir=request.querystring("redir")

Dim mySmartUpload
Dim file
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,gif"
mySmartUpload.DeniedFilesList = "exe,bat,asp,com,pif,bmp,txt"
mySmartUpload.DenyPhysicalPath = True
mySmartUpload.MaxFileSize = 300000
mySmartUpload.Upload

For each file In mySmartUpload.Files
If not file.IsMissing Then
nomefile = file.Name
end if
Next

file.SaveAs("/immagini ditte/" & file.FileName)
SQL= " INSERT INTO aziende (azienda,gruppo,logo_azienda,mostra) VALUES ('"&mySmartUpload.Form("azienda")&"',"&mySmartUpload.Form("gruppo")&",'"&file.FileName&"',FALSE)"
set rs = MyConn.Execute(SQL)
%>

Prima tutto grazie per l'aiuto....

questo è il codice di conn.asp

<% Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb"
Session("Connessione")=DataConn %>

Grazie per l'aiuto...
l'errore non era quello...me ne ero già accorto.
Ora sono riuscito a sistemarlo

For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs("/immagini ditte/" & file.FileName)
gruppo= mySmartUpload.Form("gruppo")
SQL= " INSERT INTO aziende (azienda,www,gruppo,mostra,logo_azienda) VALUES ('"&mySmartUpload.Form("azienda")&"','"&mySmartUpload.Form("www")&"',"&gruppo&",FALSE,'"&file.FileName&"')"
set rs = dataconn.Execute(SQL)
end if
next