-
SuperUpload and Form Collection
I am trying to use the SuperUpload and the form collection part of it is not working. The error is:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument
/test/contact_script.asp, line 11
Here is the code:
dim r
set r = Server.CreateObject("SuperUpload.UploadRequest")
r.Upload
r.Path = Server.MapPath("/test")
UserName = r.form("username").value 'Line 11
EmailAddy = r.form("emailaddy").value
for each file in r.Files
lastfilename = file.clientfilename
if lastfilename <> "" then
'response.write "<b>Working on:</b> " & lastfilename & "<P>"
result = file.Save
'response.write "<b>Uploaded:</b> " & result & "<P>"
end if
next
Any help would be greatly appretiated.
Thanks
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
|