Nesse arquivo, o autor demonstra o uso da propriedade HIDDEN do formulário.

A propriedade HIDDEN nada mais é que um campo escondido, que pode ser muito útil no envio de informações.. No exemplo abaixo, exemplifica como gravar informações dentro de um banco através de um mesmo arquivo (insere.asp).

<% 'declara o recebimento das informações do campo HIDDEN xacao = request.form("acao") 'a partir de agora criamos condições para obter resultados 'se o valor de xacao for nulo, é requisitado o formulário de inserçao if xacao = "" then %> <form method="post" action="insere.asp"> <table border="0" width=100%> <tr> <td> Nome: </td> <td> <input type="text" name="nome"> </td> </tr> <tr> <td> Senha: </td> <td> <input type="password" name="senha"> </td> </tr> <tr> <td> </td> <td> <input type="HIDDEN" name="acao" value="inserir"> <input type="submit" value="cadastrar"> </td> </tr> </table> <% 'note acima as propriedades do HIDDEN 'finalizando agora se XACAO for nulo end if %> <% 'se o XACAO for = a inserir ele faz a inserção if xacao = "inserir" then xusuario = request.form("usuario") xsenha = request.form("senha") 'agora criamos a conexão com o banco set cn = Server.CreateObject("ADODB.Connection") cn.open "nomedoODBC","usuario","senha" 'criando RECORDSET pra ver se usuario existe xsql = "select * from usuario where usuario = '" & xusuario & "' AND senha = '" & xsenha & "'" set rs = cn.execute(xsql) 'se for fim de arquivo, usuario e senha não existem e insere novo if rs.eof then xinsere = "INSERT INTO usuario(usuario,senha)" & VALUES('" & xusuario & "','" & xsenha & "')" cn.execute(xinsere) response.write "USUARIO INSERIDO COM SUCESSO!" 'se existir, fecha a conexao else cn.close response.write "DESCULPE,MAS USUARIO E SENHA EXISTEM!" 'finaliza o recordset end if 'finaliza a propriedade HIDDEN end if %>

Autor: Robson Dantas Silva
Email: robson83@uol.com.br
Webmaster da página www.vidanova.com