<% IF !EMPTY(oHelp.oTopic.Remarks) %>

Remarks

<%= oHelp.FormatHTML(oHelp.oTopic.Remarks) %> <% ENDIF %> <% IF !EMPTY(oHelp.oTopic.Example) %>

Example

<%= oHelp.FormatExample(oHelp.oTopic.Example)%>

<% ENDIF %> <% *** Embed custom code to display the *** Fields of the table cCurrentPk = oHelp.oTopic.Pk cHTML = "" cClass = Alltrim(oHelp.oTopic.Class) + "::" oTopics = oHelp.GetTopics("ARRAY","ParentPK = '" + oHelp.oTopic.Pk + "' and INLIST(type,'DATACOLUMN')",; "type,uMethod","ParentPk,Pk,upper(method) as UMethod") If !ISNULL(oTopics) AND oTopics.nCount > 0 cHTML = cHTML + "

Table Fields

" cHTML = cHTML + "" cHTML = cHTML + "" For lnLoop = 1 To oTopics.nCount oHelp.LoadTopic(oTopics.aTopics[lnLoop,2]) if lnLoop % 2 = 0 cHTML = CHTML + "" else cHTML = CHTML + "" endif cHTML = cHtml + "" cHTML = cHTML + "" +CHR(13) + CHR(10) EndFor oHelp.LoadTopic(cCurrentPk) cHTML = cHTML + "

Field" cHTML = cHTML + "	Description
" Do Case Case oHelp.oTopic.Type="DATACOLUMN" cHTML = cHTML + "" EndCase cHTML = cHtml + " " + TopicLink(oHelp.oTopic.Method,oHelp.oTopic.Topic) + "	" lcBody = oHelp.FormatHTML(oHelp.oTopic.Body) nBreak = AT(" ",lcBody) IF nBreak = 0 nBreak = AT(" ",lcBody) EndIf IF nBreak > 1 cHTML = cHTML + LEFT(lcBody,nBreak - 1) ELSE cHTML = cHTML + lcBody cHTML = cHTML + " " + CHR(13) + CHR(10) + "" + oHelp.oTopic.Parameters + "" ENDIF cHTML = cHTML + "

" Response.Write( cHTML ) EndIf %> <% if !EMPTY(oHelp.oTopic.SeeAlso) %>

See also

<%= lcSeeAlsoTopics %> <% endif %>