<%
/**** Pagina de login do site ****/
Local cLSite := "./" // Site
Local cLTitle := "" // Titulo da pagina
Local cLMensagem := "" // Mensagens
Local nI
if type("cSite") <> "U"
cLSite := cSite
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cSite")
Endif
if type("cTitle") <> "U"
cLTitle := cTitle
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cTitle")
Endif
if type("cMensagem") <> "U"
cLMensagem := cMensagem
// else
// conout("Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cTitle")
Endif
%>
<%=cLTitle%>
