Simple Persits Upload script acting funny...

[weee]

The script working only if I'm attaching a file. I not, it won't let me enter the rest of the text into the database.

The code:

Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 'Limit files to 1MB
Count = Upload.Save("c:\hosting\mydomain")

If Err <> 0 Then
    Err.Description
Else
    color = Upload.Form ("color")
    size = Upload.Form ("size")

    Set File = Upload.Files(1)
    File.OriginalPath

    set con = server.CreateObject("ADODB.Connection")
    con.Open DSN
    SQL = "INSERT INTO testTBL (color,size,myfile) VALUES('" & shape & "', '" & size & "', '" & File.OriginalPath & "')"

    con.Execute SQL
End If

con.close
set con = Nothing

response.redirect "great.asp"

What can it be?

Thanks!

[sajjad27s]

Remove this line of code

On Error Resume Next


And check if some error raises. Then you can better debug the code.

[weee]

I got an error actually:

Index out of range.
/page.asp, line 37

The line is:
Set File = Upload.Files(1)

[Ribeyed]

Hi,
can you try the line without the SET?
If still not working what you want to do is put the file upload stuff in an while loop and only run if file is selected.

For Each File in Upload.Files
Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>"
Next

[weee]

Thanks!