Calcola che ora sto usando l'upload di Baol.
codice:
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "img/eventi/"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>215 or .Files("Width")>150 then
Response.write ("Le dimensioni dell'immagine " &_
.GetFileName() &" non sono corrette (" &_
.Files("Height") &"x" & .Files("Width") &"): File non caricato
" )
else
.Save
end if
.MoveNext
Wend
End With
Set oUpload = Nothing
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
titolo = UploadRequest.Item("titolo").Item("Value")
%><% = titolo %>
e l'errore è:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'Item(...)'
sulla riga titolo = ...
il codice del form è:
codice:
<body><FORM METHOD="Post" enctype="multipart/form-data" ACTION="Upload_LimitSizeAndImages1.asp">
File : <INPUT TYPE="file" NAME="Campo1">
File : <INPUT TYPE="file" NAME="Campo2">
File : <INPUT TYPE="file" NAME="Campo3">
File : <INPUT TYPE="file" NAME="Campo4">
File : <INPUT TYPE="file" NAME="Campo5">
<input type="text" name="titolo" size="24" border="0">
<INPUT TYPE="submit" NAME="Enter"></p>
</FORM></body>