Problem Pop-up

[bebeo]

When i click button "Send" then Pop-up display. How I must resolve this Problem?

[Saket]

the question is not clear, can you please explain the exact problem.
is this any error you are getting on click?

[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?

[Saket]

I think you are getting error at the statement-

Code:

obj2(index).Click

Can you attach the snapshot of your error?
are you getting error as 'Subscript out of range....'
if so check you have the object at the position you are looking for.
may be I am wrong,I can see the value for 'index' is increased for no reason

Code:

For Each Element in obj3
index = index + 1
'Msgbox Element.innerHTML 'Reading string between tags <td> of table
'Msgbox Element.maxlength
Next

does this help?

[basanth27]

Answer to your Question : Use Recovery Scenarios.

[bebeo]

I used Recovery Scenarios
obj2(index).Click still action
I want question when obj2(index).Click active then a popup dialog messager display but i want continue test run. How I must resolve this Problem?

[basanth27]

How did you use the recovery scenario ? ?Can you please explain clearly.?