<%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%>