This is a multi-part message in MIME format.



------=_NextPart_000_0017_01C1C520.A59B7AA0

Content-Type: text/plain;

	charset="us-ascii"

Content-Transfer-Encoding: 7bit



 

This is the my code and when it reaches the line (mySmartUpload.Upload)

I get the following error!

            "aspSmartUpload (0x800A0009) Subscript out of range"    

            Can anyone help me please???

 

 

Set mySmartUpload = Server.CreateObject("AspSmartUpload.SmartUpload")

            set objCon = Server.CreateObject("ADODB.Connection")

            set objRS = server.CreateObject("ADODB.Recordset")

                        

                        objCon.Open(Session("DSN"))

 

 

            mySmartUpload.Upload

 

 

For each file In mySmartUpload.Files

                        Response.Write(file.FileName & " (" & file.Size

& "bytes)<BR>")

                        h = file.FileName

            Next

 

            mySmartUpload.Save(fileLoc & "\images")

This is a multi-part message in MIME format.



--Boundary_(ID_oS7/+TuB+vr8ispsMPrCiQ)

Content-type: text/plain; charset=us-ascii

Content-transfer-encoding: 7bit



Make sure that you set you form to send data in correct encryption type.

I don't remember what is that but I know its different from usual.

May be that's a problem.



Oleg.

  -----Original Message-----

  From: Jaco Botha [mailto:jacob@m...]

  Sent: March 06, 2002 8:07 AM

  To: ASP components

  Subject: [asp_components] aspSmartUpload (0x800A0009) Subscript out of

range









  This is the my code and when it reaches the line (mySmartUpload.Upload) I

get the following error!



              "aspSmartUpload (0x800A0009) Subscript out of range"



              Can anyone help me please???











  Set mySmartUpload = Server.CreateObject("AspSmartUpload.SmartUpload")



              set objCon = Server.CreateObject("ADODB.Connection")



              set objRS = server.CreateObject("ADODB.Recordset")







                          objCon.Open(Session("DSN"))











              mySmartUpload.Upload











  For each file In mySmartUpload.Files



                          Response.Write(file.FileName & " (" & file.Size &

"bytes)<BR>")



                          h = file.FileName



              Next







              mySmartUpload.Save(fileLoc & "\images")







c-oleg.kapeljushnik@w...


$subst('Email.Unsub')




$subst('Email.Unsub').