Untitled

<!--#Include file='../includes/validaPagina.asp' -->

<HTML>

<HEAD>

<script src="../funcoes/funcoes.js"></script>
<link href="../css/generico.css" rel="STYLESHEET" type="text/css">
<script>AtualizaCabecalho (100,"RELATÓRIO ADESÃO DA CAMPANHA");</script>

</HEAD>

<BODY  BACKGROUND="../imgs/marcaDagua3.jpg" bgproperties='fixed'>

        <%
            Dim con
            Dim RS
            Dim SQL

            Set con = Server.CreateObject("ADODB.Connection")
            con.Open Application("ConnectionString")
            con.CommandTimeout = 120
            con.CursorLocation = 3

            SQL = " EXEC dbo.stp_AdesaoCampanhaLimpaNome @p_inIdCampanha = " & inIdCampanha & ", @p_inEmpCod = " & inEmpCod & ", @p_biCPFUsuario  = "& biCPFUsuario & ", @p_vcIPCadastro = "& vcIPCadastro & ",  @p_vcSiteOrigem = " & vcSiteOrigem & ", @p_vcEmail = "& vcEmail

            SET Rs = con.Execute( SQL )

            'Response.Write SQL : Response.End

        %>

            <table border="0" cellpadding="10">
                <tr>
                    <td align="left"><img src="../imgs/iconvolt.gif" WIDTH="22" HEIGHT="17">
                        <a class="menu2" href="javascript:history.back(-1);"> Voltar</a>
                    </td>
                </tr>
            </table>

            <br>
            <table align='center' cellpadding='2' width='85%' cellspacing='1' bgcolor='#b3b2b0'>
                    <tr class='titulo'>
                    <td colspan='4'>RELAÇÃO CLIENTES QUE FIZERAM ADESÃO DA CAMPANHA</td></tr>
                <%
                If Rs.EOF Then
                %>
                    <tr class='subtitulo'>
                        <td colspan='2'>Não existem registros para a consulta.</td>
                    </tr>
                <%
                Else
                    %>
                    <tr class='subtitulo'>

                        <td width='10%'>Código Campanha</td>
                        <td width='10%'>Código</td>

                        <td width='10%'>CPF</td>
                        <td width='40%'>Cadastro</td>

                        <td width='40%'>Site Origim</td>
                        <td width='40%'>E-Mail</td>

                    </tr>
                    <%
                    While Not Rs.EOF
                    %>
                        <tr class="campocentro" onmouseover="HighlightRow(this,true);" onmouseout="HighlightRow(this,false);">
                            <td style="text-align:left;padding-left:10px"><%=Rs("inIdCampanha")%></td>
                            <td style="text-align:left;padding-left:10px"><%=Rs("inEmpCod")%></td>
                            <td style="text-align:left;padding-left:10px"><%=Rs("biCPFUsuario")%></td>
                            <td style="text-align:left;padding-left:10px"><%=Rs("vcIPCadastro")%></td>
                            <td style="text-align:left;padding-left:10px"><%=Rs("vcSiteOrigem")%></td>
                            <td style="text-align:left;padding-left:10px"><%=Rs("vcEmail")%></td>
                        </tr>
                    <%
                        rs.MoveNext
                    Wend
                End If
        %>
                <tr class='subtitulo'>
                    <td colspan="4">Total de registros: <%=Rs.RecordCount%></td>
                </tr>

            </table>
            <%
%>
</BODY>
</HTML>

<!--#Include file='../includes/funcoes.asp' -->
<!--#Include file='../includes/fechaValidaPagina.asp' -->