<%@ Language=VBScript %>
<%option explicit%>
<%
function ListEventos(sData, order)
if sData = "" then
sData = date()
end if
ListEventos = ShowEventosByDay(sData, order)
end function
dim sModel
dim sColunadireita
dim Data
dim listValues
dim dtE
dim dtB
' modelo
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, " Agenda ", getEdicaoActual() , "../index.asp", "../", c_RootPath & "\pub\", 0)
sModel = replace (sModel, c_FichJavaScript_Marca, "")
if request("search") = "weak" Then
listValues = "weak," & Request("order")
dtB = Request.QueryString("dtB")
dtE = Request.QueryString("dtE")
sModel = replace(sModel,c_Noticias_Marca, "Agenda da Semana
" & ShowEventosByWeak_between((Request("order")), dtB, dtE))
else
Data = request("Data")
listValues = " ," & Request("order")
sModel = replace(sModel,c_Noticias_Marca, "Agenda do Dia
" & ListEventos(Data, Request("order")))
end if
'begin of model
Response.Write left(sModel,instr(1, sModel, c_colunadireita)-1)
Response.Write ShowEventosDestaqueAgenda()
Response.Write ShowFormAgenda("index.asp")
Response.Write "Seleccione outro dia"
%>
<%
Response.Write showLinkCD()
Response.Write mid(sModel,instr(1, sModel, c_colunadireita)+22)
%>