<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rs = Server.CreateObject("ADODB.Recordset") %>

Cursos   CONTATO: Portal de Auditoria® Telefones: (41) 3272-8507 | (11) 4063-9121 | (21) 4062-7017| (71) 4062-9568 | (51) 4063-8502 | (31) 4062-7641 E-mail e MSN: cursos@portaldeauditoria.com.br   Lista de Cursos <%sql = ("SELECT cod, titulo, data, localCurso FROM cursos WHERE ativo=TRUE ORDER BY data desc, titulo") Set rs = conSQL.Execute(sql)%> <%do while not rs.eof dia = day(rs(2)) if len(dia)<2 then dia = "0" & dia end if mes = month(rs(2)) if len(mes)<2 then mes = "0" & mes end if data = dia & "/" & mes & "/" & year(rs(2)) %> <%rs.movenext loop%> Data Nome do Curso <%=data%> <%=rs(1)%> Conteúdo Inscreva-se Contato

<% set conSQL=nothing Set rs = Nothing %>