%call htmlFramework()%>
<%
'[!] ________________________________________________________________________________
sub contentPath_by_pgpCode( byVal pgpCode )
pgpCode = guidValidate( pgpCode )
if ( pgpCode <> guidZero ) then
set pgePageInstance = New pgePage
with pgePageInstance
.pgpCode = pgpCode
.getRecord()
'pgpDate = .pgpDate
pgpName = .pgpName
end with
set pgePageInstance = nothing
end if%>
INÍCIO
> SERVIÇOS
<%if ( pgpName <> "" ) then%>> <%=ucase( pgpName )%><%end if%>
<%end sub
'[!] ________________________________________________________________________________
sub contentPath()
pgpCode = guidValidate( request("pgpCode") )
call contentPath_by_pgpCode( pgpCode )
end sub
'[!] ________________________________________________________________________________
sub contentBody()
pgpCode = guidValidate( request("pgpCode") )
call pgePage_show( pgpCode )
end sub%>