Creating Generic Click Button using Desriptive Programming

Creating Generic Click Button using Desriptive Programming

Public Function Click_Next(Field_Name,Button_Name)
 attrib_value = Get_Attribute_Value(Field_Name)
 Set IE = Browser("Optus - Intranet - Intranet").Page("Optus - Personal - Secure_Checkout_Your_Details").Object
 Set objElementButton =IE.GetElementsByTagName("FIELDSET")
 If Lcase(Field_Name) <> "delivery details"  Then
  For i=0 to objElementButton.Length-1
    attribOb=objElementButton.Item(i).getAttribute("id")   
    attribObj=trim(attribOb)
    If  attribObj = attrib_value Then
     Set objElementImage =objElementButton.Item(i).GetElementsByTagName("DIV")
      For j=0 to objElementImage.Length-1
         Set objElementImage1=objElementImage.Item(j).GetElementsByTagName("input")
           For k=0 to objElementImage1.Length-1
              attribObjtype=objElementImage1.Item(k).type
              If  attribObjtype = "image" Then
                 attribObjAlt=objElementImage1.Item(k).GetAttribute("alt")
                 If attribObjAlt = "Next" Then
                  objElementImage1.Item(k).click
                  Reporter.ReportEvent micDone,"Click_Next","Next is button is clicked"
                  Exit Function
                 End If
              End If
           Next 
      Next   
    End If
   Next
 Else
  Browser("Optus - Intranet - Intranet").Page("Optus - Personal - Secure_Checkout_Your_Details").Image("Class Name:= Image","Outerhtml:=.*generateDelvAddr().*").click
  Reporter.ReportEvent micDone,"Click_Next","Next is button is clicked"
 End If
 wait(15)
End Function