Foros del Web » Programando para Internet » ASP Clásico »

no actualiza el select o menu

Estas en el tema de no actualiza el select o menu en el foro de ASP Clásico en Foros del Web. Hola amigos, cotinuo con este formulario, el problema es que cuando selecciono una obcion, no actializa los datos en mi tabla, ya he revisado varias ...
  #1 (permalink)  
Antiguo 20/07/2006, 14:41
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
Pregunta no actualiza el select o menu

Hola amigos, cotinuo con este formulario, el problema es que cuando selecciono una obcion, no actializa los datos en mi tabla, ya he revisado varias veces y no se que me falta, aqui les pongo mi codigo y marco de color las lineas donde creo que puede estas el problema.

<%@ Language=VBScript%>
<% Dim oConn,strSQL, objRS, var
Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas.mdb")) %>

<html> <head>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ventas</title> </head>

<body>
<h1 align="center">Venta de productos</h1>
<form name="select">
<p align="center">Seleccione el producto a comprar:&nbsp;

<select size="1" name="Producto" >
<% strSQL = "SELECT * FROM Productos ORDER BY Productos"
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%>
<option value="<%=rs.Fields("IdProductos")%>"> <%=rs.Fields("Productos")%></option>
<%
Rs.movenext
wend
Rs.close %> </select> </p></form>

<table border="1" width="80%" height="79" align="center">
<tr>
<td width="25%" height="1" align="center">
<p align="center"><b>PRODUCTOS</b></p>
</td><td width="13%" height="1" align="center">
<p align="center"><b>Cantidad</b></p>
</td>
<td width="12%" height="1" align="center">
<p align="center"><b>Comprar</b></p>
</td><td width="21%" height="1" align="center">
<p align="center"><b>Precio</b></p>
</td>
<td width="29%" height="1" align="center">
<p align="center"><b>Sub-Total</b></p>
</td>
</tr>
<tr>
<td width="25%" height="1">

<p>&nbsp;
<table width="100%" border="1">
<thead>
</thead>
<tbody>
<!--webbot bot="DatabaseRegionStart" startspan
s-columnnames="NombreProducto" s-columntypes="202"
s-dataconnection="Base_de_datos4" b-tableformat="TRUE"
b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE"
b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE"
b-listseparator="TRUE" i-ListFormat="0" b-makeform="TRUE" s-recordsource
s-displaycolumns="NombreProducto" s-criteria s-order
s-sql="SELECT NombreProducto FROM Precios WHERE IDProductos=IdPrecio"
b-procedure="FALSE" clientside SuggestedExt="asp"
s-DefaultFields="IdProductos="
s-NoRecordsFound="Ningún registro devuelto." i-MaxRecords="256"
i-GroupSize="5" BOTID="0" u-dblib="_fpclass/fpdblib.inc"
u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc"
tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;No se puede mostrar una vista previa de las regiones de resultados de base de datos a menos que se busque esta página desde un servidor Web con un explorador de Web. La siguiente fila de tabla se repetirá una vez por cada registro devuelto por la consulta.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el principio de una región de resultados de base de datos. Debe buscarse en la página desde un servidor Web con un explorador de Web para que se vea correctamente; el Web actual está almacenado en su disco local o en la red.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" 1"" var")" &var Producto")" Producto").value" IdProductos")) --><!--#include file="_fpclass/fpdblib.inc"-->
<%
fp_sQry="SELECT NombreProducto FROM Precios WHERE IDProductos=IdPrecio"
fp_sDefault="IdProductos="
fp_sNoRecords="<tr><td colspan=1 align=left width=""100%"">Ningún registro devuelto.</td></tr>"
fp_sDataConn="Base_de_datos4"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" i-CheckSum="10264" endspan -->
<tr>
<td><!--webbot bot="DatabaseResultColumn" startspan
s-columnnames="NombreProducto" s-column="NombreProducto"
b-tableformat="TRUE" b-hasHTML="FALSE" clientside
local_preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;NombreProducto&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;NombreProducto&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" --><%=FP_FieldVal(fp_rs,"NombreProducto")%><!--webbot
bot="DatabaseResultColumn" i-CheckSum="42569" endspan -->
</td>
</tr>
<!--webbot bot="DatabaseRegionEnd" startspan b-tableformat="TRUE"
b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="5"
clientside tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el final de una región de resultados de base de datos.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;TR&gt;&lt;TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64&gt;&lt;FORM&gt;&lt;NOBR&gt;&lt;INPUT TYPE=Button VALUE=&quot; |&lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt;| &quot;&gt; [1/5]&lt;/NOBR&gt;&lt;/FORM&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el final de una región de resultados de base de datos.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;TR&gt;&lt;TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64&gt;&lt;NOBR&gt;&lt;INPUT TYPE=Button VALUE=&quot; |&lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt;| &quot;&gt; [1/5]&lt;/NOBR&gt;&lt;BR&gt;&lt;/td&gt;&lt;/tr&gt;" --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" i-CheckSum="62730" endspan -->
</tbody>
</table>

</td>
<td width="13%" height="1">
<form method="POST" action="compras.asp" webbot-action="--WEBBOT-SELF--">
<p align="center"><input type="text" name="Cpolvo" size="15"></p>
</form>
</td>
<td width="12%" height="1" align="center">
<p align="center"><input type="checkbox" name="Copolvo" value="ON"></p>
</td>
<td width="21%" height="1">

<p align="center">

jesus<%Response.Write(var)%>

</td>
<td width="29%" height="1">
<p align="center"></td>
</tr>
</table>
</body>


En la primera linea nose si me falta algo, una funcion a algo asi.
lo que intento que es el valor del select lo pueda compar en where, en un mejor caso, que al seleccionar alguna obcion el menu actualiza la tabla automaticamente.
Espero me entiendan y gracias por todo.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:33.