ANDRE_GUSTAVO

sim estou testando localmente... quer dizer que tenho que retirar as permissoes da pasta VISTEON e deixar somente na pasta "IMAGENS_AGENDA" ? DEIXEI AS PERMISSOES SOMENTE NA PASTA IMAGENS_AGENDA, MAS AINDA ESTA SEM PERMISSAO

sim estou testando localmente... quer dizer que tenho que retirar as permissoes da pasta VISTEON e deixar somente na pasta "IMAGENS_AGENDA" ?

eu já dei todas permisoes possiveis, mas ainda continua sem permissao

ta dando o seguinte erro: (0x800A0046) Permissão negada /VISTEON/Painel_de_controle/salvaagenda.asp, line 99 linha 99 Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) porque esse erro agora?

alteri a linha, e exibiu o seguinte erro: Chamada de procedimento ou argumento inválido: 'AscB' MyFile.Write chr(AscB(MidB(foto,i,1)))

o resultado de : response.write "<b><h4>nome_foto="&nome_foto&"</h4></b><br><br>" foi FALSE o que esse false significa?

apareceu um monte de caracteres, mas não o nome foto=í£¿îƒ¿á€€ä™Šä™‰Ä€Ää €ä €

bareta.. ta registrando, porem não esta sendo criado o arquivo na pasta de destino

<%@LANGUAGE="VBSCRIPT" codepage="65001" LCID="1046" %> <%Session.CodePage = 65001%> <% RESPONSE.Expires=0 %> <% Dim nDia, nMes, nAno, nDiaSemana Dim sDiaSemana, sMes nDia = day(Date) nMes = month(Date) nAno = year(Date) nDiaSemana = weekday(Date) select case nDiaSemana case 1 sDiaSemana = "Domingo" case 2 sDiaSemana = "Segunda-Feira" case 3 sDiaSemana = "Terça-Feira" case 4 sDiaSemana = "Quarta-Feira" case 5 sDiaSemana = "Quinta-Feira" case 6 sDiaSemana = "Sexta-Feira" case 7 sDiaSemana = "S&aacute;bado" end select select case nMes case 1 sMes = "01" case 2 sMes = "02" case 3 sMes = "03" case 4 sMes = "04" case 5 sMes = "04" case 6 sMes = "06" case 7 sMes = "07" case 8 sMes = "08" case 9 sMes = "09" case 10 sMes = "10" case 11 sMes = "11" case 12 sMes = "12" end select %> <% session("data2") = nDia & "/" & sMes & "/" & nAno %> <!--#INCLUDE FILE ="../db_visteon/conexaodb.inc"--> <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- varNomeEvento = UploadRequest.Item("nome_evento").Item("Value") varLocal = UploadRequest.Item("local").Item("Value") varData1 = UploadRequest.Item("data1").Item("Value") varDia = UploadRequest.Item("dia").Item("Value") varMes = UploadRequest.Item("mes").Item("Value") varAno = UploadRequest.Item("ano").Item("Value") varHorario = UploadRequest.Item("horario").Item("Value") varCidade = UploadRequest.Item("cidade").Item("Value") varEstado = UploadRequest.Item("TXTEstado").Item("Value") varDescricao = UploadRequest.Item("txtdescri").Item("Value") DataCadastro = session("data2") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("txt_foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("txt_foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("txt_foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("../agenda/imagens") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "imagens" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chrB(AscB(MidB(foto,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados call abreconexao function LimparTexto(str) str = trim(str) str = lcase(str) str = replace(str,"=","") str = replace(str,"'","") str = replace(str,"""""","") str = replace(str," or ","") str = replace(str," and ","") str = replace(str,"(","") str = replace(str,")","") str = replace(str,"<","[") str = replace(str,">","]") str = replace(str,"update","") str = replace(str,"-shutdown","") str = replace(str,"--","") str = replace(str,"'","") str = replace(str,"#","") str = replace(str,"$","") str = replace(str,"%","") str = replace(str,"¨","") str = replace(str,"&","") str = replace(str,"'or'1'='1'","") str = replace(str,"--","") str = replace(str,"insert","") str = replace(str,"drop","") str = replace(str,"delet","") str = replace(str,"xp_","") str = replace(str,"select","") str = replace(str,"*","") LimparTexto = str end function %> <% CALL LimparTexto(varNomeEvento) CALL LimparTexto(varLocal) CALL LimparTexto(varData1) CALL LimparTexto(varDia) CALL LimparTexto(varMes) CALL LimparTexto(varAno) CALL LimparTexto(varHorario) CALL LimparTexto(varCidade) CALL LimparTexto(varEstado) CALL LimparTexto(varDescricao) ' cadastra os dados no banco de dados sql = " Insert into agenda ( Foto, NomeFesta , Local , MiniData , DiaFesta , MesFesta , AnoFesta , Horario , Cidade , Estado , Descricao , Data) values ( '"&cfoto&"', '"&varNomeEvento&"', '"&varLocal&"', '"&varData1&"', "&varDia&", '"&varMes&"', '"&varAno&"', '"&varHorario&"', '"&varCidade&"', '"&varEstado&"', '"&varDescricao&"', '"&DataCadastro&"')" SET rsSQL = ConexaoDB.Execute(sql) response.Redirect("agenda.asp") %> ai esta o codigo completo essa é a parte onde esta dando o erro: if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chrB(AscB(MidB(foto,i,1))) Next MyFile.Close end if

fala ai bareta....beleza!?!?! cara retirei as @ mas ainda continua... o que mais pode ser?

quem?? Esses endereços existem. olha so esse aqui é onde tem que ser salvo os aquivos do upload D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens esse outro, é onde os aquivos que estou fazendo os testes estao localizados D:\@Trabalho\stock images\full\828273-016.JPG esses 2 endereços são reais eles existem os arquivos q utilizo nos testes estao neste endereço: D:\@Trabalho\stock images\full e a pasta de destino é nesse endereço: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens Aterei os nomes das variaveis foto1 p/ foto nome_foto1 p/ nome_foto caminho_foto1 p/ caminho_foto cfoto1 p/ cfoto agora esta exibindo o seguinte erro (0x800A0005) Chamada de procedimento ou argumento inválido /VISTEON_SOUND/painel_de_controle/salvaagenda.asp, line 100 linha 100 >>>> MyFile.Write chr(AscB(MidB(foto,i,1))) ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if alguém... me da uma luz!!!! porque ta dando esse erro?

quem?? Esses endereços existem. olha so esse aqui é onde tem que ser salvo os aquivos do upload D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens esse outro, é onde os aquivos que estou fazendo os testes estao localizados D:\@Trabalho\stock images\full\828273-016.JPG esses 2 endereços são reais eles existem os arquivos q utilizo nos testes estao neste endereço: D:\@Trabalho\stock images\full e a pasta de destino é nesse endereço: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens Aterei os nomes das variaveis foto1 p/ foto nome_foto1 p/ nome_foto caminho_foto1 p/ caminho_foto cfoto1 p/ cfoto agora esta exibindo o seguinte erro (0x800A0005) Chamada de procedimento ou argumento inválido /VISTEON_SOUND/painel_de_controle/salvaagenda.asp, line 100 linha 100 >>>> MyFile.Write chr(AscB(MidB(foto,i,1))) ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if alguém... me da uma luz!!!! porque ta dando esse erro?

quem?? Esses endereços existem. olha so esse aqui é onde tem que ser salvo os aquivos do upload D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens esse outro, é onde os aquivos que estou fazendo os testes estao localizados D:\@Trabalho\stock images\full\828273-016.JPG esses 2 endereços são reais eles existem os arquivos q utilizo nos testes estao neste endereço: D:\@Trabalho\stock images\full e a pasta de destino é nesse endereço: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

o resultado do debug D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens\D:\@Trabalho\stock images\full\828273-016.JPG

Sim, estava testando localmente, ai parou de funcionar, ainda esta localmente, não esta no server Muito estrannho, isso... funcionou 2x e depois não funcionou mais

Rafael, eu inverti a barra "/" mas ainda continua o erro.

Rafael, em relação as perguntas está tudo ok, o caminho esta certo, a pasta existe, estou mandando arquivos menores que 50kb, eu tinha testado umas 2 vezes e tinha dado certo, ai derrepente parou de funcionar, vou postar o codigo completo. form <%@LANGUAGE="VBSCRIPT" %> <!-- #include file = "upload_funcoes.asp" --> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; } body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background-color: #FFE94F; } .style1 { font-size: 12px; font-weight: bold; } --> </style></head> <body> <form action="salvaagenda.asp" method="post" enctype="multipart/form-data" name="form1" id="form1"> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td colspan="3"><div align="center" class="style1">Incluir Evento na Agenda </div></td> </tr> <tr> <td colspan="3"><div align="center">Preencha todos os campos</div></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td width="19%"><div align="right">Img Publicidade: </div></td> <td width="80%"><input name="txt_foto" type="file" id="txt_foto" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="35" /></td> <td width="1%">&nbsp;</td> </tr> <tr> <td><div align="right">Nome do Evento: </div></td> <td><input name="nome_evento" type="text" id="nome_evento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="35" /></td> <td>&nbsp;</td> </tr> <tr> <td><div align="right">Local:</div></td> <td><input name="local" type="text" id="local" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="35" /></td> <td>&nbsp;</td> </tr> <tr> <td><div align="right">Data:</div></td> <td><input name="data1" type="text" id="data1" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="ex.: dd/mm/aaaa" size="35" /> (essa data aparecera na pagina principal) </td> <td>&nbsp;</td> </tr> <tr> <td><div align="right">Data2:</div></td> <td><input name="dia" type="text" id="dia" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="dia" size="3" /> de <input name="mes" type="text" id="mes" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="mes" size="12" /> de <input name="ano" type="text" id="ano" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="2008" size="5" /> (data da pagina agenda.Ex. <strong>01 de Março de 2008</strong>) </td> <td>&nbsp;</td> </tr> <tr> <td><div align="right">Horário:</div></td> <td><input name="horario" type="text" id="horario" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="00:00" size="35" /></td> <td>&nbsp;</td> </tr> <tr> <td><div align="right">Cidade/Estado:</div></td> <td><input name="cidade" type="text" id="cidade" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="16" /> &nbsp; <select name="TXTEstado" id="TXTEstado" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1">Selecione</option> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AP">AP</option> <option value="AM">AM</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO" selected="selected">GO</option> <option value="MA">MA</option> <option value="MT">MT</option> <option value="MS">MS</option> <option value="MG">MG</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PR">PR</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RS">RS</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="SC">SC</option> <option value="SP">SP</option> <option value="SE">SE</option> <option value="TO">TO</option> </select></td> <td>&nbsp;</td> </tr> <tr> <td valign="top"><div align="right">Descrição da Festa:</div></td> <td><textarea name="txtdescri" cols="35" rows="4" wrap="physical" id="txtdescri"></textarea></td> <td>&nbsp;</td> </tr> <tr> <td><div align="right"></div></td> <td><input type="submit" name="Submit" value="Incluir" /></td> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> </form> </body> </html> salva <%@LANGUAGE="VBSCRIPT" %> <% Dim nDia, nMes, nAno, nDiaSemana Dim sDiaSemana, sMes nDia = day(Date) nMes = month(Date) nAno = year(Date) nDiaSemana = weekday(Date) select case nDiaSemana case 1 sDiaSemana = "Domingo" case 2 sDiaSemana = "Segunda-Feira" case 3 sDiaSemana = "Terça-Feira" case 4 sDiaSemana = "Quarta-Feira" case 5 sDiaSemana = "Quinta-Feira" case 6 sDiaSemana = "Sexta-Feira" case 7 sDiaSemana = "S&aacute;bado" end select select case nMes case 1 sMes = "01" case 2 sMes = "02" case 3 sMes = "03" case 4 sMes = "04" case 5 sMes = "04" case 6 sMes = "06" case 7 sMes = "07" case 8 sMes = "08" case 9 sMes = "09" case 10 sMes = "10" case 11 sMes = "11" case 12 sMes = "12" end select %> <% session("data2") = nDia & "/" & sMes & "/" & nAno %> <!--#INCLUDE FILE ="../db_visteon/conexaodb.inc"--> <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- varNomeEvento = UploadRequest.Item("nome_evento").Item("Value") varLocal = UploadRequest.Item("local").Item("Value") varData1 = UploadRequest.Item("data1").Item("Value") varDia = UploadRequest.Item("dia").Item("Value") varMes = UploadRequest.Item("mes").Item("Value") varAno = UploadRequest.Item("ano").Item("Value") varHorario = UploadRequest.Item("horario").Item("Value") varCidade = UploadRequest.Item("cidade").Item("Value") varEstado = UploadRequest.Item("TXTEstado").Item("Value") varDescricao = UploadRequest.Item("txtdescri").Item("Value") DataCadastro = session("data2") ' Tipo de arquivo que esta sendo enviado tipo_foto1 = UploadRequest.Item("txt_foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto1 = UploadRequest.Item("txt_foto").Item("FileName") ' Nome dos arquivos enviados nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")) ' Conteudo binario dos arquivos enviados foto1 = UploadRequest.Item("txt_foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("../agenda/imagens") nome_foto1 = "/"&varNomeEvento&nome_foto1 ' pasta + nome dos arquivos cfoto1 = "imagens" + nome_foto1 ' Fazendo o Upload do arquivo selecionado if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados call abreconexao function LimparTexto(str) str = trim(str) str = lcase(str) str = replace(str,"=","") str = replace(str,"'","") str = replace(str,"""""","") str = replace(str," or ","") str = replace(str," and ","") str = replace(str,"(","") str = replace(str,")","") str = replace(str,"<","[") str = replace(str,">","]") str = replace(str,"update","") str = replace(str,"-shutdown","") str = replace(str,"--","") str = replace(str,"'","") str = replace(str,"#","") str = replace(str,"$","") str = replace(str,"%","") str = replace(str,"¨","") str = replace(str,"&","") str = replace(str,"'or'1'='1'","") str = replace(str,"--","") str = replace(str,"insert","") str = replace(str,"drop","") str = replace(str,"delet","") str = replace(str,"xp_","") str = replace(str,"select","") str = replace(str,"*","") LimparTexto = str end function %> <% CALL LimparTexto(varNomeEvento) CALL LimparTexto(varLocal) CALL LimparTexto(varData1) CALL LimparTexto(varDia) CALL LimparTexto(varMes) CALL LimparTexto(varAno) CALL LimparTexto(varHorario) CALL LimparTexto(varCidade) CALL LimparTexto(varEstado) CALL LimparTexto(varDescricao) ' cadastra os dados no banco de dados sql = " Insert into agenda ( Foto, NomeFesta , Local , MiniData , DiaFesta , MesFesta , AnoFesta , Horario , Cidade , Estado , Descricao , Data) values ( '"&cfoto1&"', '"&varNomeEvento&"', '"&varLocal&"', '"&varData1&"', "&varDia&", '"&varMes&"', '"&varAno&"', '"&varHorario&"', '"&varCidade&"', '"&varEstado&"', '"&varDescricao&"', '"&DataCadastro&"')" SET rsSQL = ConexaoDB.Execute(sql) response.Redirect("agenda.asp") %>

Pessoal estou tentando fazer um cadastro com mysql, onde o cliente insere os dados do evento e também manda uma foto publicitaria do mesmo, porem quando é enviado, da o seguinte erro Erro de tempo de execução do Microsoft VBScript (0x800A0034) Nome ou número de arquivo inválido /VISTEON_SOUND/painel_de_controle/salvaagenda.asp, line 95 linha 95 > Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) o que tem de errado? pois já usei esse mesmo script para fazer outros uploads e funcionava beleza desde já agradeço a todos pela ajuda ate mais

Galera, mais uma vez, valeu pela ajuda agora ta funcionando beleza. o problema estava no tipo de campo, como sugeriu Jonathan obrigado a todos pela atenção ate breve

e nos outros bancos tb não. tem uns q aceitam com o asterisco, mas o padrão é sem, todos os q eu usei sempre aceitaram sem o asterisco. nunca usei com asterisco. nessas partes mais basicas é praticamente tudo igual, as diferencas são bem particulares. as maiores diferencas tão nas funcoes q variam bastante entre um banco e otro. na sintaxe as diferencas são pequenas e normalmente bem simples. andre, se você tiver dificuldade em fazer alguma coisa especifica, é só você postar explicando exatamente o problema. ou se você não sabe mesmo usar as querys nem mesmo nos otros bancos, é bom seguir a dica do rafael e ir faze uma busca por ai. Fala ai galera, obrigado pela ajuda de todos! Eu não estou conseguindo identificar onde esta o erro me ajudem! strINS = "UPDATE tbl_usuarios SET USUARIO= '"&varUsuario&"' , SENHA= '"&varSenha&"' , NOME='"& varNome&"' , CIDADE='"&varCidade&"' , ESTADO= '"&varEstado&"' , DDD= '"&varDDD_Fone&"' , TELEFONE= '"&varFone&"' , DDD_CELULAR= '"&varDDD_Celular&"' , CELULAR= '"&varCelular&"' , EMAIL= '"&varEmail& "' , DATA='"&varDataCadastro&"' WHERE ID_USUARIO = "&id SET rsSQL = conexaoDB.EXECUTE(strINS) esta sendo exibido o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [MySQL][ODBC 5.1 Driver][mysqld-5.0.67-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'TBL_USUARIOS' at line 1 Dei um response.write(strINS) para verificar se todos os valores estavao sendo passados, as variaveis estao recebendo os valores normalmente. o que tem de errado?

Gostaria de saber como faço o update e exclusão para MySQL? desde já agradeço a atenção e ajuda de todos ate breve

Fala Konras, beleza?!?!? cara eu verifiquei o endereçamento, mudei os arquivos de audio para mesma pasta do swf, mudei o caminho la no AS também, limpei cache, instalei uma versão mais recente do plugin do flash, reiniciei o pc, mas não quer funcionar. so funciona no (ctrl+enter) no browser não funciona. valeu, ate breve

Pessoal o erro citado acima já foi sanado... agora ta funcionando, mas so funciona no flash (ctrl+enter) quando vou visualizar no browser IE, FF, NATSCAPE, não ta funcionando (não toca as musicas) porque não funciona nos browsers ? como eu devo fazer para que toque nos browsers? Obrigado ate breve

Fala ai galera, td bem? Pessoal estou tentando fazer um mp3 player funcionar, mas não estou conceguindo se alguém puder me ajudar eu agradeço desde já. é o seguinte, esta dando erro em: Symbol=Mp3 , Layer=actions , Frame=1, Line=13 Symbol=Mp3 , Layer=actions , Frame=1, Line=14 Symbol=Mp3 , Layer=actions , Frame=1, Line=15 Symbol=Mp3 , Layer=actions , Frame=1, Line=16 Symbol=Mp3 , Layer=actions , Frame=1, Line=17 Symbol=Mp3 , Layer=actions , Frame=1, Line=18 Symbol=Mp3 , Layer=actions , Frame=1, Line=19 Symbol=Mp3 , Layer=actions , Frame=1, Line=22 Symbol=Mp3 , Layer=actions , Frame=1, Line=52 Symbol=Mp3 , Layer=actions , Frame=1, Line=63 Symbol=Mp3 , Layer=actions , Frame=1, Line=93 Symbol=Mp3 , Layer=actions , Frame=1, Line=100 Symbol=Mp3 , Layer=actions , Frame=1, Line=102 Na frente de cada linha citada acima aparece: This type of quotation mark is not allowed in ActionScript. Please change it to a standard (straight) double quote. logo apos em source(ainda na janela de erros) respectivamente aparece: musicas[0] = “mp3/audio1.mp3″; musicas[1] = “mp3/audio2.mp3″; musicas[2] = “mp3/audio3.mp3″; musicas[3] = “mp3/audio4.mp3″; musicas[4] = “mp3/audio5.mp3″; musicas[5] = “mp3/audio6.mp3″; musicas[6] = “mp3/audio7.mp3″; musicas[7] = “mp3/audio8.mp3″; musicas[8] = “mp3/audio9.mp3″; musicas[9] = “mp3/audio10.mp3″; artista.text = “Artista: ” + som.id3.artist; v3.text = som.getVolume() + “%”; acao = “pause”; if (acao==”pause”) { acao=””; Segue abaixo meu AScript: //sendo “var variavel:tipo_da_variavel”: //objeto que ira manipular o som var som:Sound = new Sound(); //vetor que ira armazenar o caminho das mp3 a serem tocadas var musicas:Array = new Array(); //declarando o resto das variaveis var i, vol, verifica, pos:Number; var ligado:Boolean; var acao:String; //agora vamos atribuir ao vetor o caminho das mp3 a serem utilizadas: stop(); musicas[0] = “mp3/audio1.mp3″; musicas[1] = “mp3/audio2.mp3″; musicas[2] = “mp3/audio3.mp3″; musicas[3] = “mp3/audio4.mp3″; musicas[4] = “mp3/audio5.mp3″; musicas[5] = “mp3/audio6.mp3″; musicas[6] = “mp3/audio7.mp3″; musicas[7] = “mp3/audio8.mp3″; musicas[8] = “mp3/audio9.mp3″; musicas[9] = “mp3/audio10.mp3″; //vamos fazer um if que ira verificar se o player já esta tocando se ele não estiver ligado, ele definira o volume como máximo e a posição inicial para a mp3 a ser tocada: if (ligado==null) { i = 0; vol = 100; ligado = false; } //Na rotina abaixo, especificamos que quando iniciar o frame o volume do som sera o valor setado na variavel vol. this.onEnterFrame = function() { som.setVolume(vol); //No if abaixo verificamos se o player esta ativado e ele estiver desativado, ele ira carregar a musica a ser tocada. if (ligado==false) { som.loadSound(musicas[i], true); //Como estamos usando apenas 10 musicas nesse player nosso vetor vai da posição 0 ate 9 por isso fiz a rotina abaixo que faz com que o valor de i, que é a variável que esta controlando a música a ser tocada, não passe de 2. if (i<9) i++; else i = 0; //agora definimos que o player esta ligado e fechamos o 1º if ligado = true; } //Através do id3, pegamos o nome do artista e da música e colocamos esses dados nos campos de texto que instanciamos acima. artista.text = “Artista: ” + som.id3.artist; //A rotina abaixo pega o volume do som através da propriedade getVolume(); da classe sound, e verifica se ele é maior que o valor máximo (100), e se for ele deixa o volume com o valor máximo, ele também verfica se esta abaixo do valor mínimo (0) e se estiver ele atribui ao som através do método setVolume o valor mínimo ao volume. E no final ele atribui ao campo de texto v3 o valor do volume atual e fecha a função. verifica = som.getVolume(); if (verifica>=100) { som.setVolume(100); } if (verifica<=0) { som.setVolume(0); } v3.text = som.getVolume() + “%”; } //Nos comandos abaixo através do evento onSounComplete eu aviso ao flash que o som já foi finalizado, fazendo com que a próxima música seja tocada. som.onSoundComplete = function() { ligado = false; } //Agora vamos as funções de cada botão: //Obs: devem serem digitadas juntos com as actions acima no 1º frame da camada ação. //No botão que aumenta o volume (v1) eu pego o valor do volume e adiciono + 5. E no botão que diminui o volume eu faço o contrário, pegando o volume e diminuindo por 5. //aumenta o volume v1.onRelease = function() { verifica = som.getVolume(); vol = verifica + 5; } // diminui o volume v2.onRelease = function() { verifica = som.getVolume(); vol = verifica - 5; } //No botão stop eu apenas uso o método stop para parar o som; // para muscia stopi.onRelease = function() { som.stop(); } //Na ação do botão pause eu atribuo a variável ação o valor “pause” para eu saber quando está sendo pausado e através da propriedade position eu pego o valor da posição atual em que a música está e armazeno na variável pos que será utilizada futuramente e paro a música através do método stop. // pausa a musica pause.onRelease = function() { acao = “pause”; pos = som.position/1000; som.stop(); } //Para o botão play eu usei um if para saber se devemos continuar a música ou se devemos apenas iniciá-la desde o começo. Por isso avia criado a variável ação, se o valor dela for “pause” irei continuar a música desde a parte em que ela foi parada senão irei iniciá-la desde o começo: playy.onRelease = function() { if (acao==”pause”) { som.start(pos); acao=””; } else { som.start(); } } //E finalmente o botão avançar. Sua ação é bem simples, apenas paro o som e defino a variável ligado como false, falando para o flash ir para a próxima musica. ff.onRelease = function() { ligado = false; som.stop(); } Galera esse ai é o scritp que estou utilizando. Me ajudem por favor. Desde já obrigado pela atenção e ajuda de todos ate breve.

Iai Rafael, so na paz?!?!? Cara é o seguinte, a página galeria_fotos.asp * lista os albuns de fotos cadastrados no DB * o user, escolhe qual album ele vai vizualizar, quando clica no link do album desejado, abre uma popUP referente ao album escolhido. * essa popup lista as fotos do album e os dados do album ("nome", "data", "local", "cidade") em um iframe, e em outro iframe na mesma janela é exibido as fotos em tamanho real. O PROBLEMA quando clico no link para para exibir o album, a popup abre beleza, porem, em qualquer link que eu clico é exibido o mesmo album. abaixo a pagina galeria_fotos.asp <%@LANGUAGE="vb script:AbrirPopup('id=<%=rsGaleria("URL")%>','NovaJanela','645','540');"><%= rsGaleria("NomeFesta") %></a></b></span><br /> <strong><br /> </strong><br /> <strong>&nbsp;Data:</strong> <%= rsGaleria("DataFesta") %><br /> <strong>&nbsp;Local:</strong> <%= rsGaleria("Local") %><br /> <strong>&nbsp;Cidade:</strong> <%= rsGaleria("Cidade") %>-<%= rsGaleria("Estado") %><span class="style4">.</span> <br /> <span class="style4">.</span></div></td> </tr> <tr> <td height="14" bgcolor="#000000"><div align="right"><span class="style9"><span class="style16">+Ver Album</span>&nbsp; </span></div></td> </tr> <% i = i+1 Count = Count + 1 'paginacao rsGaleria.MoveNext LOOP 'tb paginacao %> </table></td> </tr> <tr> <TD></TD> </tr> <td><div align="center"><span class="style15"><br /> <% Response.Write("Página " & PagAtual & " / " & TotalPages & " ") %> </span><br /> <br /> </div></td> </tr> <td height="18" align="center" valign="middle" background="imagens/layout-visteon_r2_c3.jpg" bgcolor="#666666"> <div align="center" class="style10"> <% 'Coloca o Nº página atual / Nº Total de páginas 'Mostra os botões: Anterior e Próximo, utilizando da opção de IF '----------- Numeros - Calculos --------------------------------------------- var01 = Len(PagAtual) 'Lê o tamanho do numero var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig. var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero var05 = var03 & 0 ' Acrecenta ZERO no final IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 'ultimo digito - 1 indice_f = 10 - var04 ' 10 - digito menos sig. If CInt(inicial) < 1 Then inicial = 1 if CInt(final) > CInt(TotalPages) Then final = TotalPages '------------------------------------------------------------------------------ IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & 1 & "'>") Response.Write("Primeira") Response.Write("</a></B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write("Anterior") Response.Write("</a></B>&nbsp;&nbsp;") IF PagAtual > 10 THEN Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & inicial - 1 & "'>") Response.Write("...") Response.Write("</a></B>&nbsp;&nbsp;") ELSE Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") END IF Else Response.Write("<B>") Response.Write("Primeira") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("Anterior") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") End If '---------------------- NUMEROS --------------------------- For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "[ <B>" & i & "</B> ]</font>&nbsp;&nbsp;" END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;" END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;" END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN '##### CONDIÇÕES ######## 'digitos mais significativos do Numero com 1 no fim > PagAtual 'EX: 21 [ 22 ] 23 24 25 2 com 1 => 21 > 22 (F) 'OU 'PagAtual <= 10 E TotalPages > 10 'EX: ... 1 2 3 4 [ 5 ] 6 ... 5 <= 10 (V) E 6 > 10 (F) IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & final + 1 & "'>") Response.Write("...") Response.Write("</a></B>&nbsp;&nbsp;") ELSE Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") END IF Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("Próxima") Response.Write("</a></B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & TotalPages & "'>") Response.Write("Ultima") Response.Write("</a></B>&nbsp;&nbsp;") ELSE Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("Próxima") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("Ultima") Response.Write("</B>&nbsp;&nbsp;") End If loop %> </div></td> </tr> </table> </body> </html> Rafael essa é a pagina que lista os albuns cadastrados no DB