Fabio AVILA

Ola AMigos , To colocando no ar um sistema de upload de fotos , ele ta funcionando perfeitamente exeto na hora de Upar os fotos da erro abaixo: SaveBinaryData error '800a0bbc' d:\inetpub\localuser\openfest.com.br\2009\admin\catalogo\config\fotos\area_restrit.gif:Write to file failed. já dei permissão de ESCRITA para a pasta do BD, e ainda continua com esse erro... vlw

Fala ae beleza , Foi falta de atenção minha mesmo, consegui encontrar o erro .. vlw

Consegui Thelon , brigadão pela dica.. abrços

Thelon essa parte do Movie Clip n entendi , em qual botão eu coloco essa ação em cada um do menu ?

Eu denvo.to quase lá..rss.. Jhonatan desda vez na esta dando erro e está um link para cada noticia , mas ele ta pegando somente o PRIMEIRO ID em todos os Links , veja como ficou agora: <% Set objCon = Server.CreateObject("ADODB.Connection") objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False" sql = "SELECT * FROM Noticias" set rs=objCon.Execute(sql) if not rs.eof then response.write "<a target=""_top"" href=""detalhes_noticias.asp?acao=V&id="&rs("id")&"""> Visitar link</a>" while not rs.eof%> <% rs.movenext wend end if rs.close set rs=nothing %> []cs

Rafae, fiz a modificação e esta dando erro : Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /noticias.asp, line 121 <a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id") Codigo: <% Set objCon = Server.CreateObject("ADODB.Connection") objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False" sql = "SELECT * FROM Noticias" set rs=objCon.Execute(sql) if not rs.eof then <a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>"> Visitar link</a> while not rs.eof%> <% rs.movenext wend end if rs.close set rs=nothing %>

Rafael , se colocar fora da TIPO DE DADOS INCOMPATIVEIS: <% Set objCon = Server.CreateObject("ADODB.Connection") objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False" sql = "SELECT * FROM Noticias" set rs=objCon.Execute(sql) if not rs.eof then while not rs.eof%> <% rs.movenext wend end if rs.close set rs=nothing %> <a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>"> Visitar link</a> VLW

Deu sim Thelon , mas no meu caso que é um MENU - EMPRESA - CONTATO - PRODUTOS .. como que faço dae.. é a mesma coisa ???

Jhonatam funcionou mas ele ta repetindo os links tipo eu tenho 2 noticias no BD dae ele mostra 2x Visitar link tanto na primeira quanto na 2 Noticias , como eu faço pra deixar somente 1 Visitar link ... Abracos

E ae beleza Gostaria de saber como eu faço pra colocar um efeito de transição tipo escurecer entre um Scena e outra ou seja cada vez q for pra proxima Scna ele fazer esse efeito.. vlw

Está assim : <% Set objCon = Server.CreateObject("ADODB.Connection") objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False" sql = "SELECT * FROM Noticias" set rs=objCon.Execute(sql) if not rs.eof then while not rs.eof rs.movenext wend end if rs.close set rs=nothing %>

Jonathan , Colocando o link ele da erro : <a href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>">Visitar link</a> Erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis /noticias.asp, line 130

Jonatan , coloquei no loop mas ele não criou o link e sim ele mostra os ids na tela pra mim .. o que esqueci .rs.. detalhes_noticias.asp?acao=V&id=1 detalhes_noticias.asp?acao=V&id=5 Segue <% Set objCon = Server.CreateObject("ADODB.Connection") objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False" sql = "SELECT * FROM Noticias" set rs=objCon.Execute(sql) if not rs.eof then while not rs.eof %> detalhes_noticias.asp?acao=V&id=<%=rs("id")%><br> <% rs.movenext wend end if rs.close set rs=nothing %> vlw

Jonathan beleza Agora esta dando erro na linha do link : detalhes_noticias.asp?acao=V&id=<%=rs("id")%> Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis Ficou assim : <% Set objCon = Server.CreateObject("ADODB.Connection") objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False" sql = "SELECT * FROM Noticias" set rs=objCon.Execute(sql) if not rs.eof then while not rs.eof rs.movenext wend end if rs.close set rs=nothing %> vlw

Testei como Bareta e Jho postaram , mas nenhuma das 2 maneiras obtive resultado ..rss, tem mais alguma dica? []cs

E ae Mestre beleza , Olha como deixei meu código , está dando erro : Object required: '' <% Set objCon = Server.CreateObject("ADODB.Connection") objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False" sql = "SELECT * FROM Noticias" objCon.Execute(sql) if not rs.eof then while not rs.eof %> detalhes_noticias.asp?acao=V&id=<%=rs("id")%><br> <% rs.movenext wend end if rs.close set rs=nothing %> abraços

Amigos é o seguinte , não to consigo pegar o id em meu bd , ele retorna vazio .. vejam como esta meu link : detalhes_noticias.asp?acao=V&id=<%=id%> vlw

Fala Galera beleza , Vou testar sua dica Bareta, já posto o Resultado .. e Jho se puder me mande esse script pra eu ver.. beleza Abrcs

E ae Bareta beleza , Esse codigo posso colocar em qualquer parte da pagina? vlw

E ae beleza .... Vamos la , tenho um cadastro de Noticias e gostaria de saber como que faço pra dar um espaço entre um linha por exemplo na hora de Cadastrar a Noticias e eu der ENTER ele ficar com esse espaço .. é possivel isso ?? Vlw

E ae Bareta m beleza .. Mais uma vez obrigado pela dica , funcionou perfeitamente ... Abraços

Bareta , coloco dentro do mesmo Java Scritp?

E ae beleza.. Mais uma ves estou com difculdades e recorro aos amigos do forum , não estou conseguindo fazr abrir em nova janela meu link no asp , abaixo o script q to usando: <script language="javascript"> function consultarClick(vr){ pagina = 'detalhes_noticias.asp?acao=A&id='+vr; location = pagina; } </script> Abraços

E ae Bareta beleza , cara funcionou perfeitamente , brigadão pela dica ... Abraços Fábio

Ola Amigos , Estou tentando colocar uma função em um determinando campo mas não estou conseguindo , esse é a função que to tentando colocar : Left(rs("noticia"),70) Esse´é meu campo original : <%= rstSearch.Fields("Noticia").Value %> Tentei colocar mas deu erro veja como deixei : <%= Left(rstSearch.Fields("Manchete"),70).Value %> , mas ta dano erro : Objeto necessário: '[string: "Hoje em dia podemos "]' Como que consigo colocar essa função em meu campo ?? Vlw