Gnomo

coe galera... Seguinte eu fiz um formulario q cadastra emails para uma newsletter ta funcionando direitinho.. Mais eu queria fazer com que se a pessoa fosse inserir o email novamente aparecer uma msg dizendo que o email já esta cadastrado. Isso é pra evitar emails duplicados... alguém pode me ajudar?! Desde já agradeço. GnomO!

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 ALIGN=CENTER WIDTH=442> <% lngCodigoUsuario = Request.Cookies("IDUsuarioPR") If Request("pag") = "opiniao" Then rstGeral.Open "SELECT * FROM Opiniao WHERE UsuarioCod=" & lngCodigoUsuario & ";" , conn, adOpenKeyset, adLockOptimistic rstGeral.AddNew() rstGeral("Texto") = Request("Texto") rstGeral("UsuarioCod") = lngCodigoUsuario rstGeral.Update() rstGeral.Close() End If %> <TR> <TD VALIGN=BOTTOM><img src=img/qdr-titulo-esq.gif></TD> <TD COLSPAN=2 WIDTH=442><SPAN CLASS=titulo>Dê sua Opinião</SPAN></TD> </TR> <TR> <TD><img src=img/qdr-titulo-esq2.gif></TD> <TD WIDTH=442 BACKGROUND=img/qdr-titulo-linha.gif></TD> <TD><img src=img/qdr-titulo-dir.gif></TD> </TR> </TABLE> <FORM action="Default.asp?sec=<%=sec%>" method=post> <INPUT type=hidden name=sec value="<%=sec%>"> <INPUT type=hidden name=pag value="opiniao"> <INPUT type=hidden name=cod value="<%=lngCodigoUsuario%>"> <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=5 ALIGN=CENTER WIDTH=442> <TR> <TD><B>Opinião</B></TD> </TR> <TR> <TD><TEXTAREA CLASS=inputtext COLS=70 ROWS=5 NAME=texto VALUE="<%=Request("Texto")%>"></TEXTAREA></TD> </TR> <TR> <TD><cENTER><INPUT TYPE=SUBMIT NAME=Enviar VALUE=Enviar></CENTER></TD> </TR> </TABLE> po... esse codigo ai e para o seguinte.. os usuario logados no site vao dar sua opiniao... so que quando o usuario da o opiniao a pagina atualiza mais a opiniao não vai para o bancode dados... O codigo para aparecer as opinioes já esta certo.. já testei... so falta esse... me ajudem please : ) grato; GnomO! o site é esse o: www.clickmacae.com.br/pedroreis/?sec=14 login: usuario@teste.com.br senha: 1234

<% If Request.Cookies("UserID") <> "" And Session("UsuarioLogado") Then Response.Write("<CENTER><a href=?sec=11><img src=img/logout.gif border=0 alt=""Clique aqui para se identificar como outro usuário.""></a></CENTER>") Response.End %><BR> <%Else%> <img src=img/cab-login.gif alt="Login"> <BR> <form action="Default.asp?sec=7" method=post> <input type=hidden name=pag value=entrar> <input type=hidden name=redir value="<%=Request("redir")%>"> <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 ALIGN=CENTER> <TR> <TD><FONT COLOR=#154471><B>E-mail:</B></FONT></TD> </TR> <TR> <TD><INPUT TYPE=TEXT SIZE=23 class=inputtext name=email value="<%=strEmail%>"></TD> </TR> <TR> <TD><FONT COLOR=#154471><B>Senha:</B></FONT></TD> </TR> <TR> <TD><INPUT type="password" name="senha" value="<%=Request("senha")%>" SIZE=23 class=inputtext></TD> </TR> <TR> <TD><DIV ALIGN=RIGHT><INPUT TYPE=IMAGE SRC=img/bt-ok.gif></DIV></TD> </TR> </TABLE> </FORM> <%End If%> O codigo acima serve para se a pessoa estiver logada no site.. Um formulário de login não ira aparecer no site... Mais quando você fecha o internet explorer e o abre denovo no mesmo site.. mesmo a pessoa logada no site, a parte de login fica aparecendo porque acontece isso se a pessoa esta logada no site? Por favor me ajudem.. Grato;

George.. Substitui objMail.SendMail por objMail.Send Mais o erro persiste.. Microsoft VBScript runtime error '800a0046' Permission denied /Perguntas/Enviar.asp, line 43 Sabe como resolvo? Grato; Gnomo.

Consegui fazer, um CDONT que envia msgs para meu E-mail em formato HTML... Mais esta dando um Erro. Erro: Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'objMail.SendMail' /Perguntas/Enviar.asp, line 62 Codigo: <% Set conn = Server.CreateObject("ADODB.Connection") 'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\Perguntas\dados\perguntas.mdb;" conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Inetpub\Domains\CLICKMACAE.COM.BR\www\Perguntas\dados\perguntas.mdb;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT Pergunta1, Pergunta2, Pergunta3, Pergunta4, Pergunta5, Pergunta6, Pergunta7, Pergunta8, Pergunta9 FROM Perguntas WHERE Codigo = " & 1 & ";", conn If Not rs.EOF Then %> <% Set objMail = Server.CreateObject("CDONTS.Newmail" ) objMail.To = "fabricio@clickmacae.com.br" objMail.From = "gnomoskt@globo.com" objMail.Subject = "Assunto do email" htmlemail = htmlemail & "<HTML>" htmlemail = htmlemail & "<HEAD>" htmlemail = htmlemail & "<TITLE>TESTE</TITLE>" htmlemail = htmlemail & "</HEAD>" htmlemail = htmlemail & "<BODY BGCOLOR=#FFFFFF>" htmlemail = htmlemail & "<P> TESTE</P>" htmlemail = htmlemail & "<BR>" htmlemail = htmlemail & "<BR>" htmlemail = htmlemail & "<p>Visite &nbsp;</p>" htmlemail = htmlemail & "<a href='#'>TESTE</A>" htmlemail = htmlemail & "</BODY>" htmlemail = htmlemail & "</HTML>" objMail.Bodyformat = 0 objMail.MailFormat = 0 objMail.Body = htmlemail objMail.SendMail Set objMail = Nothing %> <% End If rs.Close() conn.Close() Set conn = Nothing %> Como resolvo este problema? Grato; Gnomo.

Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'IMPCodigo ='. /admin/EditarImprensa.asp, line 37 Como resolvo esse problema? O código da página é esse: <!-- #include file="lib/DBAbre.asp" --> <!-- #include file="lib/Util.asp" --> <HTML> <HEAD> <LINK rel=stylesheet type=text/css href=css/Relatorios.css> </HEAD> <% Dim Uploader Set Uploader = New FileUploader If Uploader.Form("PG") = "Atualizar" Then Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open "SELECT Imprensa.* FROM Imprensa WHERE IMPCodigo = " & Uploader.Form("CD"), conn rs("IMPCategoria") = Uploader.Form("categoria") rs("IMPData") = DateAdd("n", Uploader.Form("min"), DateAdd("h", Uploader.Form("hor"), DateSerial(Uploader.Form("ano"), Uploader.Form("mes"), Uploader.Form("dia")))) rs("IMPTitulo") = Server.HTMLEncode(Uploader.Form("titulo")) rs("IMPTexto") = Uploader.Form("desc") If Uploader.Files.Exists("imagem1") Then rs("IMPImagem1") = Application("PastaImagensVirtual") & "imp" & rs("IMPCodigo") & "-1" Uploader.Files("imagem1").FileName = "imp" & rs("IMPCodigo") & "-1" Uploader.Files("imagem1").SaveToDisk Application("PastaImagens") End If If Uploader.Files.Exists("imagem2") Then rs("IMPImagem2") = Application("PastaImagensVirtual") & "imp" & rs("IMPCodigo") & "-2" Uploader.Files("imagem2").FileName = "imp" & rs("IMPCodigo") & "-2" Uploader.Files("imagem2").SaveToDisk Application("PastaImagens") End If rs.Update() rs.Close Set rs = Nothing Response.Redirect("EditarImprensa.asp") End If Set rs = CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM Imprensa WHERE IMPCodigo = " & Request("CD") & ";", conn categoria = rs("IMPCategoria") data = rs("IMPData") titulo = rs("IMPTitulo") desc = rs("IMPTexto") imagem1 = rs("IMPImagem1") imagem2 = rs("IMPImagem2") rs.Close() %> <FORM action=EditarImprensa.asp method=post name=composeform enctype="multipart/form-data"> <INPUT type=hidden name=PG value=Atualizar> <INPUT type=hidden name=CD value=<%=Request("CD")%>> <P>Atualize neste formulário os dados da página de imprensa e clique em <B>Atualizar</B>. <P>Prefira colocar o título e a descrição em letras minúsculas. Por exemplo ao invés de escrever "COMPUTADOR PENTIUM" prefira "Computador Pentium". <P><TABLE width=100% border=0 cellpadding=0 cellspacing=0> <TR><TH align=right width=100>Título:&nbsp;<TD><INPUT name=titulo size=50 maxlength=255 value="<%=titulo%>"> <TR><TH align=right>Categoria:&nbsp;<TD><SELECT name=categoria><% Set rs = CreateObject("ADODB.Recordset") rs.Open "SELECT CATCodigo, CATNome FROM Categorias INNER JOIN CategoriasVinculadas ON Categorias.CATCodigo = CategoriasVinculadas.CVLVinculada WHERE CVLCategoria=2;", conn While Not rs.EOF If CLng(Categoria) = CLng(rs("CATCodigo")) Then sel = " selected" Else sel = "" Response.Write("<OPTION value=" & rs("CATCodigo") & sel & ">" & rs("CATNome")) rs.MoveNext() Wend rs.Close() %></SELECT> <TR><TH align=right width=100>Data:&nbsp;<TD><%CampoData Data%> <%If imagem1 <> "" Then%> <TR><TH align=right width=100>Exemplo da Foto Pequena:&nbsp;<TD><IMG src="<%=imagem1%>"> <%End If%> <TR><TH align=right width=100>Foto Pequena:&nbsp;<TD><INPUT name=imagem1 type=file size=35> <%If imagem2 <> "" Then%> <TR><TH align=right width=100>Exemplo da Foto Grande:&nbsp;<TD><IMG src="<%=imagem2%>"> <%End If%> <TR><TH align=right width=100>Foto Grande:&nbsp;<TD><INPUT name=imagem2 type=file size=35> <TR><TH align=right valign=top>Descrição:&nbsp;<TD> <DIV style='position:relative;left:0px;top:0px;height:364;width:440'> <TEXTAREA name=desc wrap=soft style='visibility:visible;z-index:100;position:absolute;left:0px;top:0px;height:100%;width:100%'><%=desc%></TEXTAREA> <IFRAME SRC='Editor.asp' id='richedit' style='visibility:hidden;position:absolute;left:0px;top:0px;height:100%;width:100%'></IFRAME> </DIV></TD> <TR><TH colspan=2><BR><TABLE width=100% border=0 cellpadding=0 cellspacing=0><TR><TH width=25%>&nbsp;<TH width=25%><INPUT onclick="document.composeform.desc.value=window.richedit.getHTML();" type=image src=img/bt-at.gif alt=Atualizar border=0></TH><TH width=25%><A href=EditarImprensa.asp><IMG name=can alt=Cancelar src=img/bt-cancelar.gif border=0></A><TH width=25%>&nbsp;</TABLE> </TABLE></FORM> <script language=JavaScript> <!-- function HTMLfilter(data) { data = data.replace(/&/g, "&amp\;"); data = data.replace(/\"/g, "&quot\;"); data = data.replace(/</g, "&lt\;"); data = data.replace(/>/g, "&gt\;"); return data; } function RTELoaded(w) { w.setToolbar("tbbgcolor",false) w.setToolbar("tbimage",false) w.setToolbar("tbbar3",false) w.setToolbar("tbbar5",false) w.setSkin("#idToolbar {border: 1px black solid; background:#BEE1FF}") plaintext = document.composeform.desc.value; window.richedit.setHTML(plaintext); document.composeform.desc.style.visibility='hidden'; document.all.richedit.style.visibility = 'visible'; window.richedit.setFocus() } //--> </SCRIPT> <!-- #include file="lib/DBFecha.asp" --> Grato; GnomO

Microsoft Vbscript Compilation Error '800a03f6' Expected 'End' /teste2/Noticias.asp, line 129 Tava no titulo do post aheiahehaohe mais e esse erro q da ai... valeu!!!

alguém ai sabe porque ta dando esse erro ai? Abaixo o Codigo da pagina q ta dando Erro: <!-- #include file="local.asp" --> <% Sub Cabecalho(Titulo, Pagina, Banner) %> <% CategoriaPrincipal = 3 Set rs = CreateObject("ADODB.Recordset") If Request("CT") <= 1 Then CategoriaAtiva = CategoriaPrincipal Where = "WHERE NOTCategoria = " & CategoriaAtiva Destaque = "Notícias em Destaque" Else CategoriaAtiva = Request("CT") rs.Open "SELECT CATNome FROM Categorias WHERE CATCodigo = " & CategoriaAtiva & ";", conn Destaque = "Notícias em Destaque em " & rs("CATNome") Where = "WHERE NOTCategoria = " & CategoriaAtiva rs.Close() End If SelecionaPaginas() Dim Dias(7) Dias(1) = "Domingo" Dias(2) = "Segunda-feira" Dias(3) = "Terça-feira" Dias(4) = "Quarta-feira" Dias(5) = "Quinta-feira" Dias(6) = "Sexta-feira" Dias(7) = "Sábado" Dim Mes(12) Mes(1) = "Janeiro" Mes(2) = "Fevereiro" Mes(3) = "Março" Mes(4) = "Abril" Mes(5) = "Maio" Mes(6) = "Junho" Mes(7) = "Julho" Mes(8) = "Agosto" Mes(9) = "Setembro" Mes(10) = "Outubro" Mes(11) = "Novembro" Mes(12) = "Dezembro" If Request("CD") <> "" Then rs.Open "SELECT CATNome, CATLink, NOTCategoria, NOTData, NOTTitulo, NOTTexto, NOTFonte, NOTImagem2 FROM Categorias INNER JOIN Noticias ON Categorias.CATCodigo = Noticias.NOTCategoria WHERE NOTCodigo = " & Request("CD") & ";", conn CategoriaAtiva = rs("NOTCategoria") Titulo = rs("NOTTitulo") Cabecalho Titulo, PagCat, PagBan %> <Span Style=titulonoticia><%=Titulo%></Span> <P><%=(Dias(WeekDay(rs("NOTData"))) & ", " & Day(rs("NOTData")) & " de " & Mes(Month(rs("NOTData"))) & " de " & Year(rs("NOTData")) & ", " & Zera(Hour(rs("NOTData"))) & "h" & Zera(Minute(rs("NOTData"))) & "min")%></P> <TABLE border=0 width=100% cellpadding=0 cellspacing=0> <TR><TD> <DIV class=nc> <P> <%If rs("NOTImagem2") <> "" Then%> <IMG src="<%=rs("NOTImagem2")%>" align=right vspace=5 hspace=5> <%End If%> <%=rs("NOTTexto")%> <%If rs("NOTFonte") <> "" Then%> <P><B>Fonte: <%=rs("NOTFonte")%></B> <%End If%> </DIV></TD></TR></TABLE> <% rs.Close() rs.Open "SELECT NOTCodigo, NOTTitulo FROM Noticias WHERE NOTCategoria = " & CategoriaAtiva & " ORDER BY NOTData DESC;", conn If Not rs.EOF Then %> <P><BR><TABLE border=0 cellpadding=2 cellspacing=0 width=100%> <TR><TD class=lista-ti>Últimas Notícias</TD></TR> <TR><TD> <% Cont = 0 While Not rs.EOF And Cont < 5 Response.Write("<span class=marc> » </span> <A class=link-not href=Noticias.asp?CD=" & rs("NOTCodigo") & "> " & rs("NOTTitulo") & "</A>") Cont = Cont + 1 rs.MoveNext() Wend %> </TD></TR> </TABLE> <P><A href=Noticias.asp class=link-not>Veja Mais Notícias>></A> <% End If rs.Close() Rodape() Else Cabecalho "Notícias", PagCat, PagBan rs.CursorLocation = adUseClient %> <TABLE border=0 cellpadding=2 cellspacing=0 width=100%> <TR><TD class=lista-ti>Notícias em Destaque</TD></TR> </TABLE> <P><TABLE width=100% border=0 cellpadding=3 cellspacing=0> <% rs.Open "SELECT NOTCodigo, NOTTitulo, Mid(NOTTexto,1,200) & '<P>...' AS CampoTexto, NOTImagem1 FROM Noticias " & Where & " ORDER BY NOTData DESC;", conn Cont = 0 While Not rs.EOF And Cont < 5 CampoTexto = TiraHTML(rs("CampoTexto")) If rs("NOTImagem1") <> "" Then Imagem = "<A href=""Noticias.asp?CD=" & rs("NOTCodigo") & """><IMG src=""" & rs("NOTImagem1") & """ align=left hspace=3 vspace=3 border=0></A>" Else Imagem = "" Response.Write("<TR><TD valign=top><span class=marc> » </span></TD><TD><A class=link-not href=""Noticias.asp?CD=" & rs("NOTCodigo") & """>" & rs("NOTTitulo") & "</A><BR>" & Imagem & CampoTexto & "</TD></TR>") Cont = Cont + 1 rs.MoveNext() Wend Response.Write("</TABLE>") %> <P><BR><TABLE border=0 cellpadding=2 cellspacing=0 width=100%> <TR><TD class=lista-ti>Últimas Notícias</TD></TR> <TR><TD> <% While Not rs.EOF Response.Write("<A class=lista-item href=Noticias.asp?CD=" & rs("NOTCodigo") & "><IMG src=img/ponta.gif border=0 align=absmiddle> " & rs("NOTTitulo") & "</A>") Cont = Cont + 1 rs.MoveNext() Wend rs.Close() %> </TD></TR> </TABLE> <% Rodape() End If 'line 129 %> Valeu ai... Utilize sempre a tag CODE para formatar o seu código

Po cara nem achei

Eu queria fazer um negocio tipo o desse link abaixo! Exemplo para adicionar os nomes na lista ao lado.. c alguém souber onde tem esse codigo pronto ou souber fazer isto... por favor me fale.. preciso mT disso valeu aEW!!!!

valeu cara ... agora entendi qual e da parada ... valeu mesmo

<% Set Mail = Server.CreateObject("Persits.MailSender") 'Servidor de SMTP Mail.Host = "smtp2.locaweb.com.br" 'E-mail do remetente Mail.From = "gnomoskt@globo.com" 'Remetente Mail.FromName = "Gnomo" Mail.AddAddress "fabricio@clickmacae.com.br", "Fabricio Oliveira" 'Assunto da mensagem Mail.Subject = "TESTE DO ASPEMAIL" 'Corpo da mensagem Mail.Body = "Olá!" & Chr(13) & Chr(10) & "Isso é apenas um teste do componente ASPEmail" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Set Mail = Nothing %> O que esta errado no codigo acima ??? O erro que aparece e o seguinte: Error encountered: 550 5.7.1 Unable to relay for fabricio@clickmacae.com.br alguém poderia me ajudaR ???

Tipo como faço um logo = a desse site aki ??? www.nightmacae.com.br o vermelho do canto .... Por favor me ajudem com isso ... e urgente ! Grato; Gnomo

Esse e o Erro !

Por favor alguém sabE ai ?

Onde está o erro nesse codigo ? <%@ Language=VBScript %> <HTML> <HEAD> <Title>GamesWorldMacae.com.br - Contato <LINK rel="stylesheet" type="text/css" href="http://www.clickmacae.com.br/gamesworld/css/gamesworld.css"> <BODY style="margin:0px"> <% Function EnviarEmail(DeNome, DeEmail, ParaNome, ParaEmail, Assunto, Mensagem, HTML) Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = Application("ServidorSMTP") JMail.SenderName = DeNome JMail.Sender = DeEmail JMail.Subject = Assunto JMail.AddRecipient ParaEmail JMail.Body = Mensagem If HTML Then JMail.ContentType = "text/html" JMail.Execute End Function %> <% If Request("pg") = "contato" Then strMensagem = "NOME: " & Request("nome") & VBNEWLINE & _ "E-MAIL: " & Request("email") & VBNEWLINE & _ "TELEFONE: " & Request("telefone") & VBNEWLINE & _ VBNEWLINE & "COMENTÁRIOS:" & VBNEWLINE & Request("comentarios") EnviarEmail Request("nome"), Request("email"), "Games World", "fabricio@clickmacae.com.br", Request("assunto"), strMensagem, False" %> <P><B>Mensagem Enviada</B></P> <P>Obrigado por entrar em contato conosco.</P> <% Else %> <br><center>Entre em contato conosco preenchendo o formulário abaixo: <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 ALIGN=CENTER> <TR> <TD>Nome:</TD> <TD><input type=text maxlength=50 name=nome style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></TD> </TR> <TR> <TD>E-mail:</TD> <TD><input type=text maxlength=50 name=email style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></TD> </TR> <TR> <TD>Assunto:</TD> <TD><input type=text maxlength=50 name=assunto style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></TD> </TR> <TR> <TD>Mensagem:</TD> <TD><textarea name=nome style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></textarea></TD> </TR> <TR> <TD><input type=reset value=Limpar Dados maxlength=50 name=Enviar style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;background-color:#cccccc"></TD> <TD><input type=submit value=Enviar maxlength=50 name=Limpar style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;background-color:#cccccc"></TD> </TR> </TABLE> </BODY> </HTML>

O som do meu player não ta tocando... tem como ele tocar sem precisar baixar ? toda vez q entra na pagina tem q esperar baixar a musica .... :angry: :angry: ele esta nessa pagina aki ... Player

Caro resopi fiz o que você sugeriu ... desmarquei a opção de mostrar erros amigaveis .... E deu o seguinte erro ... Respondendo sua pergunta: Não tenho o componente aspmail instalado no meu pc ... Comom faço pra instalar ? Muito Obrigado ... :P :)

Po cara ... Eu não entendi direito .... :( :( :o :o :unsure: :unsure: Poderia me explicar melhor ? :)

de uma olhada no codigo abaixo .... ta pegando normal .. Mais quando clico em enviar da um erro de HTTP 500 :( ... porque ? alguém poderia me explicar ? Desde já Agradeço .. :) :mellow:

Por favro me ajudem a fazer um Fórum ou me ajudem a encontrar um codigo para download em algum site tipo igual ao do site Swat games na moral me ajudem!!! B)

alguém poderia me ajudar a fazer um preloader simples!!! na moral galera preciso muito disto!!! :unsure:

valeu CARA EU CONSEGUI FAZER O BAGULHO valeu MERMO

po cara você explicou bem mais sabe o q é??? E q eu não entendo nada de flash será que você poderia me explicar melhor... Obs: meu flash e em inglês. me explica ae na moral. :unsure: :unsure: :(