*Speaker.prg
#INCLUDE WCONNECT.H

DEFINE CLASS Speaker as rbpage
   FUNCTION Page
      LOCAL lcSpeaker_id
      lcSpeaker_ID = Request.QueryString("Speakers_ID")
      This.odata = This.DataObject("Speakers","Speakers_ID",lcSpeaker_ID)
      This.Content = This.MergeToString("Speaker.htm")
      This.Merge("TemplatePage.htm")
   EndFunc

EndDefine
csCodeParser v0.9 stats: 12 lines in 0.00 seconds.