|
CERTIFICADOS DE PARTICIPAÇÃO - COMUNICADOR
E COORDENADOR DE SESSÃO
Clique no simpósio que você participou para acessar o seu certificado de
participação
como comunicador ou como coordenador de sessão.
|
Título do Simpósio
|
<% AbreConexao_Simp
Dim varID_Simp, varTitulo, Aprovado
Dim SQL_Simp 'String SQL
Dim RS_Simp 'Recordset
Dim i
i=0
SQL_Simp = "SELECT ID_Simp,Titulo,Condicao FROM tb_Simposios WHERE Aprovado=true ORDER BY Titulo"
set RS_Simp = Conexao_Simp.execute(SQL_Simp)
do until RS_Simp.EOF 'encontrou registros
varID_Simp=RS_Simp("ID_Simp")
varTitulo=UCase(RS_Simp("Titulo"))
Session("ID_Simp")=varID_Simp
i=i+1 %>
<% if i mod 2=0 then %>
<% else %>
<% end if %>
| <%=i%> |
<% =UCase(varTitulo) %> |
<% RS_Simp.MoveNext
loop
FechaConexao_Simp %>
|