Object required on SetToProperty

[zerocool]

I'm trying to write a script using QTP but got stuck on SetToProperty method.I need to change date in and object innerhtml. After I do that then when I try to set the value Using SetToProperty I'm having error Object required:
For reference here is my code.

Code:

Browser("MyPurolator Login - Purolator").Page("MyPurolator Home - Purolator").Link("Create a Shipment").Click

Browser("MyPurolator Login - Purolator").Page("Purolator E-Ship Online").Sync

Set var_date = Browser("MyPurolator Login - Purolator").Page("Purolator E-Ship Online").WebTable("WebTable")

var_date = var_date.GetTOProperty("innerhtml")

MsgBox var_date

var_date = replace(var_date, "2010-12-11 ", "2010-12-02 ")

MsgBox var_date

DataTable.Value("value", dtGlobalSheet) = var_date

var_temp = DataTable.Value("value", dtGlobalSheet)

MsgBox var_temp

var_date.SetTOProperty "innerhtml", var_temp (THIS IS WHERE HAVING ERROR)

' Set value of web table then sync

MsgBox var_date.GetTOProperty("innerhtml")

Browser("MyPurolator Login - Purolator").Page("Purolator E-Ship Online").Sync

Can somebody help me to resolve it?

Many Thanks in Advance.

[cdesserich]

In the line:

Code:

var_date = var_date.GetTOProperty("innerhtml")

you are overwriting the variable that used to hold the object. Create a new variable to hold the original innerhtml of the test object.

Code:

Browser("MyPurolator Login - Purolator").Page("MyPurolator Home - Purolator").Link("Create a Shipment").Click

Browser("MyPurolator Login - Purolator").Page("Purolator E-Ship Online").Sync

Set var_date = Browser("MyPurolator Login - Purolator").Page("Purolator E-Ship Online").WebTable("WebTable")

var_innerhtml = var_date.GetTOProperty("innerhtml")

MsgBox var_innerhtml

var_innerhtml = replace(var_date, "2010-12-11 ", "2010-12-02 ")

MsgBox var_innerhtml

var_date.SetTOProperty "innerhtml", var_innerhtml

MsgBox var_date.GetTOProperty("innerhtml")