<%@ Language=VBScript%>
<%option explicit%>
<%
function ShowFormAjuda(action)
dim xmlconteudo
dim XSLFile
xmlconteudo = ""
if action = "erro" then
xmlconteudo = xmlconteudo & "erro"
end if
xmlconteudo = xmlconteudo & ""
XSLFile = c_rootpath & "\styles\register\ajuda.xsl"
ShowFormAjuda = 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")
action = Request.QueryString("action")
if action <> "erro" then
NickName = GetNickName()
end if
if NickName = "" then
sNew = ""
sNew = sNew & "Registo > Ajuda
"
sNew = sNew & ShowFormAjuda(action)
else
Response.redirect "user_list.asp"
end if
sModel = replace(sModel, c_Noticias_Marca, sNew)
sModel = replace(sModel, c_User, nickname)
sModel = replace (sModel, c_FichJavaScript_Marca, "")
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, " Registo ", getEdicaoActual(), "../index.asp", "../", c_RootPath & "\pub\", 0)
Response.Write sModel
%>