>This.Parent.Navigate('your url') >>
>>***Straight from the voodoo docs. Works fine. Keeps displaying same >>***page with different text. >>LOCAL loPage >>loPage = NewObject("WCPage","voodoo.prg") >>loPage.NewObject("txtDemo","WebTextbox","voodoo.prg") >>loPage.txtDemo.Label = "Example Text: " >>loPage.NewObject("cmdTest","DemoButton","shop_wizards.prg") >>loPage.DoEvents() >>Response.Write(loPage.Render()) >> >>DEFINE CLASS DemoButton AS WebButton OF Voodoo.prg >> Caption = "Click Me!" >> >> FUNCTION Click >> IF NOT THIS.Parent.txtDemo.Value = "This rocks!" >> THIS.Parent.txtDemo.Value = "This rocks!" >> ELSE >> THIS.Parent.txtDemo.Value = "How about this?" >> ENDIF >> ENDFUNC >>ENDDEFINE >>>>
>>***Same as above except for the click() method. >>LOCAL loPage >>loPage = NewObject("WCPage","voodoo.prg") >>loPage.NewObject("txtDemo","WebTextbox","voodoo.prg") >>loPage.txtDemo.Label = "Example Text: " >>loPage.NewObject("cmdTest","DemoButton","shop_wizards.prg") >>loPage.DoEvents() >>Response.Write(loPage.Render()) >> >>DEFINE CLASS DemoButton AS WebButton OF Voodoo.prg >> Caption = "Click Me!" >> >> FUNCTION Click >> ***Process some stuff here. >> ***Then display a new web page showing something different to the user. >> >> ***This displays my new objects and the old objects. >> ***I don't want the old objects, just my new ones. >> ***What am I missing. >> loPage = NewObject("WCPage","voodoo.prg") >> loPage.NewObject("lbl_label","WebLabel","voodoo.prg") >> loPage.lbl_label.caption = "Hello World" >> loPage.DoEvents() >> Response.Write(loPage.Render()) >> ENDFUNC >>ENDDEFINE >>>>