طريقة رفع اكثر من صورة في وقت واحد باستخدام fileupload

السلام عليكم

اريد أن يتم رفع عدة صور باستخدام اداة FileUpload وحفظها في قاعدة البيانات SQL Database

لقد قمت فعلا بتجربة الطريقة ونجحت .. لكن بما انني مبتدئة .. فليس لدي خبرة في الموضوع

حيث انني اريد عمل مصفوفة لاداء FileUpload حيث انني وضعت 5 ادوات منها

بحيث استطيع استخدام الكود الخاص بارفاق الصور مرة واحدة بدل التكرار ..لكن لم انجح

-----------------------

هذا هو الكود

Dim mem As IO.Stream = Me.hpic1.PostedFile.InputStream
        Dim arrayByte As Byte() = New Byte(mem.Length) {}
        mem.Read(arrayByte, 0, arrayByte.Length)

Dim insertSQL As String
        insertSQL = "INSERT INTO datatable1(images) values (@images)"

Dim cmd As New SqlCommand(insertSQL, con)

cmd.Parameters.AddWithValue("@images", SqlDbType.Image).Value = arraybyte

حيث ان hpic1 هو اسم اداة الفايل ابلود

ونجحت الطريقة ..ولكنني كررت هذا الكود على عدد اداة الفايل ابلود..وهذه الطريقة غير عملية

اتمنى ان يكون سؤالي واضح

شاكرة لكم مساعدتكم