Enter Data in Dynamic Field in a web page

In Below function maitain Property values in Fields sheet and pass data from global sheet.

Public function Filldata(MyPage,ObjClass)
set objdesc=Description.Create
objdesc("micclass").value=ObjClass
set obj= MyPage.ChildObjects(objdesc)
objcount=obj.count
msgbox objcount
For i=0 to objcount-1
msgbox obj(i).getroproperty("name")
strObjProperty=obj(i).getroproperty("name")
intFieldsRowCounter = DataTable.GetSheet("Fields").GetRowCount
For j = 1 to intFieldsRowCounter
datatable.getsheet("Fields").setcurrentrow(j)
If Instr(strObjProperty,DataTable.Value("PropertyVal", "Fields")) > 0 Then
'MsgBox "I am in For"
On error resume next
fieldName = DataTable.Value("Field", "Fields")
msgbox datatable.Value( fieldName,"Global")
obj(i).set DataTable.Value(fieldName, "Global")
On error goto 0
Exit for
End If
Next
Next
end function