Protected Function FileUploaedToServer() As String
        Dim strName As String = ""
        If ThumbImg.HasFile Then
            strName = ThumbImg.FileName
            Dim strExt As String = System.IO.Path.GetExtension(strName)
            Dim strAryExt() As String = New String() {".jpg", ".gif", ".pmb", ".png"}
            For i As Integer = 0 To strAryExt.Length - 1
                If strExt = strAryExt(i) Then
                    strName = Guid.NewGuid().ToString & strExt.ToString
                    ThumbImg.SaveAs(Server.MapPath("~/images/" & strName))
                    Return strName
                    Exit For
                Else
                    strName = "~/images/zeitungen_09.jpg"
                End If
            Next
        Else
            strName = "zeitungen_09.jpg"

        End If
        Return strName
    End Function
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim con As New SqlConnection()
            con.ConnectionString = ConfigurationManager.ConnectionStrings("Elayan_SH").ConnectionString

            Dim Qet As New SqlCommand()
            Qet.Connection = con
            With Qet
                .Parameters.Add("@Name", Data.SqlDbType.NVarChar)
                .Parameters.Add("@IMG", Data.SqlDbType.NVarChar)

            End With
            Qet.CommandType = Data.CommandType.StoredProcedure
            Qet.CommandText = "AddPart"
            Qet.Parameters("@Name").Value = t1.Value
            Qet.Parameters("@IMG").Value = FileUploaedToServer()
            con.Open()
            Qet.ExecuteNonQuery()
            con.Close()
            MsgsRepeater.DataBind()

        Catch ex As Exception
            ss.InnerText = ex.ToString()
        End Try
        ss.Visible = True
        t1.Value = ""


    End Sub