Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > ASP .Net > ASP General > Index out of range .. upload script

Reply
Thread Tools

Index out of range .. upload script

 
 
Arben Kryeziu
Guest
Posts: n/a
 
      07-15-2003
I am getting following error:

Persits.Upload.1 error '800a009'

Index out of range.
/rtdAddItemSave.asp line 27


>> Line 27 would be the one I marked ## <<


<%
Set upl = Server.CreateObject("Persits.Upload")
upl.OverwriteFiles = False
upl.Save application("essilorRtdSAfileUpPath")

loopNumber=1
for each item in upl.form
'##### gather the non-file form parameters
select case loopNumber
case 1
'##### get the projectID
##if len(upl.form(item))>0 then##
projectID=upl.form(item)
if NOT isnumeric(projectID) then
displayErrorPage("Project ID is not numeric.")
Response.end
end if
else
displayErrorPage("Project ID not provided.")
Response.end
end if

case 2
'##### get the reqmtID
if len(upl.form(item))>0 then
reqmtID=upl.form(item)
if NOT isnumeric(reqmtID) then
displayErrorPage("Requirement ID is not
numeric.")
Response.end
end if
else
displayErrorPage("Requirement ID not provided.")
Response.end
end if



case 3
'##### get the itemType
if len(upl.form(item))>0 then
itemType=filterInput(upl.form(item))
else
displayErrorPage("Please provide an item type.")
Response.end
end if

case 4
'##### get the itemDescription
if len(upl.form(item))>0 then
itemDescription=filterInput(upl.form(item))
else
displayErrorPage("Please provide an item
description.")
Response.end
end if

case 5
'##### get the itemValue
if len(upl.form(item))>0 then
itemValue=filterInput(upl.form(item))
end if


case 6
if len(upl.form(item))>0 then
if upl.form(item).isEmpty then
donothingage=true
else
filename1 =
mid(upl.Form(item).userfilename,instrrev(upl.Form( item).userfilename,"\")+1)
end if
end if


end select



'##### Save the user's file to the server
if IsObject(upl.form(item)) then

if upl.form(item).isEmpty then
donothingage=true
else
on error resume next
NewFileName = Mid(upl.Form(item).UserFilename,
InstrRev(upl.Form(item).UserFilename, "\") + 1)
upl.Form(item).SaveAs Newfilename

'upl.save

if err<>0 then
displayErrorPage("Error uploading file to server.")
Response.end
end if

on error goto 0
end if

end if




loopNumber = loopNumber + 1
next

set upl = nothing
%>

 
Reply With Quote
 
 
 
 
Ray at
Guest
Posts: n/a
 
      07-16-2003
Which line is line 27?

Ray at home

"Arben Kryeziu" <(E-Mail Removed)> wrote in message
news:BB3999B1.362C%(E-Mail Removed)...
> I am getting following error:
>
> Persits.Upload.1 error '800a009'
>
> Index out of range.
> /rtdAddItemSave.asp line 27
>
>
> >> Line 27 would be the one I marked ## <<

>
> <%
> Set upl = Server.CreateObject("Per


[trim]


 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index" camelean@shaw.ca ASP .Net 3 02-22-2011 07:06 PM
sorting index-15, index-9, index-110 "the human way"? Tomasz Chmielewski Perl Misc 4 03-04-2008 05:01 PM
Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index Stefan ASP .Net Datagrid Control 2 07-31-2004 05:52 AM
"Index Was Out of Range" Error Message from the DataGrid Clark Choi ASP .Net 1 01-10-2004 03:32 PM
Index was out of range? yyt ASP .Net 1 12-19-2003 09:11 AM



Advertisments