<% For x = 1 to 6 SELECT CASE x CASE 1 'outubro data_inicio = "10/1/2006" data_termino = "10/31/2006" mes = 10 CASE 2 'novembro data_inicio = "11/1/2006" data_termino = "11/30/2006" mes = 11 CASE 3 'dezembro data_inicio = "12/1/2006" data_termino = "12/31/2006" mes = 12 CASE 4 'janeiro data_inicio = "1/1/2007" data_termino = "1/31/2007" mes = 1 CASE 5 'fevereiro data_inicio = "2/1/2007" data_termino = "2/27/2007" mes = 2 CASE 6 'marco data_inicio = "3/1/2007" data_termino = "3/31/2007" mes = 3 END SELECT SQLQuery = "SELECT COUNT(*) FROM agenda WHERE (((agenda.data_termino)>=#" & data_inicio & "# And (agenda.data_termino)<=#" & data_termino & "#)) " Set rsConta = Conn.Execute(SQLQuery) IF rsConta(0) > 0 THEN response.write "
" ' PEGANDO OS DADOS DO CONTEÚDO A SER EXIBIDO SQLQuery = "SELECT * FROM agenda WHERE (((agenda.data_termino)>=#" & data_inicio & "# And (agenda.data_termino)<=#" & data_termino & "#)) ORDER BY data_inicio ASC" Set rsEvento = Conn.Execute(SQLQuery) IF NOT rsEvento.EOF THEN DO WHILE NOT rsEvento.EOF strContID = rsEvento.fields("id") strContTitulo = rsEvento.fields("titulo") strContLocal = rsEvento.fields("local") strContDataIni = rsEvento.fields("data_inicio") strContDataFim = rsEvento.fields("data_termino") ' DISPONIBILIZANDO response.write "" rsEvento.MoveNext LOOP ELSE ' ERRO! response.write "Nenhum evento encontrado!" END IF END IF Next Set rsEvento = Nothing %>