|
CERTIFICADOS DE PARTICIPAÇÃO - COORDENADOR DE SIMPÓSIO
Clique no seu nome para acessar o certificado de participação como coordenador
de simpósio.
|
Título do Simpósio
|
Coordenador(es)
|
<% AbreConexao_Simp
Dim varID_Simp, varTitulo, varCoord1, varCoord2, varCoord3, Aprovado
Dim SQL_Simp 'String SQL
Dim RS_Simp 'Recordset
Dim i
i=0
SQL_Simp = "SELECT ID_Simp,Titulo,Coord1,Coord2,Coord3,Coord4 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"))
varCoord1=RS_Simp("Coord1")
varCoord2=RS_Simp("Coord2")
varCoord3=RS_Simp("Coord3")
varCoord4=RS_Simp("Coord4")
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 %>
|
