<%@ Language=VBScript%>
<%option explicit%>
<%
Function ShowFormAddUSer(erro)
dim xmlconteudo
dim XSLFile
xmlconteudo = ""
xmlconteudo = xmlconteudo & ""
xmlconteudo = xmlconteudo & "" & erro & ""
xmlconteudo = xmlconteudo & getXMLNew()
xmlconteudo = xmlconteudo & ""
XSLFile = c_rootpath & "\styles\register\user_add.xsl"
ShowFormAddUSer = produceHTML(xmlconteudo, XSLFile)
end function
Function ShowFormUpdateUser(iduser)
dim xmlconteudo
dim XSLFile
xmlconteudo = XMLEdit(iduser)
XSLFile = c_rootpath & "\styles\register\user_edit.xsl"
ShowFormUpdateUser = produceHTML(xmlconteudo, XSLFile)
end function
Function ShowFormUpdatePass(iduser)
dim xmlconteudo
dim XSLFile
xmlconteudo = ""
xmlconteudo = xmlconteudo & ""
if request("erro") <> "" then
xmlconteudo = xmlconteudo & Request.QueryString("erro")
end if
xmlconteudo = xmlconteudo & ""
xmlconteudo = xmlconteudo & XMLPassword(iduser)
xmlconteudo = xmlconteudo & ""
XSLFile = c_rootpath & "\styles\register\password_edit.xsl"
ShowFormUpdatePass = produceHTML(xmlconteudo, XSLFile)
end function
dim smodel
dim sNew
dim xmlconteudo
dim XSLFile
dim opcao
dim iduser
dim erro
'Modelo exterior
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
opcao = Request.QueryString("opcao")
if opcao="add" then
sNew = ""
sNew = sNew & "Registo > Novo Utilizador
"
erro = Request.QueryString("erro")
sNew = sNew & ShowFormAddUSer(erro)
sModel = replace(sModel, c_Noticias_Marca, sNew)
sModel = replace(sModel, c_FichJavaScript_Marca, "")
end if
if opcao="edit" then
iduser = Request.form("iduser")
sNew = ""
sNew = sNew & "Registo > Editar Dados Pessoais
"
sNew = sNew & ShowFormUpdateUser(iduser)
sModel = replace(sModel, c_Noticias_Marca, sNew)
sModel = replace(sModel, c_User, GetNickName())
sModel = replace(sModel, c_FichJavaScript_Marca, "")
end if
if opcao="editPassword" then
iduser = Request("iduser")
sNew = ""
sNew = sNew & "Registo > Editar Password
"
sNew = sNew & ShowFormUpdatePass(iduser)
sModel = replace(sModel, c_Noticias_Marca, sNew)
sModel = replace(sModel, c_User, GetNickName())
sModel = replace(sModel, c_FichJavaScript_Marca, "")
end if
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, " Registo ", getEdicaoActual(), "../index.asp", "../", c_RootPath & "\pub\", 0)
Response.Write sModel
%>