Ir para conteúdo
Fórum Script Brasil

py2tz

Membros
  • Total de itens

    261
  • Registro em

  • Última visita

Posts postados por py2tz

  1. Quando a imagem acaba o texto continua no inicio do paragrafo, faendo com que a pagina fica bem aproveitada. É difícil de explicar mas vou tentar

    oooooooooooooooooooooo texto teria que ficar igual este, mas ele ou fica na

    oooooooooooooooooooooo coluna do lado da foto ou fica abaixo da foto. tudo

    oooooooooooooooooooooo do lado, e Usando os TD fica usando os TR fica

    oooooooooooooooooooooo abaixo da foto. Veja que a imagem esta ao lado

    oooooooooooooooooooooo e quando acaba a imagem continuao texto embaixo

    oooooooooooooooooooooo xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

    oooooooooooooooooooooo xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

    oooooooooooooooooooooo texto texto texto texto texto texto texto texto

    oooooooooooooooooooooo to texto texto texto texto texto texto texto texto

    oooooooooooooooooooooo texto texto texto texto texto texto texto texto

    oooooooooooooooooooooo to texto texto texto texto texto texto texto texto

    oooooooooooooooooooooo to texto texto texto texto texto texto texto texto

    oooooooooooooooooooooo to texto texto texto texto texto texto texto texto

    oooooooooooooooooooooo to texto texto texto texto texto texto texto texto

    to texto texto texto texto texto texto texto texto texto texto texto texto texto

    to texto texto texto texto texto texto texto texto texto texto texto texto texto

    to texto texto texto texto texto texto texto texto texto texto texto texto texto

    Se tiverem uma dica agradeço. Sistema em ASP

  2. Beleza Henderson, mas valeu, aprendi bastante aqui no forum com vocês, e sobre os bds, não tem como projetar antecipadamente, as coisa vao surgindo aos pikados, e ai vou fazendo, acaba virando um frank mesmo, dê um bico nele em www.qtcbrasil.com.br tá bunitinho, mas dá um trabalho.....

    Vamos parar por aqui se não o pessoal vai chiar.....

    73

    Fausto até + Obrigaduuuuuu

  3. Mas Visualmente são diferentes, eu uso o CutHTML para fazer as paginas e ele me deixa colorido algumas funcoes, como os links em verde, imagens em vermelho textos em azul e assim por diante e quando chega no caso do resposne.write, fica tudo cinza, muito ruim de ver, alem do que tem o problema que ele é muito sensivel aos comandos de aspas duplas e simples, sem falar que no caso deseste ultimo sistema, tenho 20 paginas num sistema e 2 em outro, fazem a mesma coisa mas são feitas de forma diferente, então é aquele saco, ficar mudando de um jeito num lugar e de outro noutra pagina, entende.

    Queria ter uma ideia tipo padrão de como iniciar uma rotina comum ao ASP, tipo

    Onde vai o endereco do MDB

    Abertura do Banco

    Manipulacao dos dados

    Ai eu comecaria padronizar todas as paginas num so padrão, porem cada script que vejo esta de um jeito, ai meu amigo, é triste, é onde a criança chora e a mãe não vê. alem de te dizer uma coisa, o CutHTML é coisa de louko pois tem que fazer virgula por virgula, e alem do mais eu não uso esse tal de PWS IIS ou sei la qual o nome. Eu salvo o arquivo, ftpeio pro servidor e testo, num deu certo, altero e mando dinovo e assim por diante.

    já viu a dureza né, pois é, somando as paginas que fiz assim somam mais de 8 mil delas, todas frankstein, sem pe nem cabeça mas estao rodando., tem um site meu que tem mais de 120 bancos de dados tudo MDB, não me chame de louko

  4. Deu certo, tá ficando redondo.....

    Mas a tranfusão do response.write para o tagasp não tá dando, tem coisa diferente antes das tabelas que aparecem para o usuario.

    <%

    id = request("id")

    Iota = request("Iota")

    EleEla = request("EleEla")

    Nome = request("Nome")

    Local01 = request("Local01")

    Local02 = request("Local02")

    Cidade = request("Cidade")

    Nascimento = request("Nascimento")

    Por_add = request("Por_add")

    cliques = request("cliques")

    sqlstmt = "SELECT * FROM prlist WHERE Nome Like '%"& Nome &"%' and id like '%"& id &"%' and Cidade like '%"& Cidade &"%' and Nascimento like '%"& Nascimento &"%' and Local01 like '%"& Local01 &"%' and Local02 like '%"& Local02 &"%' order by Nome ASC"

    Set rs = Server.CreateObject("ADODB.Recordset")

    rs.Open sqlstmt, conexao, 3, 3

    while not rs.eof%>

    <%

    response.write "<link href=gaspar.css rel=stylesheet type=text/css>"

    %>

    <%

    rs.movenext

    wend

    end if

    %>

    E o que queria era esse:

    <%

    x = 0

    for x = 1 to rs.pagesize

    if rs.eof then

    exit for

    else

    iContador=iContador + 1

    Id = rs("Id")

    Iota = rs("Iota")

    EleEla = rs("EleEla")

    Nome = rs("Nome")

    Prefixo = rs("Cidade")

    EndDate = rs("Nascimento")

    cliques = rs("cliques")

    Por_add = rs("Por_add")

    %>

    <tr valign=center align=left>

    <td align="center" valign="top" width="4%"><font class="txt8b">&nbsp;<img src="image/chave.gif"><br><font color="#cb0c0c"><%=Id%></td>

    <% rs.MoveNext

    if iContador = 1 then

    iContador =0

    %>

    Quando altero para o segundo tipo, muda tudo, aparece uns e outros não, a tela aumenta a largura e o comprimento, os registros vão para o final da pagina etc.....

    Consegui melhorar um pouco, mas por exemplo o codigo abaixo mostra uma figura e no outro e na response.write que estou alterando ela não aparece o script é igual

    <img src="image/<%=EleEla%>">

  5. Eu li lá no outro Henderson, obrigado, entendi.

    Agora tem a terceira forma que já vi em alguns scripts que tambem enche o saco de ver, é justamente o que o urso teclou ai, então posso usar esse tambe, mas vou fazer o contrario vou tranformar todos no de tags abrindo e fechando dá pra entender melhor no meu caso. Vamos ver:

    Pra transformar isso ai abaixo seria:

    <% With Response.write(Rs("WW"))End With %>

    ou

    <%Response.write RS("WW")%>

    ou

    <%=RS("WW")%>

    ou

    <%Response.write = "& rs("WW") &" %>

    ou

    <%=WW%>

    Ou seja todos são iguais de formas diferentes, certo? É isso?

  6. Saquei Henderson,

    Pode-se dizer que são iguais então, a diferença é que eu não havia percebido que a TAG ASP esta antes do response, e depois dele, e no outro caso, são as aberturas e fechamentos entre os textos, peguei, simples. vou alterar os meus e tentar padronizar, pois estava ficando doido de tantas aspas duplas e simples, tira e poe e não funcionava, agora tenho uma rotina mais visivel.

    Tks irmão, beleza, vamos em frente.

    Alias aquele ultimo sistema do IF e LOGIN, consegui fazer que quando eu entro com o login de admin ele me mostra todos os dados para que o admin possa alterar qualquer um. ficou joinha. Só não consegui fazer aparecer ou melhor aparece o icone de edit.gif cruzado de vermelho dizendo que não pode alterar o registro, ela aparece, mas quando eu posso alterar, aparece os dois icones, o de proibido e o de permitido, coloquei assim, mas acho que falta algo.

    <%If rs("Por_add") = Session("login") Then %><A href="predit.asp?id=<%=Id%>"><img src=image/edit.gif border=0 alt=Editar este Registro></a><%End If%><img src=image/noedit.gif border=0 alt=Voce Não pode editar este registro><%If Session("login") = ("Admin") Then %><A href="predit.asp?id=<%=Id%>"><img src=image/edit.gif border=0 alt=Editar este Registro></a><%End If%>
  7. Existem dois tipos de sistema, não entendi porque dos dois mas gostaria de saber como usar o exemplo da segunda forma.

    1º exemplo - Péssimo de se trabalhar

    Response.write ""& rs("WW") &""

    2º exemplo - Ótimo se trabalhar

    <%Response.write RS("WW")%>

    Onde esta igual ao 1º ex posso usar o 2º ex?????

  8. Bom dia,

    Porque todas as vezes que existe esse tal de response.write dá zebra, pergunto há como deixar de usar isso, pois tenho outra pagina que faz a mesma coisa sem isso, veja como é diferente e bem mais fácil.

    Sem o response

    <td align="center" valign="top" width="15%"><font class="txt7">&nbsp;Nasceu em:<br><%Response.write RS("Cidade")%></td>

    e com o response

    response.write "<td width=15% valign=top align=center valign=top><font class=txt7>&nbsp;Nasceu em:<br>"& rs("Cidade") &"</font></td>"

    Pergunto porque usar o response na segunda opcao, se a primeira é muito mais fácil, como adaptar do 2º jeito para o primeiro?

    Alias, não funciona com o IF, tentei sua dica, mas não deu certo

    ---

    Como tranformar isso:

    Esse funciona

    <td align="center" valign="middle" width="4%"><%If rs("Por_add") = Session("login") Then %><A href="predit.asp?id=<%=Id%>"><img src=image/edit.gif border=0 alt=Editar este Registro></a><%End If%></td>

    Nisso:

    Esse não funciona Dá erro de sintax (Syntax error )

    response.write "<td width=4% align=center valign=middle>'"& If rs("Por_add") = Session("login") Then &"'<A href='predit.asp?id='"& =Id &"''><img src='image/edit.gif' border='0' alt='Editar este Registro'></a>'"& End If &"'</td>"

    Tentei dinovo sua dica e apareceo erro:

    Expected statement

    /tree/bigtree/busca2_super.asp, line 42

    <% If rs("Por_add") = Session("login") Then

    ^

    ----

    Conseguimos,

    Ficou assim

    %>

    <% If rs("Por_add") = Session("login") Then %>

    <%

    response.write "<A href=predit.asp?id="& rs("id") &"><img src=image/edit.gif border=0 alt=Editar este Registro></a>"

    %>

    <%End If%>

    <%

    Abri e fechei as tags antes e depois dos rsponse.write e tambem tive que passar o <% rs("id") %> para "& rs("id") &"

    Conclusão:

    Onde se usa <%%> com " (aspas duplas) quando for response.write deve se usar "& &" e ' (aspas simples)

    Só que eu acho a segundo opção uma droga

    Beleza, Henderson obrigadão

  9. não dá pra usar somente a segunda parte, porque a primeira já esta tudo feita igual mas de forma diferente, porque existe o link de alterar ao lado de cada registro que já controla a ID do registro.

    Alias, o BD tem uma ID, para cada registro.

    O problema esta em:

    "&Request.QueryString("id")&" AND Por_add = '"&Session("login")&"'"

    Mas vou alterar agora com segunda parte, do jeito que tu fez, espera ai, não vá embora.....

    So com a segunda parte não funcionou, ele deixou alterar, vou tentar acrescentar a primeira parte na pagina da listagem.

    Consegui fazer sumir o botao de alterar da listagem, não acredito, sumiu todos os botoes de EDIT, nem os que eu registrei aparecem.

    Esta assim na pagina 1

    <td align="center" valign="middle" width="4%"><%If rs("Por_add") = Session("login") Then %><A href="predit.asp?id=<%=Id%>"><img src=image/edit.gif border=0 alt=Editar este Registro></a><%End If%></td>

    Igualzinho ao que você fez, so não coloqueo o select, porque já tem na pagina.

    Sera que o Por_add, tem que estar nessa lista?

    <%

    x = 0

    for x = 1 to rs.pagesize

    if rs.eof then

    exit for

    else

    iContador=iContador + 1

    Id = rs("Id")

    Iota = rs("Iota")

    EleEla = rs("EleEla")

    Nome = rs("Nome")

    Prefixo = rs("Cidade")

    EndDate = rs("Nascimento")

    cliques = rs("cliques")

    %>

    -----

    FUNCIONOU

    F U N C I O N O U

    cARA FUNCIONOU, NEM ACREDITO

    Achei que tinha sumido todos os edit, mas não, somente sumiram os que eu não posso alterar, putz que 10, entendi, em vez de checar na saida, checamos na entrada, vou testar melhor, mas fiquei super contente, obrigadao mesmo, não sei como agradecer, mas valeu.

    Fausto

    Quer ver como ficou?

    ---

    So mais uma coisinha,

    Na pagina principal ficou redondo, funciona, agora preciso adaptar a mesma coisa na pagina de busca, que faz a mesma coisa mas de formas diferentes.

    ela esta assim:

    response.write "<td width=4% valign=middle align=center><A href='predit.asp?id="& rs("id") &"'><img src=image/edit.gif border=0 alt=Editar este Registro></a></td>"

    Precisava adaptar para o que me passou:

    <td align="center" valign="middle" width="4%"><%If rs("Por_add") = Session("login") Then %><A href="predit.asp?id=<%=Id%>"><img src=image/edit.gif border=0 alt=Editar este Registro></a><%End If%></td>

    Sei que tenho que tirar as aspas duplas, já fiz e ficou assim, mas dá zebra.

    <td align=center valign=middle width=4%><%If rs("Por_add") = Session("login") Then %><A href=predit.asp?id=<%=Id%>><img src=image/edit.gif border=0 alt=Editar este Registro></a><%End If%></td>

    Mas apresenta o erro de pagina não encontrada.

    esta assim:

    <%

    id = request("id")

    Iota = request("Iota")

    EleEla = request("EleEla")

    Nome = request("Nome")

    Local01 = request("Local01")

    Local02 = request("Local02")

    Cidade = request("Cidade")

    Nascimento = request("Nascimento")

    Por_add = request("Por_add")

    cliques = request("cliques")

    sqlstmt = "SELECT * FROM prlist WHERE Nome Like '%"& Nome &"%' and id like '%"& id &"%' and Cidade like '%"& Cidade &"%' and Nascimento like '%"& Nascimento &"%' and Local01 like '%"& Local01 &"%' and Local02 like '%"& Local02 &"%' order by Nome ASC"

    Set rs = Server.CreateObject("ADODB.Recordset")

    rs.Open sqlstmt, conexao, 3, 3

    while not rs.eof

    response.write "<link href=gaspar.css rel=stylesheet type=text/css>"

    response.write "<script language=javascript src=gaspar.js></script>"

    response.write "<div align=center>"

    response.write "<table width=98% bordercolor=#a4cdee border=1 cellpadding=2 cellspacing=2>"

    response.write "<tr valign=center align=left>"

    response.write "<td width=10% valign=top align=center><font class=txt8b>&nbsp;<img src=image/chave.gif><br><font color=#cb0c0c>"& rs("id") &"</font></td>"

    response.write "<td valign=top align=left><font class=txt8><img src=image/"& rs("EleEla") &">&nbsp;<A href='prview.asp?id="& rs("id") &"')>&nbsp;<b>"& rs("Nome") &"</b></a></font>&nbsp;&nbsp;<font class=txt7>Filho(a) de<br>&nbsp; "& rs("Local01") &"&nbsp;e&nbsp; "& rs("Local02") &"</font></td>"

    response.write "<td width=15% valign=top align=center valign=top><font class=txt7>&nbsp;Nasceu em:<br>"& rs("Cidade") &"</font></td>"

    response.write "<td width=15% valign=top align=center valign=top><font class=txt7>&nbsp;Data<br>"& rs("Nascimento") &"</font></td>"

    response.write "<td width=4% valign=middle align=center><img src=../image/"& rs("Iota") &"></font></td>"

    response.write "<td width=4% align=center valign=middle><%If rs("Por_add") = Session("login") Then %><A href=predit.asp?id=<%=Id%>><img src=image/edit.gif border=0 alt=Editar este Registro></a><%End If%></td>"

    response.write "<td width=4% valign=middle align=center><A href=java script:gigante('prarvore_new.asp?id="& rs("id") &"')><img src=../image/tree2.gif border=0 alt=Ver composição da Árvore></a></td>"

    response.write "<td width=4% valign=middle align=center ><font class=txt7>"& rs("cliques") &"</td>"

    response.write "</tr>"

    response.write "</table>"

    rs.movenext

    wend

    end if

    %>

  10. Eu nem sei porque estou usando, como disse atraz vou copiando e colando, e assim foi saindo a coisa, não sei a lógica de como funciona, somente vou testando e alterando até dar certo, mas esse aqui tá bravo, não consigo, fazer.

    O que você faria?

    Tenho um BD chamado arvore.mdb

    Tenho duas tabelas chamadas Admin e Prlist

    Na Admin tem a coluna login

    Na Prlist tem a coluna Por_add

    Preciso checar se login = Por_add

    Tenho que sincronizar o login com o Por_add correto, como disse ele deve estar pegasndo o primeiro que aparece no banco.

  11. Mas ai é que esta, eu fui la nobanco, verifiquei os dados, tanto no Admin (campo login esta Fausto) e no Prlist (campo por_add esta Fausto tambem), ai ele deixa alterar, certissimo. Ai entro num registro que no Prlist (campo por_add esta Eliana) ele deixa tambem, e não deveria pois esou alterando um registro que a Eliana fez com omeu login Fausto.

    Se deveria funcionar somente com o IF onde pode ser o erro?

    <% AbreConexao

    sql3 ="SELECT * FROM prlist "

    Set rs3 = Conexao.Execute(Sql3)%>

    <%if Session("login") = rs3("Por_add") Then%>

    formulario com dados para serem alterados

    <% Else %>

    msg de não pode alterar

    <%End If%>

    Eu já não entendo disso, imagina minha cabeça como está.....

  12. Esse valor que você diz, acredito eu que é o nome que esta no campo da tabela Admin na coluna login, é o mesmo nome quando você se conecta, no sistema com login e senha. ou seja o comeco de tudo é uma lista parcial de nomes, se quizer acessar mais infos, o usuario se cadastra no sistema num form que cria um login e senha.

    Toda vez que for acessar o sistema ele deve digitar tais dados.

    Quando logado emite nas paginasuma msg - BEM VINDO FULANO, ou seja ele já indetintificou o cara.

    Apenas precisava conferir se o FULANO é = ao que esta na tabela PRLIST na coluna Por_add campo este que registra quando alguém cria um novo registro, fica armazenado o login do mesmo quando o fez.

    Se o LOGIN for igual a Por_add então ele pode alterar os dados, caso contrario não consegue.

    Ai onde eu achei que se colocar um <%if Session("login") = rs3("Por_add") Then%> funcionaria,

    Sendo que Session("login") é o nome do login dele e ("Por_add") é a informacao no BD de quem fez o registro, mas o IF não funciona, ele permite qualquer um alterar.

    Quer ver na pagina o estou tentando lhe dizer?

  13. Desisto do outro, vamos nesse seu agora, alterei mas dá pau, pagina não abre, são dois dados em duas colunas diferentes, sabe disso?

    <% AbreConexao

    Sql = SELECT * FROM prlist WHERE pPor_add = '"&Session("login")&"'"

    Set rs = Server.CreateObject("ADODB.Recordset")

    rs.Open Sql, ConStr, 3, 3

    %>

    <%If rs.EOF Then%>

    <table width="95%" border="0" cellpadding="2" cellspacing="2">

    <tr valign="top">

    <td><p align="justify"><font class="txt10">Olá <b><%=Session("login")%></b> Verifiquei nosso BD (Banco de Dados) e constatei que não foi você que efetuou o <b>1º Registro</b> dessa pessoa que esta tentando alterar. Mas caso seja você esteja interessado em administrar os dados deste registro e tenha alguma informação a respeito deste registro. <b>Por favor, ente em contato no link abaixo</b>, para que possamos liberar este registro a você. <b><A href=java script:pequena("http://www.feratelin.com.br/tree/contato.asp")>Click AQUI para solicitar alteração</a></b></font></td>

    </tr>

    </table>

    <%Else%>

    To me enroscando aqui

    Sql = SELECT * FROM tabela WHERE ID_Registro = '"&ID_que_sera_alterado&"' AND login_de_cadastro = '"&Session("login_usuario")&"'"

    Qual das tabelas? , são duas

    Uma chama prlist, é onde esta registrado o login de quem fez o registro e na tabela Admin esta o login do sistema de acesso ao sistema.

    Dentro da tabela prlist tem a coluna chamada Por_add (quem adicionou o registro

    Dentro da tabela Admin tem a coluna login com o nome de acesso ao sistema

    Sql = SELECT * FROM prlist WHERE pPor_add = '"&Session("login")&"'"
  14. Henderson, entendi, mas acontece que um usuario, pode ter varios registros que fez e podera altera-los quando quizer. Ou seja eu cadastrei 5 registros, e no banco existe mais uns 50, quero evitar que eu possa alterar um registro que não fiz, somente um ou mais dos 5 que eu fiz.

    É como se fosse no mercado livre, voce faz um registro de um produto e somente você pode editar, porem existe varios que você fez e podera alterar todos eles caso queira, porem não podera alterar um outro de outra pessoa.

    No BD tem duas tabelas, uma que faz o cadastro com login e senha e outra tabela que registra numa coluna quem fez o devido registro. teria que comparar, o login de acesso com o de quem fez o registro.

    Meu grande problema é que o script é um grande frankstein, são pedaços de vários scripts diversos, funciona, mas esta tod misturado, ora usa response, ora usa RS, ora usa vários tipos de formas que funcionam mas para cada caso tem que ser de um jeito e o pior é que eu não entendo nada disso, somente consigo fazer funcionar, não me pergunte como.

  15. Entendi, mas o prblema é que é uma lista de pesquisa e estudos, onde o usuario fica navegando nos registros e caso encontre algo que lhe interessa, ele pode tando ver o registro, quando alterar. essa opcao fica num linkizinho ao lado de cada registro. porem queria dar uma alterada, inserindo esta validacao, caso não tenha sido ele que fez o registro ele não podera alterar entende?

    A coisa esta assim:

    <% AbreConexao

    Sql = "SELECT * FROM prlist"

    Set rs = Server.CreateObject("ADODB.Recordset")

    rs.Open Sql, ConStr, 3, 3

    pPor_add = RS("Por_add")

    Sql1 = "SELECT * FROM Admin"

    Set rs1 = Server.CreateObject("ADODB.Recordset")

    rs1.Open Sql1, ConStr, 3, 3

    plogin = RS1("login")

    %>

    <%if rs("pPor_add") = rs1("plogin") Then%>

    <% Else %>

    <table width="95%" border="0" cellpadding="2" cellspacing="2">

    <tr valign="top">

    <td><p align="justify"><font class="txt10">Olá <b><%=Session("login")%></b> Verifiquei nosso BD (Banco de Dados) e constatei que não foi você que efetuou o <b>1º Registro</b> dessa pessoa que esta tentando alterar. Mas caso seja você o maior interessado em administrar os dados deste registro e tenha alguma informação a respeito deste registro. <b>Por favor, ente em contato no link abaixo</b>, para que possamos liberar este registro a você. <b><A href=java script:pequena("contato.asp")>Click AQUI para solicitar alteração</a></b></font></td>

    </tr>

    </table>

    <% FechaConexao %>

    <% End If %>

    Está faltando alguma coisinha que eu não sei...... e o engraçado que ele não checa os dois dados, pois na tela aparece quem foi que efetuou o 1º registro (fica gravado no BD) e tambem o nome do login (que esta no BD) de quem esta acessando , ou seja pelo xcript, se ele fizesse a comparacao dos dois dados, teria visto que não são os mesmos e pularia para o <% Else %>.

  16. Exato, isso mesmo, já tenho o login dele registrado no sistema exatamente como você disse, tenho o login de quem adicionou, e o login de quem altera o registro, porem me falta a validacao tipo login de alteracao = login de edicao, permite, caso contrário, emite uma msg, lamento você não pode editar esse registro.

    Esse script, creio que tem que ficar na pagina de edicao do registro, onde é feita a comparacao, e se ele não for ele, nem abre a pagina de edicao. So me falta mesmo o script.

    Obrigado pela força.

    --

    No sistema tenho algo assim:

    <% If Session("nivel") <> "1" Then %>

    Aqui carrego a pagina pois é igual e se for diferente vai pro else

    <% Else %>

    Minha duvida é como alterar isso colocando o verificador pelo login, ou seja ele verifica se o login que acessou = ao login que efetuou o registro pela primeira vez.

    <% If Session("login") = "login" Then %>

    Aqui carrego a pagina pois é igual e se for diferente vai pro else

    <% Else %>

    Progresso

    Consegui algo assim:

    <% sql ="SELECT * FROM Admin "

    RS3.open sql, my_Conn, 1, 3

    plogin = RS3("login")

    %>

    <%if rs("Por_add") = rs3("login") Then%>

    O problema agora é que hora checa e barra, e se altero ele libera tudo.

    O problema esta sendo conjuminar duas tabelas, sendo que o Por_add, esta na tabela Prlist e o login esta na talela Admin. Estou apanhando na hora do IF, pegar um dado na tabela Prlist e comparar com outro dado na tabela Admin. alguém ajuda?

    Alterei dinovo e esta assim agora:

    <% AbreConexao

    Sql = "SELECT * FROM prlist"

    Set rs = Server.CreateObject("ADODB.Recordset")

    rs.Open Sql, ConStr, 3, 3

    pPor_add = RS("Por_add")

    Sql1 = "SELECT * FROM Admin"

    Set rs1 = Server.CreateObject("ADODB.Recordset")

    rs1.Open Sql1, ConStr, 3, 3

    plogin = RS1("login")

    %>

    <%if rs("pPor_add") = rs1("plogin") Then%>

    O problema é que ele esta colocando o meu login em todos os registros, como se eu tivesse cadastrado pela primeira vez o registro, fazendo com que o sistema compare e libere para que eu altere, esquizito com Z demais.

  17. Num BD de 10 registros quando se clica no alterar qualquer um que fez login no sistema altera o registro. Gostaria de verificar tipo, somente permitir que um usuario devidamente logado possa alterar somente o registro em que ele fez, dessa forma, impedindo que qualquer outro usuario pudesse altera-lo.

    Tipo assim: fiz um registro de:

    Tipo Cor Marca Valor

    carro amarelo ford 10.000

    Somente eu (quem fez o registro) possa altera-lo

    Hoje esta qualquer um que logar, altera os dados de qualquer um. Preciso fazer uma ligação entre quem efetuou o registro para permitir que somente ele possa alterar.

    alguém tem uma ideia?

  18. Beleza, Roney, ficou assim:

    <%

    SET Con = Server.CreateObject("ADODB.Connection")

    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("arvore.mdb")

    id = request.querystring("id")

    'IF NOT Session("on") = TRUE THEN

    Con.Execute("UPDATE prlist SET cliques = cliques +1 WHERE id = "&id&"")

    'Session("on") = TRUE

    'Session.TimeOut = 10

    'END IF

    %>

    Esta contando legal agora, individualmente para cada registro.

    Obrigado a todos que me ajudaram......

    Fausto

  19. Olá, pelo pouco que entendo, acho que no seu caso é porque tem o primeiro true assim sendo ele não checa os demais.

    Procure deichar somente um true no final, pois do contrario ele checa o primeiro e se estiver preenchido ele registra.

    Eu estava com um problema parecido, e deixei apenas um true, ai ele vai campo a campo checando e somente no final registra tudo.

    Fausto

×
×
  • Criar Novo...