<%@ Language=VBScript %> <%option explicit%> <% dim sModel dim sColunadireita dim Data dim listValues dim sjavascript ' modelo sModel = getModel(c_RootPath & "\modelos\modelo_pesqagenda.htm") 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " Pesquisa ", getEdicaoActual() , "../index.asp", "../", c_RootPath & "\pub\", 0) sjavascript = sjavascript & "" & vbcrlf sjavascript = sjavascript & " " & vbcrlf sModel= replace (sModel,c_FichJavaScript_Marca, sjavascript) ' PESQUISA 'evento sModel = replace(sModel, c_listtipoevento_marca, getComboEventos()) 'localidade sModel = replace(sModel, c_listLocalidade_marca, getComboLocalidades()) 'projecto sModel = replace(sModel, c_listprojecto_marca, getComboProjecto()) ' anos call TotalYear(sModel) 'begin of model Response.Write left(sModel,instr(1, sModel, c_colunadireita)-1) Response.Write ShowEventosDestaqueAgenda() Response.Write ShowFormAgenda("search.asp") Response.Write "Seleccione outro dia" %> <% Response.Write showLinkCD() Response.Write mid(sModel,instr(1, sModel, c_colunadireita)+22) %>