<% ' PEGANDO OS DADOS DO CONTEÚDO A SER EXIBIDO SQLQuery = "SELECT * from vwAgendaHome" 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 Set rsEvento = Nothing %>
ver mais eventos...