%@ Language=VBScript%>
<%option explicit%>
<%
function showuser()
dim xmlconteudo
dim XSLFile
xmlconteudo = ""
xmlconteudo = xmlconteudo & ""
xmlconteudo = xmlconteudo & session("iduser")
xmlconteudo = xmlconteudo & ""
xmlconteudo = xmlconteudo & ""
xmlconteudo = xmlconteudo & session("nickname")
xmlconteudo = xmlconteudo & ""
xmlconteudo = xmlconteudo & ""
XSLFile = c_rootpath & "\styles\register\user.xsl"
showuser = produceHTML(xmlconteudo, XSLFile)
end function
dim sModel
dim snew
dim xmlconteudo
dim XSLFile
dim NickName
dim action
dim sBuff
'Modelo exterior
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
if session("iduser") = "" then
Response.redirect "index.asp"
end if
sBuff = getlink("Logout","logout_action.asp")
sNew = ""
sNew = sNew & "
Registo > Utilizador
"
sNew = sNew & showuser()
sNew = sNew & sBuff
sModel = replace(sModel, c_FichJavaScript_Marca, "")
sModel = replace(sModel, c_Noticias_Marca, sNew)
sModel = replace(sModel, c_User, GetNickName())
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, " Registo ", getEdicaoActual(), "../index.asp", "../", c_RootPath & "\pub\", 0)
Response.Write sModel
%>