|
LISTAGEM DOS INSCRITOS
- Caso seu nome não conste desta listagem e você tenha efetivamente
participado do Encontro, você deve
entrar em contato com webmaster@abralic.org.br.
| |
Nome
|
<% AbreConexao_Insc
Dim varID_Insc, varNome, varEmail, varCategoria, varTaxa, varBoleto, varPago
Dim SQL_Insc 'String SQL
Dim RS_Insc 'Recordset
Dim i
i=0
SQL_Insc = "SELECT ID_Insc,Nome,Email,Categoria,Taxa,Boleto,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"))
varEmail=RS_Insc("Email")
varCategoria=RS_Insc("Categoria")
varTaxa=RS_Insc("Taxa")
varBoleto=RS_Insc("Boleto")
varPago=RS_Insc("Pago")
i=i+1 %>
<% if i mod 2=0 then %>
<% else %>
<% end if %>
| <%=i%> |
<%=varNome %> |
<%=varEmail %> |
<% RS_Insc.MoveNext
loop
FechaConexao_Insc %>
|
