soap exception

i could not see any error :( please help code and error image as seen on below
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kaydedicim As New Sirket_islemleri.sirket_islemleri
        Dim uyeno As New uye_islemleri.uye_islemleri
        Dim row As TableRow
        Dim cell As TableCell
        Dim hid1, hid2 As HiddenField
        Dim tum_resimler = ""
        Dim n = 0
        For Each row In Table1.Rows
            For Each cell In row.Cells
                If n = 0 Then
                    hid1 = row.FindControl("hidden1_" & Left(cell.ID, Len(cell.ID) - 4))
                    hid2 = row.FindControl("hidden2_" & Left(cell.ID, Len(cell.ID) - 4))
                    If Not (hid2.Value = hid1.Value) And Not (hid1.Value = "") Then
                        If tasi(hid1.Value) Then
                            silici(hid1.Value, hid2.Value)
                        End If
                    ElseIf hid1.Value = "" And Not (hid2.Value = "") Then
                        hid1.Value = hid2.Value
                    End If
                    If Not (hid1.Value = "") Then
                        tum_resimler += hid1.Value & ","
                    End If
                End If
            Next
            If n = 0 Then
                n = 1
            Else
                n = 0
            End If
        Next
        Dim genelislem As New Genel_islemler.Genel_Islemler
        Dim kayit
        If Button1.Text = "Kaydet" Then
            Dim no = uyeno.UyeBilgisiAl(Context.User.Identity.Name, uye_islemleri.Kullanici_bilgisi.kimlik)
            kayit = kaydedicim.kayit_al(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox6.Text, TextBox4.Text, TextBox5.Text, TextBox7.Text, DropDownList2.SelectedItem.Value, DropDownList3.SelectedItem.Value, DropDownList4.SelectedItem.Value, DropDownList5.SelectedItem.Value, TextBox8.Text, DropDownList6.SelectedItem.Value, "", Editor1.Content, TextBox9.Text, no, DropDownList1.SelectedItem.Value)
        Else
            kaydedicim.Guncelle(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox6.Text, TextBox4.Text, TextBox5.Text, TextBox7.Text, DropDownList2.SelectedItem.Value, DropDownList3.SelectedItem.Value, DropDownList4.SelectedItem.Value, DropDownList5.SelectedItem.Value, TextBox8.Text, DropDownList6.SelectedItem.Value, "", Request.QueryString("no"), Editor1.Content, TextBox9.Text, DropDownList1.SelectedItem.Value)
        End If
        If Not (Request.QueryString("no") = "") Then
            genelislem.resim_sil("sirket", Request.QueryString("no"))
            genelislem.resim_kayit(Request.QueryString("no"), "sirket", Left(tum_resimler, Len(tum_resimler) - 1))
        Else
            genelislem.resim_sil("sirket", kayit)
            genelislem.resim_kayit(kayit, "sirket", Left(tum_resimler, Len(tum_resimler) - 1))
        End If
        Response.Redirect("default.aspx")
    End Sub
 
 
 
 
the code which gives error  from web service :
 
 
 
    <WebMethod()> _
    Function resim_kayit(ByVal bolumno As String, ByVal bolum As String, ByVal bilgi As String)
        Dim connection
        Dim Ar_Bilgi As Array = bilgi.split(",")
        Dim adres = ""
        For i = 0 To Ar_Bilgi.Length
            adres = adres & sql.resimler_ekle.ToString.Replace("bolumno1", "bolumno" & i)
        Next
        connection = ConfigurationSettings.AppSettings("ConnectionString")
        Dim cmd As New MySqlCommand(sql.resimler_ekle, New MySqlConnection(connection))
        cmd.Parameters.Add("?bolumno", bolumno).MySqlDbType = MySqlDbType.VarChar
        cmd.Parameters.Add("?bolum", bolum).MySqlDbType = MySqlDbType.VarChar
        For i = 0 To Ar_Bilgi.Length
            cmd.Parameters.Add("?bolumno" & i, Ar_Bilgi(i)).MySqlDbType = MySqlDbType.Datetime
        Next
        cmd.Connection.Open()
        cmd.ExecuteNonQuery()
        cmd.Connection.Close()
    End Function

Open in new window

hata.jpg
LVL 1
CahitEyAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jinalCommented:
Try this.
In WebMethod  i just changes for loop to this For i = 0 To Ar_Bilgi.Length - 1 .
 
 

<WebMethod()> _
    Function resim_kayit(ByVal bolumno As String, ByVal bolum As String, ByVal bilgi As String)
        Dim connection
        Dim Ar_Bilgi As Array = bilgi.split(",")
        Dim adres = ""
        For i = 0 To Ar_Bilgi.Length - 1 
            adres = adres & sql.resimler_ekle.ToString.Replace("bolumno1", "bolumno" & i)
        Next
        connection = ConfigurationSettings.AppSettings("ConnectionString")
        Dim cmd As New MySqlCommand(sql.resimler_ekle, New MySqlConnection(connection))
        cmd.Parameters.Add("?bolumno", bolumno).MySqlDbType = MySqlDbType.VarChar
        cmd.Parameters.Add("?bolum", bolum).MySqlDbType = MySqlDbType.VarChar
        For i = 0 To Ar_Bilgi.Length - 1
            cmd.Parameters.Add("?bolumno" & i, Ar_Bilgi(i)).MySqlDbType = MySqlDbType.Datetime
        Next
        cmd.Connection.Open()
        cmd.ExecuteNonQuery()
        cmd.Connection.Close()
    End Function

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
CahitEyAuthor Commented:
I tryed it and i tryed it again if i got a mistake but the result is same ::


System.Web.Services.Protocols.SoapException: Server was unable to process request. ---> System.IndexOutOfRangeException: Index was outside the bounds of the array.
  at System.Array.InternalGetReference(Void* elemRef, Int32 rank, Int32* pIndices)
  at System.Array.GetValue(Int32 index)
  at Microsoft.VisualBasic.CompilerServices.Symbols.Container.GetArrayValue(Object[] Indices)
  at Microsoft.VisualBasic.CompilerServices.NewLateBinding.InternalLateIndexGet(Object Instance, Object[] Arguments, String[] ArgumentNames, Boolean ReportErrors, ResolutionFailure& Failure)
  at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateIndexGet(Object Instance, Object[] Arguments, String[] ArgumentNames)
  at Genel_Islemler.resim_kayit(String bolumno, String bolum, String bilgi)
  --- End of inner exception stack trace ---
0
CahitEyAuthor Commented:
there were one more array at the bottom i forget it thanks for your answer you were right
0
CahitEyAuthor Commented:
Thanks
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Web Languages and Standards

From novice to tech pro — start learning today.