Pesquisa e inclusao

[GRiLLo 11]

Eu nao entendo muito de asp, o que eu queria era incluir e pesquisar em um mesmo arquivo .aspo que fiz foi:<%If request.form()="" then%>formulario de pesquisa<%Else%>conexao com o bancodei um select fromfiz um sistema de resultado de pesquisa<%End if%>fim da pesquisacomeço da inclusao:<%If request.form()="" then%>formulario de inscriçao <%Else%>conexaodei um inset intofiz um textinho de cadastrado com sucesso<%End if%>fim da inclusaoos.: todo o codigo está em apenas um arquivo aspPor favor me ajudem...Atenciosamente, Leonardo Grillo

[Mário Monteiro 179]

usa metodo POST em seu form e no lugar de<%If request.form()="" then%>poe<%If request.servervariables("REQUEST_METHOD") <> "POST" then%>ve se rola

[GRiLLo 11]

Funcionou não, vai ficar meiu grande + vou colar o codigo aqui para melhor compreençao OK<%If request.servervariables("REQUEST_METHOD") <> "POST" then%> <form name="form" method="post" action="default.asp"> Pesquisa: <input type="text" name="nome"> <input name="submit" type="submit" id="submit" value="ok"> </form><%Else%> <% set conexao = server.CreateObject("Adodb.connection") caminho = "c:\inetpub\wwwroot\fg\leonardo\aaaaaa\fotos.mdb" conexao.open "Driver=Microsoft Access Driver (*.mdb);dbq=" & caminho %> <% sql_pesquisa2 = "SELECT * FROM a where nome like '%" & Request("nome") & "%' ORDER BY codigo DESC" set sql_pesquisa = conexao.execute(sql_pesquisa2) %> <% If not sql_pesquisa.eof then Do while not sql_pesquisa.eof %> <%=sql_pesquisa("nome")%><br> <% sql_pesquisa.movenext loop else %> Nenhum nome foi localizado. <%end if%><%End if%>SEGUNDO FORM COMEÇA AQUI<%If request.servervariables("REQUEST_METHOD") <> "POST" then%><form name="form2" method="post" action="default.asp"> Inserir: <input type="text" name="nome"> <input name="submit2" type="submit" id="submit2" value="ok"></form><%Else%><%set conexao = server.CreateObject("Adodb.connection")caminho = "c:\inetpub\wwwroot\fg\leonardo\aaaaaa\fotos.mdb"conexao.open "Driver=Microsoft Access Driver (*.mdb);dbq=" & caminho%><%sql2 = "INSERT INTO a (nome) VALUES ('"& Request.form("nome") &"')"set sql = conexao.execute(sql2)%>inserido com sucesso<%End if%>