Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mows

Enviar e-mail para cada inscrito

Por , em ASP Clássico

Recommended Posts

mows    0

mows
Postado

Pessoal, gostaria de enviar email para cada inscrito e suas respectivas oficinas.

Coloquei um código de email dentro do while, mas ele envia dois emails e nao mostra todas as oficinas.

Como posso ajeitar isso?!

 

Agradeço a ajuda.

 

Set Rs = Server.CreateObject("ADODB.Recordset")
StrSql = " SELECT codinscricao, nome, codoficina, email " & _
		" FROM Inscricoes.dbo.SemanaPedagogica2010 " & _
		" WHERE status = 2 " & _
		" ORDER BY codinscricao "
set Rs = ConSql.execute(StrSql)	

while not Rs.EOF
						
    RESPONSE.Write("<TR>")
    RESPONSE.Write("<td width=30>"&Rs("codinscricao")&"</td>")
    RESPONSE.Write("<td bgcolor=#ddd><font size=3><strong>"&Rs("nome")&"</strong></font></td>")
    RESPONSE.Write("</tr>")
    

    NomeOficina = Split(Rs("codoficina"), ",")
    

    Fim = UBound(NomeOficina)
    
    Contagem = 0
    
    For CounterLoop = 0 to Fim
    
    Oficina = NomeOficina(Contagem)

   
    Set RsOficinas = Server.CreateObject("ADODB.Recordset")
    StrSql = " SELECT nome as nome, codoficina, dia, horario " & _
        " FROM Inscricoes.dbo.SemanaPedagogica2010_OFICINAS  " & _
        " WHERE  CODOFICINA = " & Oficina & " " & _
        " ORDER BY DIA DESC "
    set RsOficinas = ConSql.execute(StrSql)	
    
        if not RsOficinas.EOF then
        
            
            RESPONSE.Write("<TR>")
            RESPONSE.Write("<td width=30></td>")
            RESPONSE.Write("<td>"&RsOficinas("dia")&" - "&RsOficinas("horario")&" - "&RsOficinas("nome")&"</td>")
            RESPONSE.Write("</tr>")
                

        end if
        Contagem = Contagem + 1
        
    
    next

    
rs.MoveNext

'####EMAIL####				
        
        
        if Request.Form("Action") = "Enviar" then


            strHTML = strHTML & "<table border=0 width=600 align=center cellpadding=0 cellspacing=0><tr> " & chr(13) & chr(10)
            strHTML = strHTML & "<tr><td align=left><font face=arial>Prezado(a) <b>"&Rs("nome")&"</font><BR><BR></td></tr>" & chr(13) & chr(10)
            strHTML = strHTML & "<tr><td align=left>"&RsOficinas("dia")&" - "&RsOficinas("horario")&" - "&RsOficinas("nome")&"</td></tr>" & chr(13) & chr(10)
            strHTML = strHTML & "</table>" & chr(13) & chr(10)        
        
                                                                    
                Set Mail = Server.CreateObject("Persits.MailSender")
                Mail.Host = "10.0.0.200"
                Mail.Username = "smtp25"
                Mail.Password = "ptms*utp"
                Mail.From = ""
                Mail.FromName = ""
                Mail.AddAddress Rs("email")
                 Mail.Subject = " assunto "
                                                                                                    
                Mail.IsHTML = True
                Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"
        
                On Error Resume Next
                Mail.Send
                If Err <> 0 Then
                    %>
                        <script language="javascript">
                        <!--
                        window.alert ("Erro ao tentar enviar email! Favor tentar novamente!");
                        window.location.go(-1);
                        //-->
                        </script>
                    <%
                else
                    %>
                        <script language="javascript">
                        <!--
                        window.alert ("Emails enviados!");
                        window.location = "email_semanapedagogica2010.asp";
                        
                        //-->
                        </script>
                    <%
                end if
        
        
        end if
        
        
        
        
        '####EMAIL####


%><TR><tD><input name="Action" type="submit" value="Enviar" /></TD></TR><%

wend

 

Tópico referência

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

as oficinas estão todas em um único campo no db?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito