سوال عن اداة AsyncFileUpload1

السلام عليكم ورحمة الله وبركاته اخواني الاعضاء ومشرفين المنتدى

عندي مشكلة في اداة AsyncFileUpload1 لا اعلم لماذا عندما ارفع فيها اي صورة لا يتم رفعها ؟ الكود عندي مضبوط مية بالمية .. ولكن لا اعلم ماهو السبب لايتم تخزين اسم الصورة في قاعدة البيانات وهذه كود الرفع

Dim filepath = Server.MapPath("imgaes_topic")
        Dim filename As String = ""
        If (AsyncFileUpload1.HasFile) Then
            filename = AsyncFileUpload1.FileName
            filepath = filepath + "//" + filename
            AsyncFileUpload1.SaveAs(filepath)
        End If
 '---------------------------------------------
        Dim xx As Integer = ob.ds.Tables(0).Rows(0)(0)

        ob.sql = "insert into images values(@top_id,@img_name)"
        ob.cm = New SqlCommand(ob.sql, ob.con)
        ob.con.Open()
        ob.cm.Parameters.AddWithValue("@top_id", xx)
        ob.cm.Parameters.AddWithValue("@img_name", filename)
        ob.cm.ExecuteNonQuery()
        ob.con.Close()

ياليت الي عندة خبرة فيها يقولي كيف استخدمها ولكم جزيل الشكر والتقدير