%@ Language=VBScript%>
<%option explicit%>
<%
function ShowFormAjuda(action)
dim xmlconteudo
dim XSLFile
xmlconteudo = "
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 %>