Public Function WebEdit_SetValue(obj_Page,strName,strInValue)
If strInValue <> "" Then
Set obj_WebEdit = Description.Create()
obj_WebEdit ("micclass").value = "WebEdit"
obj_WebEdit ("name").value= strName
obj_Page.WebEdit(obj_WebEdit).Set strInValue
End If
End Function
RegisterUserFunc "Page","WebEdit_SetValue","WebEdit_SetValue"