Jag får felmed:
Subscript out of range
/pressrelease/fileupload.asp, line 13
<% Set ObjFolder = CreateObject("Scripting.FileSystemObject")
strPath=Server.MapPath("/pr/testmapp/")
If not ObjFolder.FolderExists(strpath) then
ObjFolder.CreateFolder strPath
end if
Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
myUpload.upload <----- *****rad 13*****
file1 = mySmartUpload.Form("file1")
file2 = mySmartUpload.Form("file2")
file3 = mySmartUpload.Form("file3")
file4 = mySmartUpload.Form("file4")
file5 = mySmartUpload.Form("file5")
if len(file1)>0 then
file.SaveAs(strPath & file1)
end if
if len(file2)>0 then
file.SaveAs(strPath & file2)
end if
if len(file3)>0 then
file.SaveAs(strPath & file3)
end if
if len(file4)>0 then
file.SaveAs(strPath & file4)
end if
if len(file5)>0 then
file.SaveAs(strPath & file5)
end if
Close.myUpload
%>
Hej! :)
Ja, på ett webhotell, (https://www.terrasite.com)
Version, hittar det inte på deras supportsida, men jag kan återkomma med den uppgiften när deras support öppnar.(kl 15)
Webhotell har en tendens att stänga av save.as funktionen av någon säkerhetsanledning, fråga mig inte vad dock.
Det kan inte vara
PRB: aspSmartUpload error '800a0009' Subscript out of range
--------------------------------------------------------------------------------
This error occurs when the asp is directly executed instead of being called from an HTML form with an ENCTYPE="multipart/form-data" tag.
Dock så förstår jag inte den koden riktigt, så jag vill skriva en egen, som jag förstår, samt kunna ladda 5 filer samtidigt istället för bara 1 :)
Efter att ha tänkt lite mer, det står ju på rad 13 "myUpload.upload", där "upload kommer från ett annat script som jag tittat litet på(jag använder file1, file2, file3, file4, file5 istället), där är det ett variabelnamn, kanske kan jag inte skriva så i min kod ?
Detta borde göra samma jobb om du ska spara filerna på samma plats:
<% Set ObjFolder = CreateObject("Scripting.FileSystemObject")
strPath=Server.MapPath("/pr/testmapp/")
If not ObjFolder.FolderExists(strpath) then
ObjFolder.CreateFolder strPath
end if
Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
myUpload.upload
myUpload.Save(strPath)
%>
PRB: aspSmartUpload error '800a0009' Subscript out of range
--------------------------------------------------------------------------------
This error occurs when the asp is directly executed instead of being called from an HTML form with an ENCTYPE="multipart/form-data" tag.
Tackar erka, solbulle och @nders. :), ENCTYPE="multipart/form-data" löste det(förstår inte hur jag kunde missa det i erkas inlägg), tog din kod också Solbulle för att minska koden. Är så glad att ni finns. :)