Jump to content

  2. → Viewing Profile: Tópicos: jocapt

jocapt

Member Since 29/03/2010
Offline Last Active 06/04/2010, 07:59
-----

Topics I've Started

Redericionar O Formulário Para Paginas Asp Diferentes

30/03/2010, 12:51

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

[Resolvido] Pesquisando Dados Em Base De Dados A Partir De Um Formul

29/03/2010, 08:53

Boa tarde,

Gostaria de ajuda em programação ASP, visto estar agora a começar.

Tenho um formulário (Fig1) em que só tem um camo do tipo texto

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

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

            
</body>

</html>


Quero de seguida, assim que escrever um codigo ex: 00550, ele me redireccione a pagina onde está o codigo em ASP que faz ligação a base de dados: AQUI Vai:
<%@language=Vbscript %>

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

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

 <%     
  COMANDO="Select * from Projecto002.dbo.artigos a where a.Cod_Art ='"& request.QueryString("Vcodigo") &"'"

  Set RecProjecto002=BdProjecto002.Execute(COMANDO)
 
  %> 


  <html>

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

 <Body>



 <% 
           Response.Write "Codigo :" & RecProjecto002("Cod_Art") & "<br>"
           Response.Write "aRTIGO :" & RecProjecto002("descr_art") & "<br>"
          

           BdProjecto002.Close

           set BdProjecto002=nothing
         
         %>

 
</body>

</html>


O problema é que ele não assume o que escrevi no formulário. Como está o código ele simplismente mostra-me o primeiro codigo e discrição de artigo que encontrar e não aquele que escrevi no formulário.
Agradecia ajuda

Obrigado

  1. Fórum WMO
  2. → Viewing Profile: Tópicos: jocapt
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq