Henderson

primeiro... ignore a tabela admin porque se o valor do login tá armazenado na variavel de session, você só precisa dessa tabela na hora do login você precisa de duas páginas pra fazer o site, uma que mostra TODOS os registros e outra que altera abaixo a que mostra todos os registros Você só precisa acertar... nomes dos campos... o que deseja mostrar e tudo mais porque eu não sei como está seu banco né e como disse, você tem que criar um campo ID do tipo autonumeracao, para poder identificar o registro na tabela <% AbreConexao sql ="SELECT * FROM prlist " Set rs = Conexao.Execute(sql) While not rs.EOF Response.write rs("titulo_do_registro") Response.write "<br>" If rs("Por_add") = Session("login") Then %> <a href="altera.asp?id=<%=rs("id")%>">Alterar</a> End If <% rs.movenext Wend %> agora a altera.asp <% AbreConexao sql ="SELECT * FROM prlist WHERE id = "&Request.QueryString("id")&" AND Por_add = '"&Session("login")&"'" Set rs = Conexao.Execute(sql) If rs.EOF then %> Você não tem acesso a esse registro <% Else %> Mostra o form de alteração <% End If %> vê se você entende

Porque cara, preste atenção, você está mostrando TODOS os registros que tem no BANCO DE DADOS. Se você fizer assim... no Prlist, campo por_add... não tiver nenhum com o nome FAUSTO e você logar como FAUSTO, faz o teste, vai aparecer a mensagem que não pode alterar porque você está usando essa SQL: sql3 ="SELECT * FROM prlist " essa sql seleciona TODOOOOS os registros que estão cadastrados na tabela mas a pessoa não vai alterar todos, vai alterar só um certo? então é isso que você tem que fazer, usar algum identificador... criar um campo ID no banco de dados e passar ele porque querystring pra poder buscar o registro correto a ser alterado... por exemplo sql = "SELECT * FROM prlist WHERE id = "&Request.QueryString("id") se não ele vai pegar a tabela toda e aí sempre vai ter algum registro inserido por aquele usuário que deixara seu if válido...

mas deveria funcionar se não funciona, é erro de lógica ou dos dados armazenados nas variáveis porque só com isso deveria funcionar!

cara qual é o valor armazenado na variavel de session?? tem que ver se tá armazenando direito, durante o login... o login da pessoa nessa variavel

MBLmarcio de boa eu não entendi UMA PALAVRA do que tu disse haIUHaiuhaUIAHiuaHIUAhiuaHI eu fiz uma pergunta, por curiosidade só eu queria saber se tem alguma vantagem em se fazer isso mas pelo jeito não tem ou pelo menos ngm sabe qual é!

Mas desse jeito que eu te falei ele vai conseguir editar todos os registros inseridor por ele porque na sql, vao aparecer todos os registros onde o login e de cadastro é aqele que esta logado!

dark0 é possível se você já fuçou no iss, tem uma parte que tem as extensões e o driver que executa as paginas com aquelas extensoes se você colocar no lugar da extensao do HTML, o driver que esta na extensao ASP, qe é o mesmo da ASA, verá que se você fizer uma pagina asp inteira e salva-la como .html, ele rodara como ASP. e no meu atual servidor, eu posso fazer isso... nunca tinha visto isso em nenhum servidor que hospedei mas, qual a vantam disso? E MBLMarcio, não sei se você me entendeu bem Pois não são apenas alguns recursos que ele executa em asp, ele executa TUDO. Ele interpreta uma página salva com a extensão .html, como se fosse uma .ASP. Sem limitação de nada, é como se fosse uma página asp, só que a extensao é html. repito, veja o exemplo do www.fotolog.com Todas as páginas são salvas como .html, porém, html não é a unica linguagem utilizada lá

Eu não entendi muito bem... Você tá buscando na tabela inteira... Não tá buscando por um registro em específico Como queé saber se quem inseriu é quem está tentando alterar? Você teria que usar no mínimo um WHERE ali, pra buscar pelo registro certo Tenta ver isso aqui, pra ver se entende... Isso abaixo, vai na página que mostra todos os registros If RecordSet("login_de_cadastro") = Session("login_usuario") Then 'MOSTRA O LINK PARA A PÁGINA DE ALTERAÇÃO End If E na página de alteração, você faz assim, para verificar de novo: Sql = SELECT * FROM tabela WHERE ID_Registro = '"&ID_que_sera_alterado&"' AND login_de_cadastro = '"&Session("login_usuario")&"'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open Sql, ConStr, 3, 3 If rs.EOF Then 'Este artigo não foi criado por você Else 'MOSTRA A PARTE DE ALTERAÇÃO DO ARTIGO End If

Cara, vocÊ pode mostrar somente os registros que foram inseridos por aquele usuário, assim.. "SELECT * FROM tabela WHERE login_que_add = '"&logindousuario&"'" desse jeito ele só vai mostra os registros que o usuário pode alterar

pois é, acho que não tem solução... o próprio host mandou eu procurar uma hospedagem windows porque eles não sabem o que acontece, que deve ser porque é executado em linux acho que esse script não vai rodar mesmo =\ Alguém me indica um sistema rotativo de banners... que seja bom como esse BannerSys, com administração de zonas e tudo mais???

Olha a data do post é muito antigo

Não entendi :s Mas firmeza, acho que não serve pra nada mesmo auhaiuhiauhaui A não ser que ninguém vai saber qual a linguagem de programação que o site usa né! haha

Assim Tem umas coisas lá que eu altero E dá pra por exemplo eu faço um arquivo assim <html> <body> <% Response.write "Olá" %> </body> </html> E salvo como OLA.HTML Quando eu acessar o arquivo, vai aparecer na tela do navegador Response.write "Olá" Porque ele tá salvo como html certo? Mas no meu servidor, eu posso fazer com que mesmo com a extensao .HTML ele execute o código ASP. Mas queria saber se tem alguma vantagem nisso... Um exemplo disso é o site do fotolog.com Veja que todas as páginas são html, mas não é provável que aquelas páginas sejam programadas todas em html...

aí... No meu servidor, eu posso mandar executar os arquivos Html como ASP. Mas me diz... Tem alguma vantagem em se fazer isso? É util?

If Request.Form("Sim") = "" then ' Foi Form ou não ? Set BuscaDB = Dados.execute ("SELECT * FROM Banners WHERE ID="+Request.QueryString("ID")) if SID = "1" then %> <span class="font1">O Banner de ID n° 1 não pode ser deletado porque ele é considerado o banner padrão, ele será mostrado<br> quando não houver banners para mostrar. você pode editá-lo mas não delete este.</span> <% else %> <form action="Administracao.asp?Area=BannerDel&ID=<%=SID%>" method="post" name="BannerDelete"> <span class="font2">Tem certeza que deseja deletar <strong><%=transstr(BuscaDB("Nome"),"%27","'")%></strong> ? <br> <br> <input name="Sim" type="submit" id="Sim" value="Sim"> </span> </form> <%end if%> <br> <br> <a href="java script:history.go('-1')">Voltar</a> <% else SID = Request.QueryString("ID") Dados.execute ("DELETE * FROM Banners WHERE ID="+Cstr(Sid)) Dados.execute ("DELETE * FROM Banners2Zonas WHERE BannerID="+Cstr(Sid)) Dados.execute ("DELETE * FROM Banners2Contas WHERE BannerID="+Cstr(Sid)) Dados2.execute ("DELETE * FROM Anos WHERE BannerID="+Cstr(Sid)) Dados2.execute ("DELETE * FROM Meses WHERE BannerID="+Cstr(Sid)) Dados2.execute ("DELETE * FROM Dias WHERE BannerID="+Cstr(Sid)) Dados2.execute ("DELETE * FROM Horas WHERE BannerID="+Cstr(Sid)) Dados2.execute ("DELETE * FROM Cliques WHERE BannerID="+Cstr(Sid))%> <span class="font2">Banner deletado com sucesso !!!</span> <br> <br> <a href="Administracao.asp">Voltar ao menu principal</a> | <a href="Administracao.asp?Area=Banners">Voltar para administra&ccedil;&atilde;o de Banners</a> <% end if ' Foi Form ou não ? '<--- Linha 1639

Aee... Seguinte, baxei esse sistema de banner rotativo, já que não consigo dá jeito no meu, uahiuahuia BannerSys Só que, no meu pc funciona tudo normal e tal Só que quando mando pro servidor, olha o que dá: http://www.seusucesso.info/rotativo/Adm/Administracao.asp Que isso? Eu não sei, dá uns erros estranhos nesse servidor, deve ser porque ele é Linux rodando asp =\ Mas eu não sei o que fazer Não tem como eu postar o código aqui porque ele tem quase 2000 linhas, uhaiuahuia

ninguém? =(

mas pra isso eu preciso fazer aquele select randomico do seu tópico né se não ele vai pegar sempre os mesmos 4 mas como fazer aquilo mysql?

Olha, eu tenho esse post aqui ó É como um mural de recados, mas é bem básico Dá pra entender bem o código Se você quizer adicionar campos, só vendo o código você consegue. http://scriptbrasil.com.br/forum/index.php?showtopic=85308

Quer saber o real motivo da cor ser laranja? Não sei te informar, uahiuahui Mas é mais ou menos por isso ó Eu não sou muito bom em design, sou bem ruinzinho pra dizer a verdade. Só consigo fazer bem a parte de programação. O site ficou laranja porque eu não conseguia fazer um conjunto de cores pra ficar legal. Não quiz colocar esses símbolos que fazem alusão a dinheiro, porque você já deve ter entrado em sites que te prometem dinheiro fácil, uma renda exorbitante em pouco tempo e tal. Não sei quanto a você, mas quando entro em um site e vejo isso, nem perco meu tempo lendo todo o conteúdo. Mas no caso desse sistema do qual faço parte, não é assim, então não queria passar essa imagem negativa pra quem acessar o site!

Ó, eu não sei muito bem porque nunca usei esse componente Mas pelo que vi, você verifica o tamanho da imagem nessa linha: if largura <> 67 And altura <> 67 then Só que do jeito que está ele verifica se a altura é DIFERENTE de 67 e se a altura é DIFERENTE de 67 E você quer que verifique se é maior né? Então tem que ser assim: if largura > 67 And altura > 67 then Eu não sei se só isso resolve o seu problema, porque mesmo estando com o código desse jeito, ele não deveria nem estar fazendo o upload da imagem. Mas teste aí, vê no que dá.

Aeee... Meu último site, me digam o que acham: www.seusucesso.info O que vocês vão conseguir ver é a área aberta à todos os usuários. Há uma parte, www.seusucesso.info/membros restrita. Nessa parte há o menu do lado esquerdo e do lado direito os banners. Por isso eu fiz o topo como menu, e aí na página principal ficaram com duas barras de banner. Só preciso resolver o problema de abrir sempre o mesmo banner no rotativo, to esperando a ajuda do pessoal daqui no asp, hehe. Mas me digam o que acharam no geral aí Abraço.

É... acho que ninguém tem a resposta pra nenhuma das minhas duas dúvidas né? =\

<% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "SELECT * FROM equipe WHERE codigo = "&Request.QueryString("codigo")&"" rs.open sql 'Pega a imagem 'O caminho deve ser relativo à página que executa este código imagem = rs("campodaimagem") 'Deleta a imagem Set fso = CreateObject("Scripting.FileSystemObject") Set aFile = fso.GetFile("../images/"&imagem) aFile.Delete 'Deleta o registro SQL = "DELETE * FROM equipe WHERE codigo = "&Request.QueryString("codigo")&"" rs.open sql set rs = nothing set conn=nothing Response.Redirect("equipe.asp?deletado=sucesso") %>

Tenta mudar na hora de inserir no banco então. Na página que insere a notícia no banco, você poe assim var = Replace(Request.Form("campo"), chr(13), "<br>") E a linha do seu código acima pode voltar pro jeito normal. Não tenho certeza absoluta de qe é assim, mas é uma tentativa.