<%@ Language=VBScript %> <%option explicit%> <% dim sModel dim sAction dim sNew dim QuestionId dim idEdicao dim rsQuestions sModel = getModel(c_RootPath & "\modelos\modelo_int.htm") snew = "" sAction = Request.QueryString("Action") QuestionId = Request("QuestionId") select case sAction case "Erro" ' erro sNew = sNew & "

Inquéritos

" sNew = sNew & "Só é pemitido votar uma vez em cada inquérito." sNew = sNew & "

[" & getLinkclass ("Voltar", "Javascript:history.go(-1);", "inquerito") & "]

" case "Resultados" ' resultados QuestionId = Request("QuestionId") sNew = sNew & "

Inquéritos

" 'sNew = sNew & answers(questionID) sNew = sNew & ShowResultXML(questionID) case "" ' inqueritos sNew = sNew & "

Inquéritos

" snew = snew & ShowQuestionXMLPublicate("resposta_inquerito_action.asp") snew = snew & ListQuestionXML() end select ' dados inqueritos sModel = replace(sModel, c_Noticias_Marca, sNew) 'Edicão idEdicao = getEdicaoActual() 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Inquéritos ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) Response.Write sModel %>