<%@LANGUAGE=VBSCRIPT%> Latin Bui

  Agenda de Eventos <% Dim bd, tb, lastYear Set bd = Server.CreateObject("ADODB.Connection") Set tb = Server.CreateObject("ADODB.Recordset") bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("latinbui.mdb") tb.Open "SELECT * FROM evento WHERE ano > " & Year(date) & " OR (ano = " & Year(date) & " AND mes >= " & Month(date) & ") ORDER BY ano, mes, dia", bd lastYear = 0 Do Until tb.EOF If tb("ano") <> lastYear Then response.write "


" & tb("ano") & "

" lastYear = tb("ano") End If response.write "" response.write tb("epoca") & "
" response.write "" & tb("nome") & "
" response.write tb("cidade") & " " & tb("pais") & "

" response.write "" tb.MoveNext Loop tb.Close bd.Close Set tb = Nothing Set bd = Nothing %>

 

* * *