• 0
Sign in to follow this  
ldrwebsite

Como Enviar O Valor De Variavel

Question

wink.gif E aí galera, tudo ok?

É o seguinte, fiz sistema aqui e estou com problemas, queria saber como eu faço para passar um valor de uma

variável para outra página.Veja:

Primeiro eu tenho a página onde eu digito o número da lista que eu quero

abrir.

abre_lista.htm

<font face="Arial" color="#0066FF">Controle - Incluir itens na lista</font>

<br><br>

<font face="Arial" size="2">Digite o número da lista a qual deseja incluir

itens.</font>

<br>

<br>

<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#006699" width="200" cellpadding="3">

  <form name="proc_lista" method="get" action="proclista_inclui.asp">

  <tr>

    <td width="100" bgcolor="#006699"><font face="Arial" size="1">

    <font color="#FFFFFF">Número da lista:</font> </font></td>

    <td width="100" bgcolor="#ffffff">

    <input type="text" name="num_lista" size="5">

    <input type="submit" value="OK!" name="ok"></td>

  </tr>

  </form>

</table>

Depois eu tenho a página que abre a lista escolhida que está num BD (tabela listas) e procura por itens que já estejam incluídos na tabela itens_lista que correspondam ao número da lista, se não tiver itens a página fala que não há itens cadastrados e dá opção para incluir.

inclui_itens.asp

------ Conexão que recebe o valor da lista e procura --------

<%Option Explicit

Response.Expires=0

Dim objConn, objRS, strQuery

Set objConn=Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=c:/listas/produtos.mdb;Driver={Microsoft Access Driver (*.mdb)}"

dim num_lista

num_lista=request.querystring("num_lista")

strQuery="SELECT * FROM listas WHERE num_lista='"&num_lista&"'"

Set objRS=objConn.Execute(strQuery)

------ Fim da conexão ---------------------------------------

---- Conexão que mostra os itens já cadastrados na lista ----

Dim objConn2, objRS2, strQuery2

Set objConn2=Server.CreateObject("ADODB.Connection")

objConn2.Open "DBQ=c:/listas/produtos.mdb;Driver={Microsoft Access Driver (*.mdb)}"

strQuery2="SELECT * FROM itens_lista WHERE num_lista='"&num_lista&"'"

Set objRS2=objConn2.Execute(strQuery2)

----- Fim da conexão ----------------------------------------

<font face="Arial" color="#0066FF">Controle - Incluir itens na lista</font>

<br><br>

<font face="Arial" size="2">Dados da lista de componentes selecionada.</font>

<br><br>

------ Se não encontrar a lista -----------------------------

<%if objRS.eof then%>

<b><font size="2" face="Arial" color="#FF0000">Não foi encontrada nenhuma

lista que atenda o número solicitado!</font></b>

<br>

------ Caso encontre a lista, mostra informações ------------

<%else%>

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1" cellpadding="3">

  <tr>

    <td width="180" bgcolor="#006699">

    <font face="Arial" size="1" color="#FFFFFF">Número da

    lista:</font></td>

    <td width="320" bgcolor="#99CCFF"><font face="Arial" style="font-size: 9pt">

    <%=objRS("num_lista")%></font></td>

  </tr>

  <tr>

    <td width="180" bgcolor="#006699">

    <font face="Arial" size="1" color="#FFFFFF">Descrição do

    produto:</font></td>

    <td width="320" bgcolor="#99CCFF"><font face="Arial" style="font-size: 9pt">

    <%=objRS("descr_prod")%></font></td>

  </tr>

  <tr>

    <td width="180" bgcolor="#006699">

    <font face="Arial" size="1" color="#FFFFFF">Modelo do

    produto:</font></td>

    <td width="320" bgcolor="#99CCFF"><font face="Arial" style="font-size: 9pt">

    <%=objRS("mod_prod")%></font></td>

  </tr>

  <tr>

    <td width="180" bgcolor="#006699">

    <font face="Arial" size="1" color="#FFFFFF">Número do

    desenho de montagem:</font></td>

    <td width="320" bgcolor="#99CCFF"><font face="Arial" style="font-size: 9pt">

    <%=objRS("num_mont")%></font></td>

  </tr>

  <tr>

    <td width="180" bgcolor="#006699">

    <font face="Arial" size="1" color="#FFFFFF">Especial para

    cliente:</font></td>

    <td width="320" bgcolor="#99CCFF"><font face="Arial" style="font-size: 9pt">

    <%=objRS("esp_cliente")%></font></td>

  </tr>

  <tr>

    <td width="180" bgcolor="#006699">

    <font face="Arial" size="1" color="#FFFFFF">Observações</font></td>

    <td width="320" bgcolor="#99CCFF"><font face="Arial" style="font-size: 9pt">

    <%=objRS("obs_prod")%></font></td>

  </tr>

<%end if%>

</table>

------ Fim das informações da lista escolhida -------------------------

------ Formulário para incluir os itens -------------------------------

<form name="cat" method="get" action="fim_inclusao.asp">

<font size="2" face="Arial">Produto:</font>&nbsp;

<select size="1" name="prods">

<option selected>Escolha...</option>

  <option value="valor1">Produto 1</option>

  <option value="valor2">Produto 2</option>

  <option value="valor3">Produto 3</option>

</select></font>

<font size="2" face="Arial">Quant.:</font>

  <input type="text" name="quant1" size="3"> <font size="2" face="Arial">Unid.:</font>

  <select size="1" name="unid1">

  <option>Escolha...</option>

  <option value="cm">Centímetro (cm)</option>

  <option value="gr">Grama (gr)</option>

  <option value="jg">Jogo (jg)</option>

  <option value="kl">Kilo (kl)</option>

  <option value="mt">Metro (mt)</option>

  <option value="mm">Milímetro (mm)</option>

  <option value="pç">Peça (pç)</option>

  </select> <input type="submit" value="OK!" name="ok">

</form>

------- Fim do formulário de itens ------------------------------------

<font size="2" face="Arial">Itens já inclusos na lista acima:</font><br>

------- Se não tiver itens cadastrados na lista -----------------------

<%if objRS2.eof then%>

<br><font color="#FF0000" size="2" face="Arial">Nenhum item cadastrado até o

momento.</font>

------- Se tiver itens cadastrados na lista ---------------------------

<%else%>

<br><table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#006699" width="650" cellpadding="2" id="AutoNumber2">

  <tr>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Número do desenho</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Descrição</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Quant.</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Material</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Bitola</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Observações</font></td>

  </tr>

------- Loop para mostrar todos os itens --------------------------------

  <%while not objRS2.EOF%>

  <tr>

    <td align="center"><font face="Arial" size="1"><%=objRS2("num_des")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("descr_item")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("quant")%> <%=objRS2("unid")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("material")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("bitola")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("obs_item")%></font>&nbsp;</td>

  </tr>

  <%

  objRS2.MoveNext

  Wend

  objRS2.close

  objConn2.close

  Set objRS2=Nothing

  Set objConn2=Nothing

  %>

<%end if%>

</table>

----- Fim da listagem de itens cadastrados na lista ----------------------

Depois de escolher um item, a quantidade e a unidade de medida e clicar em OK

os dados são enviados para a página que inclui os dados na tabela itens_lista. Só que aí que

está o problema, ao clicar em OK é enviado para inclusão somente os dados do produto,

a quantidade e a unidade, só que para que este item fique "amarrado" na lista

é preciso enviar o número da lista também, pois há um campo na tabela com o

nome num_lista que grava o número da lista a qual o produto pertence. Como eu faço para

enviar o valor da lista aberta nesta página, já que ela foi definida em uma

página anterior?

Outra coisa, ao enviar os dados para página de inclusão, no fim gostaria de

incluir um response.redirect para retornar a página de inclui_itens.asp

automaticamente abrir a mesma lista que acabou ser incluso o item e

mostrar na tabela inferior e dar opção para incluir novos itens, mas para isso

eu também precisaria estar retornando o número da lista (valor denum_lista) para

que a rotina ASP de seleção da lista no BD funcione!?

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

você esta recebendo os dados via for!

usa method="post" no seu form!

usa o get no caso de ir tudo via QueryString para outra pagina

se eu estiver errado ou se der algum erro posta ae!

abraços

Share this post


Link to post
Share on other sites
  • 0

<input type="hidden" name="nome" value="<%= variavel %>">

Share this post


Link to post
Share on other sites
  • 0

Procure sempre trabalhar com method="POST" porque ele pode ttransportar uma quant. maior de informaçãoes...

Eu gerlamente uso GET quando preciso de um único campo e pra rodar na mesma página....

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this