<%
/**** Pagina de login do site ****/
// Local cLSite := "./" // Site
Local cLTitle := "" // Titulo da pagina
Local cLPagina := "" // Nome da página
// Local cLHeader := ""
Local cLTopo := ""
Local cLMenus := ""
Local cLWidgets := ""
Local cLColunas := ""
Local cLItens := ""
Local cLJavaScr := ""
Local aLStatGrid := {}
local lLSidebar := .t.
Local cLCodLogin := ""
Local nInd
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("cPagina") <> "U"
cLPagina := cPagina
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cPagina")
Endif
if type("cMenus") <> "U"
cLMenus := cMenus
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cMenus")
Endif
if type("cWidgets") <> "U"
cLWidgets := cWidgets
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cWidgets")
Endif
if type("cTopo") <> "U"
cLTopo := cTopo
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cTopo")
Endif
if type("cColunas") <> "U"
cLColunas := cColunas
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cColunas")
Endif
if type("cItens") <> "U"
cLItens := cItens
else
conout(dtoc(date())+" " + time() + " Portal "+procname(1)+"("+cValToChar(procline(1))+") Faltou cItens")
Endif
if type("lSidebar") = "L"
lLSidebar := lSidebar
endif
if type("aStatGrid") = "A"
aLStatGrid := aclone(aStatGrid)
Endif
if type ("cCodLogin") <> "U"
cLCodLogin := cCodLogin
Endif
if type("cJavaScr") <> "U"
cLJavaScr := cJavaScr
endif
%>
<%if lLSidebar%>
<%else%>
<%endif%>
<%=cLTitle%>
