cabral51 0 Denunciar post Postado Julho 7, 2006 e ae joacito ontem tive que ir pra casa pq o horario do trampo tinha acabado vamus la:qdo imprimo o lbound ates do for ele imprimi o numero 0qdo imprimo o ubound ele imprimi 1 Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 Então... você só tem 1 email na sua variável condicao2. Procura alguma coisa sobre SPLIT na net... Eu não manjo muito... Ou espera alguma outra resposta... Eu acho q está certo... LBound e UBound acho q está OK... Tenho uma documentação q explica o SPLIT e diz exatamente isso q você está fazendo... Joga em um array, separando por posição de acordo com o delimitador... Por via das dúvidas, tenta assim: condicao2= split(Trim(CStr(condicao)),",",-1) Por padrão, ele assume o -1, mas de qq jeito, deixa indicado... Sinceramente, não sei mais te ajudar... Se não funfar, espera outras respostas http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 joacito ams se ele imprimiu que no l bound eh 0 e no unbound eh um naum significa que tem dois emails??ja que o vetor começa na posiçao 0??eh realmente so esta enviando um ainda Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 No For, coloca UBound(condicao2)+1 Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 vai fikar assim:? for i=lbound(condicao2) to ubound(condicao2)+1se fikar assim da esse erro olha Microsoft VBScript runtime error '800a0009' Subscript out of range: '2' /select/enviaselectemail.asp, line 66 manu ele naum ta fazendo o incremento da variavel i acho que eh por isso que ta dando erro Compartilhar este post Link para o post Compartilhar em outros sites
Ratu 0 Denunciar post Postado Julho 7, 2006 Caras eu naum li o topico inteiro, mas percebo que o problema eh no Split... um exemplo: -- Primeiro, eu verifico com o InsTr se há virgulas na variavel, caso haja, ae eu dou um split que separará por virgula, porque o usuario pode selecionar apenas um expositor(no meu caso), e caso isso aconteca naum pode dar o split, depois de dar o SPLIT eu tenho um array, e o comando UBOUND devolve a qtd de itens deste array, para acessar os valores do array, eh soh usar o indice variavel_array(indice), o qual comeca pelo 0, variavel_array(0). if InStr(lista_expositores,",") > 0 then id_lojista_relacionado = split(lista_expositores,",") for i = 0 to UBound(id_lojista_relacionado) sql = " INSERT INTO app_bfs_lojista_relacionamento (id_lojista, id_lojista_relacionado) VALUES (" & trim(id_lojista) & "," & int(id_lojista_relacionado(i)) & ")" conn.Execute(sql) next else sql = " INSERT INTO app_bfs_lojista_relacionamento (id_lojista, id_lojista_relacionado) VALUES (" & int(id_lojista) & "," & int(lista_expositores) & ")" end if BELE?! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 "Suspeitei desde o princípio"...Kra... você tem certeza q os e-mails vem separado por vírgula?Onde você monta eles?Posta o código da outra página... Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 pagina onde eu monto eh num select: <% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexao.asp"--><% RESPONSE.BUFFER = TRUE session.LCID = 1046 Dim banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario,entid,codigox,empresa,wcor,listar,listar2,selectcampo,email,todos1,email1,email2,todos,textopubli2 entid=trim(request.form("entid")) codigox=trim(request.form("codigox")) textopubli2=request.form("textopubli") call abre_banco %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Grupo Mercosul - Marcas e Patentes- Enviar para meus clientes</title><style type="text/css"><!--body { background-image: url(file:///F|/atualizacao/bg.jpg); margin-top: 0px; background-color: #CCCCCC;}.style11 { font-family: "Trebuchet MS"; font-size: 12px;}.style17 { color: #FFFFFF; font-family: "Trebuchet MS"; font-size: 11px;}a:link { color: #000000; text-decoration: none;}a:visited { text-decoration: none; color: #000000;}a:hover { text-decoration: underline; color: #990000;}a:active { text-decoration: none; color: #000000;}.style28 { color: #000000; font-weight: bold; font-size: 24px;}.style29 {color: #000000}#corpo { position:absolute; left: 289px; top: 180px;}--></style></head><body><table width="778" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="778"><img src="topo%20copy.jpg" alt="Página principal" width="777" height="100" border="0"></td> </tr></table><table width="777" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="777" align="left" valign="top" bgcolor="#015792"> <div align="justify"><a href="../indicacao.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../indicar.gif" width="152" height="35" border="0"></a> <a href="../lista_cliente.asp?listar=cliente&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../clientescomarca.gif" width="152" height="35" border="0"></a><a href="../orcamento.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../orçamento.gif" width="152" height="35" border="0"></a><a href="../lista_cliente.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="clientesemarca.gif" width="152" height="35" border="0"></a><a href="../form_buscamarca.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="../buscainpi.gif" width="164" height="35" border="0"></a></div></td> </tr></table> <table width="778" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="776" bgcolor="#3777B0"> </td> </tr></table><table width="760" height="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff" class="style11"> <tr> <td width="151" align="left" valign="top" bgcolor="#f3f3f3"><p> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="151" height="266"> <param name="movie" value="../menu-esquerdo.swf"> <param name="quality" value="high"> <embed src="../menu-esquerdo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="151" height="266"></embed> </object><br/> </td> <td align="center"> <p align="center" class="style29"> Envie este texto para seus clientes, para que eles saibam da importância do registro de marca.<form name="textopubli"> <textarea name="textocli" cols="50" rows="5" readonly="readonly" align="center"></textarea></form> <% StrSql="Select email from clientes" StrSql= StrSql & " where clientes.email <> null" StrSql= StrSql & " and clientes.codicli=" & codigox 'StrSql= StrSql & " order by clientes.email" 'response.Write(strsql) 'response.End() set tbBanco1=banco.Execute(strSQL) %> Selecione os e-mails para quen deseja enviar o texto.<br> OBS: Segure a tecla Ctrl para selecionar mais de um e-mail. <form action="enviaselectemail.asp" method="post"> <select name="selecione" size="4" multiple> </br> <option selected value="todos">todos </option> <%while not tbbanco1.eof%> <option value= <% =tbbanco1("email")%>><% =tbbanco1("email")%></option> <% tbbanco1.movenext wend tbBanco1.Close set tbBanco1=Nothing%> </select> <br><br><input name="enviacli" type="submit" id="enviacli" value="Enviar Email"> <input name="codigox" type="hidden" id="codigox" value="<%=codigox%>"><input name="entid" type="hidden" id="entid" value="<%=entid%>"> </form> </p> </td> </tr> <tr> <td align="left" valign="top" bgcolor="#f3f3f3"> </td> <td align="left" valign="top" bgcolor="#FFFFFF"> </td> </tr></table><table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#60676F"> <tr> <td width="778" bgcolor="#60676F"><div align="center" class="style17">© 1995-2005 - Todos os direitos reservados </div></td> </tr></table></body></html><%call fecha_banco%> Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 Tenta fazer como o Ratu falou...O Select Multiple insere sozinho a vírgula entre os registros selecionados? Pq se não inserir, você não colocou em nenhum lugar... Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 Tenta fazer como o Ratu falou...O Select Multiple insere sozinho a vírgula entre os registros selecionados? Pq se não inserir, você não colocou em nenhum lugar...joacito se vai fikar bravo se eu dizer que naum sei como fazer o q ele falou? HAeuah to meio perdido, a questaum eh o split, agente pode estar tirando virgulas que naum existe??? Compartilhar este post Link para o post Compartilhar em outros sites
Ratu 0 Denunciar post Postado Julho 7, 2006 Ele insere sozinho, todos os INPUTs e SELECTs multiple, se você colocar dois inputs com o mesmo nome e dar um request ele vira automaticamente separados por virgula, mas pode ocorrer de o usuario selecionar somente um item no select multiple... entaum por isso do InStr para ver se o usuario selecionou + de um item, pq se tiver a virgula ele selecionou... Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 Fica mais ou menos assim: if InStr(condicao,",") > 0 then condicao2= split(condicao,",") for i=0 to ubound(condicao2)' response.write i & "<br>" set Email = server.createobject("CDONTS.NewMail") email.From = condicao2(i) email.To = "felipecabral1451@msn.com" email.Subject = "deu certo?" email.Body = "Teste de conteúdo" email.Send set Email = nothing nextelse condicao2 = condicao set Email = server.createobject("CDONTS.NewMail") email.From = condicao2 email.To = "felipecabral1451@msn.com" email.Subject = "deu certo?" email.Body = "Teste de conteúdo" email.Send set Email = nothingend if Vlw pela explicação Ratu! Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 vixi entaum vo ter que colokar o instr e o problema eh no split??como colokarei o instr?Obigado ratu Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 if InStr(condicao,",") > 0 then condicao2= split(condicao,",") for i=0 to ubound(condicao2)' response.write i & "<br>" set Email = server.createobject("CDONTS.NewMail") email.From = condicao2(i) email.To = "felipecabral1451@msn.com" email.Subject = "deu certo?" email.Body = "Teste de conteúdo" email.Send set Email = nothing nextelse condicao2 = condicao set Email = server.createobject("CDONTS.NewMail") email.From = condicao2 email.To = "felipecabral1451@msn.com" email.Subject = "deu certo?" email.Body = "Teste de conteúdo" email.Send set Email = nothingend if Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 bom eu colokei e continua enviando um email, so o primeiro... Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 if InStr(condicao,",") > 0 thenresponse.write "com vírgula" condicao2= split(condicao,",") for i=0 to ubound(condicao2)' response.write i & "<br>" set Email = server.createobject("CDONTS.NewMail") email.From = condicao2(i) email.To = "felipecabral1451@msn.com" email.Subject = "deu certo?" email.Body = "Teste de conteúdo" email.Send set Email = nothing nextelse response.write "sem vírgula" condicao2 = condicao set Email = server.createobject("CDONTS.NewMail") email.From = condicao2 email.To = "felipecabral1451@msn.com" email.Subject = "deu certo?" email.Body = "Teste de conteúdo" email.Send set Email = nothingend if Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 printo isso olha:com virgulacom virgula Compartilhar este post Link para o post Compartilhar em outros sites
joacatito 0 Denunciar post Postado Julho 7, 2006 Sinceramente, não sei...Vamos esperar outro colega. Compartilhar este post Link para o post Compartilhar em outros sites
cabral51 0 Denunciar post Postado Julho 7, 2006 Sinceramente, não sei...Vamos esperar outro colega.blza joacito obrigado, o probelma eh ngm le o tópico está muito grand nos teriamos que fazer outro, mais uam coisa vai paracer um problema nisso tudo ali no email.from vai ter que ser tbbanco1(e_mail)e no email to condicao2(i), eu vo ter que fazer uma consulta no banco que eh akela que esta como comentario, ae vai vir o while not tbbanco1.eof ae vai dar erro Compartilhar este post Link para o post Compartilhar em outros sites
Ratu 0 Denunciar post Postado Julho 7, 2006 Cara, em q variavel você da o request ? ql eh o nome do seu select multiple ?faca assim na pagina de request:teste = Request("nomedoseuselect")Response.write testeResponse.Ende responda oq esta printando na tela, oq você seleciona esta aparecendo ? e esta sendo separado por virgula ? Compartilhar este post Link para o post Compartilhar em outros sites
