<% SET objconexao = Server.CreateObject("adodb.connection") objconexao.open "Provider = Microsoft.JET.oledb.4.0;data source="& server.mappath("dados/dados.mdb")& ";Jet OLEDB:Database Password=wsbalaminut" %> <% cursosinternos_sql = "select * from tab_cursos where cur_url='"&UrlPaginaAtual&"'" set cursosinternosrs = objconexao.execute(cursosinternos_sql) cursosinternosrssub_sql = "select top 5 * from tab_noticias where not_oculto=0 order by not_ordem desc, not_nome asc" set cursosinternosrssub = objconexao.execute(cursosinternosrssub_sql) %>

<%=curso_rs("cur_tema")%> ‹ Voltar

DADOS SOBRE O CURSO CONTEÚDO NOSSA PROGRAMAÇÃO <% if curso_rs("cur_ficha") = "S" Then %> REALIZAR A INSCRIÇÃO <%end if%>

fechar X <%=curso_rs("cur_texto")%>

fechar X <%=curso_rs("cur_objetivo")%>

fechar X

<%=curso_rs("cur_tema")%>
Na data <%=curso_rs("cur_data")%> <%=curso_rs("cur_hora")%>

LOCALIZAÇÃO: <%=curso_rs("cur_local")%>

ENQUETE

<%=ws_enquete%>

<% cursosinternosrs.close set cursosinternosrs=nothing cursosinternosrssub.close set cursosinternosrssub=nothing %>