<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if session("usuario")="" then Response.Redirect("adm.asp") end if ' não armazenar esta página no cache Response.CacheControl = "no-cache" Response.AddHeader "pragma", "no-cache" Response.Expires = -1 erro = 0 Set rs = Server.CreateObject("ADODB.Recordset") filtro = request.queryString("e") %> PORTAL DE AUDITORIA | Banco de Email

Para copiar os registros clique no botão abaixo:
<%if erro=0 then sql = "SELECT Distinct ColEmail FROM bancoEmail" if filtro <> "" then sql = sql & " WHERE ColEmail like '%"&filtro&"%'" end if sql = sql & " ORDER BY ColEmail" set rs = conSQL.Execute(sql) if not rs.EOF then%>

<%else msg = "Nenhum Registro encontrado!
"%> <%=msg%> <%end if end if%>
<% set conSQL=nothing Set rs = Nothing %>