SQL CONNECTION - INSERT - RETRIEVE ID - Rename File - UPLOAD FILE

Hi there,

I have inherited a databse and am building a new website to go wiht it.

There is a file upload page which will upload images to a directory.  I need to insert into the database retrieve the id just added then upload the image renaming it in the format locID(QueryString)_ImageID(retrieved from database).jpg

The page has a file upload control and a button.

I am trying to write my code behind so that when the button is clicked it inserts location id into the images table retrieves Image id. Renames the file and uploads it to the images folder.

II think i need to call the routine from another routine for the button click but the signatures are different, where am i going wrong? or for that matter have i been pissing into the wind for the last 4 hours?

CODE BEHIND


Imports System.Data

Imports System.Data.SqlClientPartial Class admin_Add_Images

Inherits System.Web.UI.PageProtected Sub UploadImage(ByVal Sender As Object, ByVal e As SqlDataSourceStatusEventArgs)
Dim LocationId As String = Request.QueryString(ID)


' create a new SqlConnectionDim NewConn As New SqlConnection

NewConn = New SqlConnection("server=desktopsqlexpress;uid=xxxxxx;pwd=xxxxxxx;database=MYLOCDEV") 'OleDbConnection i

' open the connection

NewConn.Open()Dim MyInsert = New SqlCommand("INSERT into image([LocationID]) VALUES (@LocationID); SET @NewId = Scope_Identity()")

NewConn.Close()

If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength > 0 Then

'RENAME THE FILEDim newid As Integer = e.Command.Parameters("@NewId").Value

Dim fn As String = (LocationId & "_" & newid & ".jpg")Dim SaveLocation As String = Server.MapPath("oicImages") & "" & fn

Try

File1.PostedFile.SaveAs(SaveLocation)Response.Write("The file has been uploaded.")

Catch Exc As ExceptionResponse.Write("Error: " & Exc.Message)

End Try

ElseResponse.Write("Please select a file to upload.")


End If

End SubProtected Sub Submit1_Click(ByVal Sender As Object, ByVal e As System.EventArgs) Handles Submit1.Click


UploadImage()End Sub

End Class