My Dataset Is Saving Only The First Image Saved In The Database In Subsquent Rows

When i click upload image button when my database table has no any row, the selected image is saved(one row saved in table). If i continue and select a different image, i get no error sa if the image has been saved but when i view the images i have been saving, its strange even if i saved 10 records they all contain the first image that i saved. In short only the first image is saved the rest of the rows are just duplicates of the first row. so it basically becomes a table of ten rows but with same data rows(same image). Code is below.

Protected Sub btnupload_Click(ByVal sender As Object, ByVal e As System.EventArgs)

Dim intLength As Integer

Dim arrContent As Byte()

If FileUpload.PostedFile Is Nothing Then

Lblstatus.Text = "No file specified."

Exit Sub

Else

Dim fileName As String = FileUpload.PostedFile.FileName

Dim ext As String = fileName.Substring(fileName.LastIndexOf("."))

ext = ext.ToLower

Dim imgType = FileUpload.PostedFile.ContentType

If ext = ".jpg" Then

ElseIf ext = ".bmp" Then

ElseIf ext = ".gif" Then

ElseIf ext = "jpg" Then

ElseIf ext = "bmp" Then

ElseIf ext = "gif" Then

Else

Lblstatus.Text = "Only gif, bmp, or jpg format files supported."

Exit Sub

End If

intLength = Convert.ToInt32(FileUpload.PostedFile.InputStream.Length)

ReDim arrContent(intLength)

FileUpload.PostedFile.InputStream.Read(arrContent, 0, intLength)

If Doc2SQLServer(txtTitle.Text.Trim, arrContent, intLength, imgType) = True Then

Lblstatus.Text = "Image uploaded successfully."

Else

Lblstatus.Text = "An error occured while uploading Image... Please try again."

End If

End If

End Sub

Protected Function Doc2SQLServer(ByVal title As String, ByVal Content As Byte(), ByVal Length As Integer, ByVal strType As String) As Boolean

Try

Dim cnn As Data.SqlClient.SqlConnection

Dim cmd As Data.SqlClient.SqlCommand

Dim param As Data.SqlClient.SqlParameter

Dim strSQL As String

strSQL = "Insert Into Images(imgData,imgTitle,imgType,imgLength,incident_id) Values(@content,@title,@type,@length,@incident_id)"

Dim connString As String = "Data Source=.SQLEXPRESS;AttachDbFilename=|DataDirectory|safetydata.mdf;Integrated Security=True;User Instance=True"

cnn = New Data.SqlClient.SqlConnection(connString)

cmd = New Data.SqlClient.SqlCommand(strSQL, cnn)

param = New Data.SqlClient.SqlParameter("@content", Data.SqlDbType.Image)

param.Value = Content

'cmd.Parameters.AddWithValue(param)

cmd.Parameters.AddWithValue("@content", Content)

 

param = New Data.SqlClient.SqlParameter("@title", Data.SqlDbType.VarChar)

param.Value = title

cmd.Parameters.Add(param)

param = New Data.SqlClient.SqlParameter("@type", Data.SqlDbType.VarChar)

param.Value = strType

cmd.Parameters.Add(param)

param = New Data.SqlClient.SqlParameter("@length", Data.SqlDbType.BigInt)

param.Value = Length

cmd.Parameters.Add(param)

cmd.Parameters.AddWithValue("@incident_id", id.Text)

cnn.Open()

cmd.ExecuteNonQuery()

cnn.Close()

Return True

Catch ex As Exception

Return False

End Try

End Function