Redericionar O Formulário Para Paginas Asp Diferentes

Bom dia,
Mais uma vez estou pedindo ajuda.

Tenho duas páginas ASP

A primeira vai ler a uma tabela menus.outros
Codigo1:

<%@language=Vbscript %>

 <%Vcodigo=request.QueryString("codigo") %>

<!--#include Virtual="/meus_ssi/conecta_clisare007.asp"-->

 <%     
  COMANDO="select * from menus.dbo.outros a where a.Cod_art ='"& Vcodigo &"'"

  Set RecProjecto002=BdProjecto002.Execute(COMANDO)
 
  %> 
  <html>

        <head>
                <title> ASP - Recebendo dados do formulário </title>                              
        </head>

 <Body style="margin-top: 71px">
 
 <th>Codigo:<input name="Cod_art" value=<% Response.Write RecProjecto002("Cod_Art")%> readonly=readonly/>  </th>
 <th>Artigo:<input name="artigo" value=<% Response.Write RecProjecto002("Descricao_artigo")%> readonly=readonly /> </th>
 <th>Artigo:<input name="armazem" value=<% Response.Write RecProjecto002("Armazem")%>  /> </th>
 
<%
           BdProjecto002.Close

           set BdProjecto002=nothing
 %>
</body>

</html>

A segunda vai ler outra tabela projecto002.dbo.artigos
Codigo2:

<%@language=Vbscript %>

 <%Vcodigo=request.QueryString("codigo") %>

<!--#include Virtual="/meus_ssi/conecta_clisare007.asp"-->

 <%     
  COMANDO="select * from projecto002.dbo.artigos a left outer join projecto002.dbo.Armazens b on a.ArmDefault_art = b.Cod_tbarm where a.cod_art ='"& Vcodigo &"'"

  Set RecProjecto002=BdProjecto002.Execute(COMANDO)
 
  %> 

  <html>
 
        <head>
                <title> ASP - Recebendo dados do formulário </title>
        </head>

 <Body style="margin-top: 71px">
 <form Action ="http://localhost/livroasp/Aspteste_gravar_artigo.asp" method="get"> 
 <table>
 
 <th>Codigo:<input name="Cod_art" value=<% Response.Write RecProjecto002("Cod_Art")%>  />  </th>
 <th>Artigo:<input name="artigo" value=<% Response.Write RecProjecto002("descr_art")%>  /> </th>
 <th> Armazém <input type="text" size="15" name="armazem" style="margin-left: 87px"/> </th>
 </table>

 <input type="submit" name="Gravar" value="Gravar"/>
 
 </form>
<%
          BdProjecto002.Close
           set BdProjecto002=nothing
 %>

</body>

</html>

Tenho em seguida um formulário que os liga, mas só o consigo fazer manualmente e a vez, ou seja, mudando o link.

Gostaria que o mesmo fizesse o seguinte:

Quando clicasse no ok, ele ia verificar primeiro se existe no codigo1. Caso exista, mostrava, caso contrário ia logo ao código2 e mostrava.

Aqui vai o formulário:
Codigo 3:

<html>
        <head>
                <title> Passando dados no formulário </title>
        </head>
<body>      

            <form Action ="http://localhost/livroasp/Aspteste_artigo_outros.asp" method="get"> 
            Codigo <input type="text" size="9" name="codigo"/>
            <input type="submit" name="B1" value="OK"/>
            </form>
</body>
</html>

Tentei fazer o redirecionamento a partir de uma pagina intermédia mas o mesmo não assume a variável que introduzimos no formulário.

Aqui vai o codigo:

<%@language=Vbscript %>

 <%Vcodigo=request.QueryString("codigo") %>

<!--#include Virtual="/meus_ssi/conecta_clisare007.asp"-->
 <%     
    COMANDO="select * from menus.dbo.outros a where a.Cod_art ='"& Vcodigo &"'"

    Set RecProjecto002=BdProjecto002.Execute(COMANDO)

    BdProjecto002.Close

   set BdProjecto002=nothing

   if Vcodigo <> NULL THEN response.Redirect "http://localhost/livroasp/Aspteste_artigo_outros.asp" ELSE Response.Redirect "http://localhost/livroasp/Aspteste_artigo.asp" end if 
  %>

Edição feita por: Renan L. Queiroz, 31/03/2010, 10:22.
Retirada da tag [ quote ] ao post, utilização incorreta.

<%@language=Vbscript %> <% Vcodigo=request.QueryString("codigo") %>  <% COMANDO = "select * from menus.dbo.outros a where a.Cod_art ='"& Vcodigo &"'" Set RecProjecto002=BdProjecto002.Execute(COMANDO) BdProjecto002.Close set BdProjecto002 = nothing If Vcodigo <> null Then response.Redirect "http://localhost/livroasp/Aspteste_artigo_outros.asp" Else Response.Redirect "http://localhost/livroasp/Aspteste_artigo.asp" End If %>

... %>  <% COMANDO = "select * from menus.dbo.outros a where a.Cod_art ='"& Vcodigo &"'" Set RecProjecto002=BdProjecto002.Execute(COMANDO) BdProjecto002.Close set BdProjecto002 = nothing ...

<%@language=Vbscript %> <% Vcodigo = request.QueryString("codigo") response.write "código: "& Vcodigo 'Imprime o valor da variável junto a uma string response.end 'Encerra o processamento do script, evitando a aparição de erros posteriores If Vcodigo <> null Then response.Redirect "http://localhost/livroasp/Aspteste_artigo_outros.asp" Else Response.Redirect "http://localhost/livroasp/Aspteste_artigo.asp" End If

#1 jocapt

#2 Renan L. Queiroz

1 user(s) are reading this topic

Redericionar O Formulário Para Paginas Asp Diferentes

#1 jocapt

#2 Renan L. Queiroz

1 user(s) are reading this topic

Entrar