*Topic.prg
#INCLUDE WCONNECT.H

DEFINE CLASS Topic as rbpage
   FUNCTION Page
      LOCAL lcTopics_id
      lcTopics_ID = Request.QueryString("Topics_ID")
      This.odata = This.DataObject("Topics","Topics_ID",lcTopics_ID)
      This.Content = This.MergeToString("Topic.htm")
      This.Merge("TemplatePage.htm")
   EndFunc


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