|
CERTIFICADOS DE PARTICIPAÇÃO - OUVINTES
| |
Clique em seu nome para acessar o certificado de participação
como OUVINTE
|
<% AbreConexao_Insc
Dim varID_Insc, varNome, varEmail, varPago
Dim SQL_Insc 'String SQL
Dim RS_Insc 'Recordset
Dim i
i=0
SQL_Insc = "SELECT ID_Insc,Nome,Pago FROM tb_Inscritos ORDER BY Nome"
set RS_Insc = Conexao_Insc.execute(SQL_Insc)
do until RS_Insc.EOF 'encontrou registros
varID_Insc=RS_Insc("ID_Insc")
varNome=UCase(RS_Insc("Nome"))
varPago=RS_Insc("Pago")
i=i+1 %>
<% if i mod 2=0 then %>
<% else %>
<% end if %>
| <%=i%> |
<%=varNome %> |
<% RS_Insc.MoveNext
loop
FechaConexao_Insc %>
|