Loop , EMAIL etc...

[www 0]

Pessoal tenho o seguinte COdigo:

<!-- #include file="admin.asp" --><%Server.ScriptTimeOut=99999999Dim strConDim objRecDim objConDim vmailDim vuserDim ntotalvtext = request.form("txt")'vtext = "TESTE GABRIEL"'Response.write vtext'Response.endstrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\fmc1\dados\newsletter.mdb"Set objCon = Server.CreateObject ("ADODB.Connection")set rs = server.createobject("adodb.recordset")sql = "select n_cod,n_mail from emails"rs.open sql,strConn = 0while not rs.eofvmail = rs("n_mail")vuser = rs("n_cod")ntotal = n + 1style = ""HTML = ""footer = ""top = ""style = "<style type='text/css'><!--"style = style & ".fonte_menor {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; color: #000000}"style = style & ".fonte_menor_bold {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: bold; font-variant: normal; color: #000000}"style = style & ".fonte_menor_bold_azul {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: bold; font-variant: normal; color: #003399}"style = style & ".fonte_menor_azul {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; color: #003399}"style = style & "A:link { "style = style & "color: #003399; }"style = style & "A:visited {"style = style & "color: #003399; }"style = style & "A:active {"style = style & "color: #003399; }"style = style & "A:hover {"style = style & "color: #003399; }"style = style & "-->"style = style & "</style>"top = "<table width='405' border='0' cellspacing='0' cellpadding='1' height='300' align='center'>"top = top & "  <tr> "top = top & "    <td><img src='http://www.fmc.org.br/img/newsletter_topo.gif'></td>"top = top & "  </tr>"top = top & "  <tr> "top = top & "    <td bgcolor='#023292'> "HTML = HTML &"      <table width='100%' border='0' cellspacing='0' cellpadding='0' height='300' align='center'>"HTML = HTML & "        <tr> "HTML = HTML & "          <td width='450' height='276' bgcolor='#FFFFFF' valign='top'> "HTML = HTML & "            <table width='421' border='0' cellspacing='0' cellpadding='0' align='center'>"HTML = HTML & "              <tr> "HTML = HTML & "                <td><div style='font-family:Verdana, Arial, Helvetica, sans-serif;font-size:9pt;'>"HTML = HTML & vtextHTML = HTML & "</div></td>"HTML = HTML & "              </tr>"HTML = HTML & "            </table>"HTML = HTML & "          </td>"HTML = HTML & "        </tr>"HTML = HTML & "        <tr> "HTML = HTML & "          <td width='450' bgcolor='#FFFFFF'> "HTML = HTML & "            <div align='right'></div>"HTML = HTML & "          </td>"HTML = HTML & "        </tr>"HTML = HTML & "      </table>"HTML = HTML & "    </td>"HTML = HTML & "  </tr>"HTML = HTML & "</table>"HTML = HTML & "<table width='470' border='0' cellspacing='2' cellpadding='1' align='center'>"HTML = HTML & "  <tr bgcolor='#023292'> "HTML = HTML & "    <td> "HTML = HTML & "      <table width='100%' border='0' cellspacing='0' cellpadding='0'>"HTML = HTML & "        <tr valign='middle' align='center'> "HTML = HTML & "          <td bgcolor='#FFFFFF'> "HTML = HTML & "            <table width='421' border='0' cellspacing='0' cellpadding='0' align='center'>"HTML = HTML & "              <tr> "HTML = HTML & "                <td> "HTML = HTML & "                  <p><font face='Arial, Helvetica, sans-serif' size='2'><span class='fonte_menor_bold_azul'>"HTML = HTML & "                    <span class='fonte_menor'><span class='fonte_menor_azul'><b><font size='1'>© Federação Mineira de Ciclismo 2003 - Todos os direitos reservados</font></b></span></span><font size='1'><b><span class='fonte_menor'><span class='fonte_menor_azul'>"HTML = HTML & "                    </span></span></b><span class='fonte_menor_azul'><span class='fonte_menor'><br>"HTML = HTML & "                    <font size='1' color='#003399'>Av: Olegário Maciel, 311 SL 109 Centro - Cep: 30180.110<br>"HTML = HTML & "                    Belo Horizonte - MG / Brasil - Tel: 31 3201 3610 </font></span></span>"HTML = HTML & "                    </span></font></p>"HTML = HTML & "                </td>"HTML = HTML & "              </tr>"HTML = HTML & "            </table>"HTML = HTML & "          </td>"HTML = HTML & "        </tr>"HTML = HTML & "      </table>"	HTML = HTML & "	</td>"HTML = HTML & "  </tr>"HTML = HTML & "</table>"  footer = "<table width='470' border='0' cellspacing='2' cellpadding='1' align='center'>"  footer = footer & "<tr bgcolor='#023292'>"  footer = footer & "    <td> "  footer = footer & "      <table width='100%' border='0' cellspacing=0' cellpadding='0'>"  footer = footer & "        <tr valign='middle' align='center'>"   footer = footer & "          <td bgcolor='#FFFFFF'> "  footer = footer & "            <table width='435' border='0' cellspacing='0' cellpadding='0' align='center'>"  footer = footer & "              <tr> "  footer = footer & "                <td>"   footer = footer & "                  <p><font face='Arial, Helvetica, sans-serif' size='2'><span class='fonte_menor_bold_azul'>"  footer = footer & "                  <span class='fonte_menor'><span class='fonte_menor_azul'><b>Este e-mail não é um SPAM.<br></b></span></span><b><span class='fonte_menor'><span class='fonte_menor_azul'> "  footer = footer & "                  </span></span></b><span class='fonte_menor_azul'><span class='fonte_menor'>"  footer = footer & "                  <font size='1' color='#003399'>Você recebeu este e-mail porque está cadastrado no site <a href='http://www.fmc.org.br'>www.fmc.org.br</a><br>"  footer = footer & "                  Se não deseja receber mais este e-mail, <a href='http://www.fmc.org.br/newsletter/newsletter_apaga.asp?n_cod="& vuser &"'>clique aqui.</a></font></span></span> </span></font></p>"  footer = footer & "                </span></font></p>"  footer = footer & "             </td>"  footer = footer & "            </tr>"  footer = footer & "           </table>"  footer = footer & "</table></table>"    Set objMail = Server.CreateObject("CDONTS.NewMail")  objMail.To = vmail  objMail.From = "newsletter@fmc.org.br"  objMail.Subject = request.form("assunto_do_email")        objMail.BodyFormat = 0   objMail.MailFormat = 0 'response.write style & top & HTML & footer  objMail.Body = style & top & HTML & footer  objMail.Send set objMail = nothingrs.movenextwend'nextrs.closeset rs = nothingIf n = 1 thenmsg = "Foi enviado " & ntotal & " e-mail com sucesso"elsemsg = "Foram enviados " & ntotal & " e-mails com sucesso"end ifcall sucesso(msg)%>

So que eh o seguinte o primeiro problema - ele ta com o loop infinitu ta dando algum pau sei la o que ta acontecendo tanto que derrubou o server que tava hospedado

e mais do que ISSO , PRECISO que conforme va enviando email va aparecendo na teal

 

por ex tenho 10 emails

preciso que ao enviar o primeiro ele apareca na tela 1 de X( numero total de emails) enviados com sucesso

e assim por diante

a pagina va dando refresh e somando mais 1 e passando pro prox email pra enviar

por ex

to no registro 7

e enviou 5

ai ele exibe enviado 5 de x

ai ele vai tentar enviar o 8

enviou da refresh na page e poem 8 de x enviados som sucesso assim ate o final

chegando no final ele exibe pra mim

ENVIADO COM SUCESSO

 

entenderam ou seja tenho por ex 10 emails

e cliquei em enviar nesletter esse arquivo pega os 10 emails e vai escrevendo na pagina

enviando 1 de 10

1 enviado com sucessdo

enviando 2 de 10

2 enviado com sucesso

3 de 10

3 nao enviado

 

enfim

alguem sabe como fazer algo do tipo

??

[rOcKLoCo 0]

dá uma olhada

 

http://www.clubemasters.com.br/forum/viewt...topic.php?t=752

 

 

faça uma paginação q nem o nosso amigo fez no tópico acima........ficou show...falow

[www 0]

eh seria mto style rockmais nao tenho a minima ideia de fazertu nao tem o cod ai nao ?