|
SIMPÓSIOS
Clique no título do simpósio para acessar a programação
das sessões e textos integrais.
|
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) %> |
<% if varCoord2="" then %>
- <%=varCoord1%>
<% else
if varCoord3="" then %>
- <%=varCoord1%>
- <%=varCoord2%>
<% else
if varCoord4="" then %>
- <%=varCoord1%>
- <%=varCoord2%>
- <%=varCoord3%>
<% else %>
- <%=varCoord1%>
- <%=varCoord2%>
- <%=varCoord3%>
- <%=varCoord4%>
<% end if
end if
end if %> |
<% RS_Simp.MoveNext
loop
FechaConexao_Simp %>
|
