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


<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 width3>
<tr>
<td height="49" colspan="7"> </td>
<td height="49"> </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ç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> </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"> 
<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>

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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


<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 width3>
<tr>
<td height="49" colspan="7"> </td>
<td height="49"> </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ç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> </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"> 
<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>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida