Como Validar Usuario X Registro?

[py2tz]

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?

[Roney]

Cara, o que você pode fazer, é criar um campo no BD onde você grava o login da pessoa que incluiu o registro.

Na hora de exibir, você verifica se o login registrado confere com o login que está gravado na session.

Se forem iguais, você habilita a edição. Se forem diferentes, apenas exibe.

Abs,

[py2tz]

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.

[Henderson]

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

[py2tz]

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 %>.

[Henderson]

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

[py2tz]

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.

[Henderson]

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!

[py2tz]

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")&"'"

[py2tz]

Não vai nem a pau, já coloquei, tirei, mas não vai,

[Henderson]

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

[py2tz]

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?

[Henderson]

mas deveria funcionar

se não funciona, é erro de lógica

ou dos dados armazenados nas variáveis

porque só com isso deveria funcionar!

[py2tz]

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á.....

[Henderson]

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...

[py2tz]

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.

[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

[py2tz]

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

%>

[Henderson]

<%
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 %>
Response.write "<A href='predit.asp?id=<%=Id%>'><img src='image/edit.gif' border='0' alt='Editar este Registro'></a>"
<%End If%>
Response.write "</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
%>

Tenta assim...

Você tava colocando o If dentro do Response.write, por isso o erro!

[py2tz]

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

[Henderson]

Cara, isso é só uma questão de gosto

Só que é o seguinte

Response.write é o comando para imprimir algo na tela...

Então você está com a tag asp aberta e usa o Response.write para mostrar algo que o asp deverá imprimir na tela para o usuário

então, quando você vai usar um if ou qualquer outra coisa, você deve mudar de linha, já qe o if não é algo qe vai ser imprimido na tela, sacou?

e sim, você já está com o asp aberto quando tá usando o response.write (<%) portanto, você deve concaterna ao response.write a variavel que você tambem deseja imprimir, ficando

<%
response.write "texto"&variavel&"texto"
%>

ou você pode fazer

%>
texto
<% Response.write variavel %>
texto

o resultado obtido será o mesmo... e uma dica, para imprimir uma variavel, ao invés de usar

<%Response.write variavel%>

pode usar simplesmente

<%=variavel%>

[py2tz]

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%>

[Henderson]

<%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>
<%Else%>
<img src=image/noedit.gif border=0 alt=Você Não pode editar este registro>
<%End If%>
<%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%>

Tenta assim

;)

[py2tz]

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%>">

[Henderson]

mas nesses códigos não tem nada que você possa alterar!

[py2tz]

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