Pasar un valor de un texbox

27/10/2004 - 20:23 por aleblack | Informe spam
Por favor que alguien me con esto , necesito pasar el valor de la textbox
Qtd para otra pagina, en el momento que aprieta la figura del carrinho,
realmente no consigo y es lo unico que me falta para terminar, desde ya
muchas gracias.

alejandro carnero

<!--#INCLUDE FILE="index.ASP"-->
<html><head>
<title>Tabela de Preços Kyowa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head><body>

<%
orden=1
escolhe = request.Form("rcodigo")
escr= "%" & request.form ("entrada")& "%"
'response.write escr & "<br>"

select case (escolhe)
case "cod"
opcion=1
response.Write("Items por codigo")
valor=escr
case "ref"
opcion=2
response.Write("Items por referencia")
valor=escr
case "desc"
opcion=3
valor=escr
response.Write("Items por Descricao")
case "cat"
opcion=4
valor=request.Form("select2")
response.Write("Vc escolheu items por categoria")
case "for"
opcion=5
valor=request.Form("select")
response.Write("Vc escolheu items por fornecedores")
end select

'dim conexao
'set conexao=server.CreateObject("adodb.connection")
'conexao.open "Driver={SQL
Server};Server=central;Database=kyowa2;trusted_connection=yes;"
Set cmd=Server.CreateObject ("adodb.command") ' creando un objeto command
Set cmd.ActiveConnection = Conexao 'seta a conexao ativa para o
objeto
cmd.CommandText = "xcodigo" 'passamos o nome da stored procedure
cmd.CommandType = 4 'passamos o parametro de execucao do commando, 4
refere-se a procedure
cmd.Parameters.Refresh
cmd.Parameters("@az") = orden ' a variavel declarada na procedure é
passada pelo command do ADO
cmd.Parameters("@opc") = opcion ' segunda variabel de la procedure
cmd.Parameters("@valor") = valor ' tercera variabel de la procedure
set rs=server.createobject("adodb.recordset")
rs.open cmd
%>

<table widthˆ3>
<tr>
<td height="49" colspan="7">&nbsp;</td>
<td height="49">&nbsp;</td>
</tr>
<tr>
<td width="56"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Codigo</font></strong></td>
<td width="93"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Referencia</font></strong></td>
<td width="240"><div align="center"><strong><font size="3" face="Arial,
Helvetica, sans-serif">Descricao</font></strong></div></td>
<td width="61"> <div align="center"><strong><font size="3" face="Arial,
Helvetica, sans-serif">Pre&ccedil;o</font></strong></div></td>
<td width="46"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Quant</font></strong></td>
<td width="35"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Foto</font></strong></td>
<td><strong><font size="3" face="Arial, Helvetica,
sans-serif">Comprar</font></strong></td>
<td>&nbsp;</td>
</tr>
<%
do while not rs.eof
codigo=rs("codigo")
referencia=rs("referencia")
descricao=rs("descricao")
preco=rs("preco")
quant=rs("qtd_atual")


%>
<% cor=not cor %>
<% if cor then %>
<tr bgcolor="#FFFFFF">
<% else %>
<tr bgcolor="#999999">
<% end if %>
<td><%=codigo%></td>
<td><%=referencia%></td>
<td><%=descricao%></td>
<td><%=preco%></td>
<td><%=quant%></td>
<td> <A HREF="foto.asp?codigo=<%=rs("codigo")%>" > <img
src="imagens/foto.jpg" width="18" height="17"></A></td>
<td width="86"><form action="varia.asp" method="post"><input type="text"
name="qtd" size="2"></form>
<td width="65">&nbsp;
<td width="161">
<%if rs("qtd_atual")=0 then%>
<img src="imagens/esgotado.gif">
<%else%>
<a href="varia.asp?codigo=<%=rs("codigo")%>" target=varia>

<img src="imagens/compre.gif" height="25">
</a>
<%end if%>
</td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>

</form>
</body></html>
 

Leer las respuestas

#1 Miguel Gonzalez
27/10/2004 - 22:02 | Informe spam
Hola Ale.

En la parte que enseña el carrito deberías "lanzar" el formulario con los datos. Una opción es la
siguiente (guardas el código del producto dentro de otro "textbox" oculto y conviertes la imagen del
carrito en un botón de "submit"):

<%if rs("qtd_atual")=0 then%>
<img src="imagens/esgotado.gif">
<%else%>
<form action="varia.asp" method="post">
<input type="text" name="qtd" size="2">
<input type="hidden" name="codigo" value="<%=rs("codigo")%>">
<button type="submit" name="compra" value="compra">
<img src="imagens/compre.gif" height="25">
</button>
</form>
<%end if%>

El botón puedes sustituirlo por un enlace que rodee la imagen del carrito, pero ello exigirá que el
usuario tenga activado el javascript.

Saludos!
Miguel


aleblack wrote:
Por favor que alguien me con esto , necesito pasar el valor de la textbox
Qtd para otra pagina, en el momento que aprieta la figura del carrinho,
realmente no consigo y es lo unico que me falta para terminar, desde ya
muchas gracias.

alejandro carnero

<!--#INCLUDE FILE="index.ASP"-->
<html><head>
<title>Tabela de Preços Kyowa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head><body>

<%
orden=1
escolhe = request.Form("rcodigo")
escr= "%" & request.form ("entrada")& "%"
'response.write escr & "<br>"

select case (escolhe)
case "cod"
opcion=1
response.Write("Items por codigo")
valor=escr
case "ref"
opcion=2
response.Write("Items por referencia")
valor=escr
case "desc"
opcion=3
valor=escr
response.Write("Items por Descricao")
case "cat"
opcion=4
valor=request.Form("select2")
response.Write("Vc escolheu items por categoria")
case "for"
opcion=5
valor=request.Form("select")
response.Write("Vc escolheu items por fornecedores")
end select

'dim conexao
'set conexao=server.CreateObject("adodb.connection")
'conexao.open "Driver={SQL
Server};Server=central;Database=kyowa2;trusted_connection=yes;"
Set cmd=Server.CreateObject ("adodb.command") ' creando un objeto command
Set cmd.ActiveConnection = Conexao 'seta a conexao ativa para o
objeto
cmd.CommandText = "xcodigo" 'passamos o nome da stored procedure
cmd.CommandType = 4 'passamos o parametro de execucao do commando, 4
refere-se a procedure
cmd.Parameters.Refresh
cmd.Parameters("@az") = orden ' a variavel declarada na procedure é
passada pelo command do ADO
cmd.Parameters("@opc") = opcion ' segunda variabel de la procedure
cmd.Parameters("@valor") = valor ' tercera variabel de la procedure
set rs=server.createobject("adodb.recordset")
rs.open cmd
%>

<table widthˆ3>
<tr>
<td height="49" colspan="7">&nbsp;</td>
<td height="49">&nbsp;</td>
</tr>
<tr>
<td width="56"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Codigo</font></strong></td>
<td width="93"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Referencia</font></strong></td>
<td width="240"><div align="center"><strong><font size="3" face="Arial,
Helvetica, sans-serif">Descricao</font></strong></div></td>
<td width="61"> <div align="center"><strong><font size="3" face="Arial,
Helvetica, sans-serif">Pre&ccedil;o</font></strong></div></td>
<td width="46"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Quant</font></strong></td>
<td width="35"><strong><font size="3" face="Arial, Helvetica,
sans-serif">Foto</font></strong></td>
<td><strong><font size="3" face="Arial, Helvetica,
sans-serif">Comprar</font></strong></td>
<td>&nbsp;</td>
</tr>
<%
do while not rs.eof
codigo=rs("codigo")
referencia=rs("referencia")
descricao=rs("descricao")
preco=rs("preco")
quant=rs("qtd_atual")


%>
<% cor=not cor %>
<% if cor then %>
<tr bgcolor="#FFFFFF">
<% else %>
<tr bgcolor="#999999">
<% end if %>
<td><%=codigo%></td>
<td><%=referencia%></td>
<td><%=descricao%></td>
<td><%=preco%></td>
<td><%=quant%></td>
<td> <A HREF="foto.asp?codigo=<%=rs("codigo")%>" > <img
src="imagens/foto.jpg" width="18" height="17"></A></td>
<td width="86"><form action="varia.asp" method="post"><input type="text"
name="qtd" size="2"></form>
<td width="65">&nbsp;
<td width="161">
<%if rs("qtd_atual")=0 then%>
<img src="imagens/esgotado.gif">
<%else%>
<a href="varia.asp?codigo=<%=rs("codigo")%>" target=varia>

<img src="imagens/compre.gif" height="25">
</a>
<%end if%>
</td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>

</form>
</body></html>


Preguntas similares