<% set Rs=server.CreateObject("Adodb.RecordSet") ano=request("ano") if ano="" then ano=1882 else if not isnumeric(ano) then ano=1882 end if end if if csng(ano)=1882 then ssql="select max(ano_evento)as ultimo_ano from evento" Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText ultimo_ano_evento=rs("ultimo_ano") rs.close ssql="select max(ano_obra)as ultimo_ano from obra" Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText ultimo_ano_obra=rs("ultimo_ano") rs.close if ultimo_ano_evento>ultimo_ano_obra then ano_ant=ultimo_ano_evento else ano_ant=ultimo_ano_obra end if else ano_ant=ano-2 end if %>

=> Atenção! <= Website em fase de atualização => Atenção! <= * 03.11.2001 18:41 - Este website não tem caráter comercial. Todos os Direitros Reservados Karina Almeida ©