<%
'[!] ________________________________________________________________________________
call htmlFramework()
'[!] ________________________________________________________________________________
sub htmlBodyTitle_content()
dim pgePageInstance
dim pgeCategoryInstance
dim pctCode
dim pctName
dim ppgCode
dim ppgName
ppgCode = guidValidate( request("ppgCode") )
pctCode = guidZero
pctName = ""
ppgName = ""
if ( ppgCode = guidZero ) then
ppgCode = pgePage_getFirst( global_pctCode )
end if
if ( ppgCode <> guidZero ) then
set pgePageInstance = New pgePage
with pgePageInstance
.ppgCode = ppgCode
.getRecord()
pctCode = guidValidate( .pctCode )
ppgName = .ppgName
end with
set pgePageInstance = nothing
end if
if ( pctCode <> guidZero ) then
set pgeCategoryInstance = New pgeCategory
with pgeCategoryInstance
.pctCode = pctCode
.getRecord()
pctName = .pctName
end with
set pgeCategoryInstance = nothing
end if
%>
<%=pctName%>
<%end sub
'[!] ________________________________________________________________________________
sub htmlBodyMain_content()
dim ppgCode
ppgCode = guidValidate( request("ppgCode") )
if ( ppgCode = guidZero ) then
ppgCode = pgePage_getFirst( global_pctCode )
end if
call pgePage_show( ppgCode )%>
<%end sub%>