<%
Const numeroRegistros = 40
x = Server.MapPath("../bd-cieg.mdb")
Set Conexao = Server.CreateObject("ADODB.Connection")
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x
Conexao.CursorLocation = 3
Conexao.Open liga
Set tabela = Server.CreateObject("ADODB.RECORDSET")
Set tabela.ActiveConnection = Conexao
tabela.PageSize = numeroRegistros
tabela.CacheSize = numeroRegistros
contador = 0
strSQL = "select identificacao,nome,endcorresp,cidade,UF,CEP,Fone,Cel,Fax,Email,Empresa,Cargo,Porte,Setor,Pag,Pag_mail,CNPJ,Pag_fone,Pag_fax,Conhecimento,Parceiro,Valor,inscricaodata,pagamento,obs from Principal ;"
CountSQL = "SELECT Count(*) AS Contador FROM Principal;"
Set Qtd = conexao.execute(CountSQL)
Quantidade = Qtd("Contador")
tabela.open strSQL
%>
Neste momento temos <%=Quantidade%> Inscritos
Escolha o tipo de relatório