Problem Pop-up

[bebeo]

Code:

oBrowser="name:="+st+".*"
    oPage="title:="+st
    Set oDesc = Description.Create()
    oDesc("micclass").Value = "WebEdit"
    Set oDesc1 = Description.Create()
    oDesc1("micclass").Value = "WebButton"
      'msgBox oBrowser
      'msgBox oPage
     set obj=Browser(oBrowser).Page(oPage).ChildObjects(oDesc)
     set obj1=Browser(oBrowser).Page(oPage).ChildObjects(oDesc1)
     set obj2=Browser(oBrowser).Page(oPage).Object.All.tags("input")
     set obj3=Browser(oBrowser).Page(oPage).Object.All.tags("TD")
     'Numberobj=obj2.Count()
      index=0
      For Each Element in obj3
        index = index + 1
        'Msgbox  Element.innerHTML 'Reading string between tags <td> of table
        'Msgbox  Element.maxlength
      Next

     'msgBox obj2.ToString()
     For i=0 to Numberobj-1
       'msgBox obj2(i).ToString()
     Next
     NumberOfEdits = obj.Count()
     NumberOfButton = obj1.Count()
     'msgbox NumberOfEdits
     Dim  A(20)
     Set fso = CreateObject("Scripting.FileSystemObject")
     For i = 0 To NumberOfEdits-1
        If (fso.FileExists("E:\TestData\Input.xls")) Then
          DataTable.Import "E:\TestData\Input.xls"
        End if
         datatable.getsheet(1)
         obj(i).Set datatable.value(datatable.GetSheet(1).GetParameter(i+1).Name,1)
          'msgBox obj(i).ToString()
     Next
     Wait(10)
     index=0
For Each Element in obj2
       Wait(2)
       If Element.Type="button" and Element.name="Send" then
         'msgbox Element.Type
         'msgbox Element.name

    obj2(index).Click
Data input.xsl

name address phone email title content
Test 234234 test@yahoo.com test test
Test1 Test1 345435 test@yahoo.com test test
Test Test 234236 test@yahoo.com test test

name was compelled data to have.
When i was submmited button "Send" then a popup dialog messager but i want continue test run. How I must resolve this Problem?

---

oBrowser="name:="+st+".*"
oPage="title:="+st
Set oDesc = Description.Create()
oDesc("micclass").Value = "WebEdit"
Set oDesc1 = Description.Create()
oDesc1("micclass").Value = "WebButton"
'msgBox oBrowser
'msgBox oPage
set obj=Browser(oBrowser).Page(oPage).ChildObjects(oDesc)
set obj1=Browser(oBrowser).Page(oPage).ChildObjects(oDesc1)
set obj2=Browser(oBrowser).Page(oPage).Object.All.tags("input")
set obj3=Browser(oBrowser).Page(oPage).Object.All.tags("TD")
'Numberobj=obj2.Count()
index=0
For Each Element in obj3
index = index + 1
'Msgbox Element.innerHTML 'Reading string between tags <td> of table
'Msgbox Element.maxlength
Next

'msgBox obj2.ToString()
For i=0 to Numberobj-1
'msgBox obj2(i).ToString()
Next
NumberOfEdits = obj.Count()
NumberOfButton = obj1.Count()
'msgbox NumberOfEdits
Dim A(20)
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 0 To NumberOfEdits-1
If (fso.FileExists("E:\TestData\Input.xls")) Then
DataTable.Import "E:\TestData\Input.xls"
End if
datatable.getsheet(1)
obj(i).Set datatable.value(datatable.GetSheet(1).GetParameter(i+1).Name,1)
'msgBox obj(i).ToString()
Next
Wait(10)
index=0
For Each Element in obj2
Wait(2)
If Element.Type="button" and Element.name="Send" then
'msgbox Element.Type
'msgbox Element.name

obj2(index).Click

Data input.xsl

PHP Code:

name    address     phone      email                     title          content
Null        Test     234234  test@yahoo.com   test        test
Test1     Test1      345435  test@yahoo.com   test             test
Test     Test       234236  test@yahoo.com   test      test 


name was compelled data to have.
When i was submmited button "Send" then a popup dialog messager but i want continue test run. How I must resolve this Problem?