Ciao a tutti
premesso che è la prima volta che mi cimento con gli upload, ho un problemino con quello di baol.
ho modificato l'upload anche con contributi di altri utenti spulciando qui nel forum
praticamente il codice che ho è
<%
Set oUpload = new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "../../../immagini/staff/personale/"
.Load
.UploadOnly "image"
While Not .EOF
IF cLng(.Files("Size"))> 102000 then
Response.write ("Il file " & .GetFileName() & " non è stato caricato perchè il file pesa troppo.")
else
.Save
Response.write ("Il file " & .GetFileName() & " è stato caricato con successo.")
end if
.MoveNext
strNomeFile = .GetFileName()
'Salvo le informazioni sul database
strSQL = "INSERT INTO `staff` "
strSQL = strSQL & "(`nominativo`, `reparto`, `foto`) "
strSQL = strSQL & "VALUES ('" & request("Nominativo") & "', " & request("Reparto") & ", '" & strNomeFile & "');"
adoCon.Execute(strSQL)
.MoveNext
Wend
End With
Set oUpload = Nothing
%>
però mi dà questo errore
Microsoft VBScript runtime error '800a01a8'
Object required: 'FilterImage()'
/xyz/utility/staff/upload/upload.asp, line 417
il codice alla linea è
Case "images","image" :Files.Filter = FilterImage()
please... una mano...
Grazie a tutti e a Baol per il suo upload

Rispondi quotando
