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