<%@ Language=VBScript%> <%option explicit%> <% dim idnew dim currentId dim idEdicao dim sNew dim sModel dim sSeccoes dim dadosEdicao dim sjavascript 'Parametros idnew = Request.QueryString("id") currentId = Request.ServerVariables("QUERY_STRING") 'Modelo exterior sModel = getModel(c_RootPath & "\modelos\modelo_pesq.htm") sjavascript = " " & vbcrlf sModel= replace (sModel,c_FichJavaScript_Marca, sjavascript) 'Edicão idEdicao = getEdicaoActual() 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Pesquisa ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) ' PESQUISA 'seccoes sModel = replace(sModel, c_ListSeccoes_Marca, GetSeccoes(IdEdicao)) ' autores sModel = replace(sModel, c_ListAutores_Marca, GetPeople()) ' anos call TotalYear(sModel) Response.Write sModel %>