Ir para conteúdo
Fórum Script Brasil
  • 0

Como Enviar O Valor De Variavel

ldrwebsite

Perguntado por ldrwebsite,

 Share

Pergunta

ldrwebsite

ldrwebsite

Postado
Postado

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!?

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...