Executar Duas Funçoes Em Apenas 1 Formulario

[Rapper]

Ae por exemplo eu tenho um formalario de cadastrar noticias por exemplo. eu pra chamar essa tabela eu to usando:

<%
acao = Replace(Request.Querystring("acao"), "'" , "''")
IF acao = "adicionar" THEN
%>
<table>
<tr><td><input name="assunto" type="text" valeu="<%=assunto%>">td></tr>
</table>
<% END IF %>

Minha duvida é agora caso eu queria editar essa "noticia" que cadastrei tem como eu chamar os dados nessa mesma tabela pra editar ela ? tipo isso seria correto ?

<%
acao = Replace(Request.Querystring("acao"), "'" , "''")
IF acao = "adicionar" OR acao = "editar" THEN
%>
<table>
<tr><td><input name="assunto" type="text" valeu="<%=assunto%>">td></tr>
</table>
<% END IF %>

ai eu chamaria a função pra editar pagina.asp?acao=editar e pra adicionar pagina.asp?acao=adicionar

Bom não sei se tem como, ou eu teria que usar um ELSE com outra Request.Qerystring com a acao EDITAR e outra tabela ?

[resopi]

Aamigo é melhro você fazer 2 IF separados pois são duas funções diferentes....

por ex:

<%

acao = Replace(Request.Querystring("acao"), "'" , "''")

' Colocar no IF abaixo  o codigo para Adicionar

IF acao = "adicionar" THEN

%>

<table>

<tr><td><input name="assunto" type="text" valeu="<%=assunto%>">td></tr>

</table>

<%

END IF

' Colocar no IF abaixo  o codigo para Editar

IF acao = "editar" THEN

%>

<table>

<tr><td><input name="assunto" type="text" valeu="<%=assunto%>">td></tr>

</table>

<% END IF %>

espero que eu o tenha intendido

t+

[felipefrancesco]

Olha....quando eu faço isso eu sempre uso o mesmo formulário, e não tenho problema nenhum com isso.

Se você for entrar em modo de edição, você faz a busca no banco e carrega as variáveis, caso contrário você não carrega as variáveis, que os campos virão vazios.

Nesse cso, você não precisa do if pra montar a tabela, mas só pra verificar se você tem ou não que fazer uma busca no banco de dados.

[Rapper]

pode me dar um exemplo felipefrancesco ?

[resopi]

ah tah eu agora intendi..... a duvida... peo menos eu acho.

acao = Replace(Request.Querystring("acao"), "'" , "''")

' Colocar no IF abaixo  o codigo para Adicionar

IF acao = "editar" THEN

  ' FAz busca no banco de dados

  assunto= recordset.fields("assunto")

'jogue o resultado do RS em variaveis

end if

%>

<table>

'olha se ele não tiver passado pelo if acima a varivael asusnto vai estar vazia por isso o campo tb, mas caso ele tenah passado a varivael assunto vai receber o conteudo do DB e por isso vai ter coisa no text.

<tr><td><input name="assunto" type="text" valeu="<%=assunto%>">td></tr>

</table>

isso ai emcima é + ou - a logica

qualquer duvida pergunte.

t+

[Rapper]

Cara não deu pra entender muito bem não, ta meio confuso. :/

[dark0]

pois é mano..

A ideia do resopi ta certa.

acao = request("acao")

If acao = "editar" then

'aqui você faz a acao que queira.. ou seja.. trazer os dados do banco, usando select do sql

elseIf acao = "adicionar" then

'aqui você faz a acao de INSERT.. inserir no banco..

else

response.write "Erro.. acao inexistente..!"

end if

A ideia é essa.

Agora, como você vai conseguir comparar os dados selecionados com o do banco.. depende de como você esta pegando eles antes de clicar na acao.

Veja se consegue montar alguma coisa.

Pois a lógica nós demos.. agora falta meter prática no esquema

Abraços

[felipefrancesco]

Putz cara......a lógica é essa ai que o resopi colocou. Os exemplos que eu tenho usam muitos includes e muitas função que ia ficar complicado postar o código aqui.

Eu vou postar um exemplo bem tosco, mas grande, que usa esse método e você vê se te ajuda

<!--

Página com o formulário de cadastro de artigos/novidades/notícias
Esses dados são enviados para 'CADART2.ASP"

-->
<!--#include file="conecta.asp" -->
<%
AbreConexao

' Insere na página de visitas
Dim SqlEs
SqlEs = "INSERT INTO tblVis(IdItem, DtVis, StrTipo) " & _
        "VALUES(1,'" & Now() & "','pagina')"
ObjConn.execute(SqlEs)

Dim Verif
Dim Cond
' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
' :: Se a QueryString (QS) "art" for nula, significa que ela não foi passada.
' :: Nesse caso, o formulário deverá estar zerado para uma nova inserção
' :: Caso a QS não for nula, então significa que a página que a chamou foi a de alteração
' :: Sendo assim, os dados do artigo a ser alterado devem ser exibidos.
' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
If Request.QueryString("art") <> "" then
' Se a QS não for nula, então viemos da página de alteração

   ' Variável de verificação recebe veradeiro
   Verif=1

   ' E a variável com a condição guarda o número do artigo a ser alterado
   Cond = Request.QueryString("art")

Else
' Caso contrário, minha condição é negada.
   Cond=-1
   Verif=0
   
End if


If not Cond=-1 then
' Então eu tenho que buscar o artigo a ser alterado
  Dim SqlArt
  Dim RsArt
  SqlArt = "SELECT * FROM tblArt WHERE IdArt =" & Cond
  Set RsArt = ObjConn.execute(SqlArt)
End if

'Declara as variáveis para buscar o autor
 Dim SqlAut
 Dim RsAut
%>
<html>
 <head>
  <title>Cadastro de Artigos/Novidades/Notícias</title>
  <link rel="stylesheet" href="EstiloGeral.css" type="text/css">
 </head>
 <script language="javascript">
 // Função para abrir a janela com o cadastro do autor
 function AbreJanela()
 /* Abre janela para download ou exibição do arquivo de artigo */
 {
  window.open("cadaut.asp","borah",'resizable=no,scrollbars=no,width=300,height=250,toolbar=no')
 }
 </script>
 <body>
  <form name="fcadart" method="post" action="cadart2.asp" enctype="multipart/form-data">
   <input name="HEnvArt" type="hidden" value="EnvOk">
   
   <input name="HVer" type="hidden" value="<% =Verif %>">
   <!-- 
   
   input HVer passará para a próxima ´página se é UPDATE ou INSERT 
   
   Em todos os campos do formulário se VERIF for verdadeiro então será atribuída a propriedade value
   
   -->
   <% Dim VerTipo
   If Cond <> -1 then
    Select Case RsArt("IntTipo")
     Case 1
      VerTipo = 1
     Case 2
      VerTipo = 2
     Case 3
      VerTipo = 3
     Case Else 
      VerTipo = 0
    End Select
   End if
   %>
  <!-- Início tabela-->
  <table border="0" cellpadding="5" align="center">   
  <!-- 1ª linha -->
   <tr>
    <td class="fus">Tipo:</td>
    <td class="fus">
     <select name="cmbtipo" class="fus">
      <option value="1" <% If ((Verif) and (VerTipo = 1)) xor not Verif then Response.Write("selected") %>>Artigo</option>
      <option value="2" <% If Verif and (VerTipo = 2) then Response.Write("selected") %>>Novidade</option>
      <option value="3" <% If Verif and VerTipo = 3 then Response.Write("selected") %>>Notícia</option>
     </select>
    </td>
   </tr>
  <!-- 2ª linha -->
   <tr>
    <td class="fus">Título:</td>
    <td><input name="txttit" size="30" type="text" class="fus" <% If Verif then Response.Write "value='" & RsArt("StrTit") & "'" %>></td>
   </tr>
  <!-- 3ª linha -->
   <tr>
    <td class="fus">Manchete:</td>
    <td><input name="txtmanc" size="45" type="text" class="fus" <% If Verif then Response.Write "value='" & RsArt("StrManc") & "'" %>></td>
   </tr>
  <!-- 4ª linha -->
  <tr>
   <td class="fus">Autor:</td>
   <td>
    <select name="cmbaut" class="fus">
<%
' Consulta do autor
 SqlAut = "SELECT IdAut, StrNome, MemCur FROM tblAut ORDER BY StrNome"
 Dim VerAut
 Set RsAut = ObjConn.execute(SqlAut)
 Do while not RsAut.eof
  If Verif And Cod <> -1 then
   If RsAut("IdAut") = RsArt("IdAut") then
    VerAut = true
   End if
  End if
%>
    <option value="<%=RsAut("IdAut")%>"
	<%If VerAut then
    response.write "selected"
    VerAut = false
   End if %>><%=RsAut("StrNome")%>
	</option>
<%
  RsAut.MoveNext
 Loop
 Set RsAut = nothing
 FechaConexao
%>
    </select>
    <input type="button" name="btnaut" value="Autor" class="fus" OnClick="AbreJanela();">
   </td>
  </tr>
  <!-- 5ª linha -->
  <tr>
   <td class="fus">Arquivo do artigo:</td>
   <td><input name="filearq" type="file" class="fus"></td>
  </tr>
    <!-- 6ª linha -->
  <tr>
   <td class="fus">Acesso Restrito ?</td>
   <td><input name="chkac" type="checkbox" class="fus" <% If Verif and Cond <> -1 then
                       If RsArt("BooRes") then Response.Write "selected" End if
                End if%>>
   </td>
  </tr>
  <!-- 7ª linha -->
  <tr>
   <td valign="top" class="fus">Ref.p/busca (palvra-chave):</td>
   <td><input name="txtbusc" size="40" type="text"class="fus"  <% If Verif then Response.Write "value='" & RsArt("StrKw") & "'" %>></td>
  </tr>
  <!-- 8ª linha -->
  <tr>
    <td colspan="2" align="center">
     <input name="btnEnvArt" size="40" type="submit" value="Enviar Dados" class="fus">
    </td>
  </tr>
 </table>
 </form>
 </body>
</html>