file upload gives an error when upload file with query string

[lexx2gee]

following code i am using to upload file

<script runat="server" language="VB">
Dim sFullPath
sub btnSubmit_click(byval sender as system.object, byval e as eventArgs)

If Len(File1.PostedFile.FileName) > 0 then
Dim sPath, sPathFriendly, sFile, sSplit
sPath = Server.MapPath(".")
If Right(sPath, 1) <> "\" Then
sPathFriendly = sPath 'Friendly path name for display
sPath = sPath & "\"
Else
sPathFriendly = Left(sPath, Len(sPath) - 1)
End If
sFile = File1.PostedFile.FileName
sSplit = Split(sFile, "\")
sFile = sSplit(UBound(sSplit))

sPath = "D:\temp\"
sFullPath = sPath & sFile

File1.PostedFile.SaveAs(sFullPath)
file_panel.visible=false

msg.text="<font color=red><b>Your file ( " & sFile & ") has been uploaded successfully.</b></font>"

end if


end sub
</script>

This code works fine when we use without query string e.g

http://www.myurl.com/mypage.aspx

but when i use something like

http://www.myurl.com/mypage.aspx?action=plc

it gives me syste.nullreference error

I am using multipart/form-data with all of my form
You can test page on

http://ruda.parkdeanholidays.co.uk/career-enquiry.aspx

(upload file will work)

http://ruda.parkdeanholidays.co.uk/career-enquiry.aspx?action=PCL

(upload file will not work)

any response will be appreciated

 

[TipGiver]

How are you using the query string ?

Also, instead of: Len(File1.PostedFile.FileName) > 0
do: file1.hasfile = true

 

[lexx2gee]

When i use without query string it finds the File1 object but when i use with query string it does not find the File1 object.

Will you please go to the page links i gave and you will see how i am using query string

Thanks for your response

 

[TipGiver]

Strange behaviour...

With QS it stuck first:
If Len(request("file1")) > 0 then
and then:
File1.PostedFile.SaveAs(sFullPath)


It also gave an error without the qs at my first attempts and now it seems to upload it and redirects to the same page (i dont see the red messsage).

 

[lexx2gee]

Thanks TipGiver,
i have tried this code

If Len(request("file1")) > 0
response.write(File1.PostedFile)
response.end
end if

but it does not not dislay anything according to my mind it should display the following string and thats why i am getting error

System.Web.HttpPostedFile

 

[TipGiver]

1. What do you want to do. A simple upload?
2. Where to save the file?
3. You want to save it with the same name ?
4. What is the version of ASP.NET ? (1.1 or 2.0)

?

 

[lexx2gee]

1) Yeas i want simple upload
2) i want to save on server
3) yes with the same name
4) 1.1

 

[TipGiver]

Have a look at this and tell me if it works

    Protected Sub UploadButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles UploadButton.Click

        With FileUpload1

            If .HasFile Then

                Dim _i As Integer = .FileName.LastIndexOf("\")
                Dim _fn As String = .FileName.Substring(_i + 1)

                Dim _dsf As String = Server.MapPath("~/upload") & "//" & _fn

                If Not IO.File.Exists(_dsf) Then

                    Try

                        .SaveAs(_dsf)
                        Response.Write("<br><b>Upload successful!</b>")

                    Catch ex As IO.IOException

                        Response.Write("<br><b>IO exception</b>")

                    Catch ex As Exception

                        Response.Write("<br><b>General exception</b>")

                    End Try

                Else

                    Response.Write("<br><b>The file exists!</b>")

                End If

            Else

                Response.Write("<br><b>Please select a valid file...</b>")

            End If

        End With

    End Sub

 

[TipGiver]

Forgot to say the i upload the file to a folder "upload" that relies on the root ("~")