Hola amigo aqui estoy de nuevo, tengo un problema donde a traves de una consulta yo hago una operacion de resta proveniente de un campo desde un formulario y un campo desde una BD, la cual su resultado se graba en un campo (cantidad) de la BD, hasta aqui perfecto, pero cuando utilizo otra vez el formalaruio con nuevos datos para realizar la misma operacion, sigue tomando el ultimo dato utilizado. Como puedo borrar de la memoria si se puede decir asi?????? para quue tome solo el dato nuevo????? Aqui esta el codigo que utilizo:
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Consulta de una Base de Dato</title>
</head>
<body>
</table>
</head><body bgcolor="#808000">
<div align="center">
<center>
<table border="2" width="50%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"><B>RESULTADO DE LA CONSULTA</B></font></td>
</tr>
</table>
</center>
</div>
<%
'AQUI COMPARAMOS EL CODIGO PARA VER SI EXISTE
Codigo=request.form("Codigo")
set rs=createobject("ADODB.Recordset")
sqltxt="select foto,Codigo,Descripcion,Cantidad,Precio from Producto where Codigo like '%"&Codigo&"%'"
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\asp\graciela.mdb;"%>
<%
'AQUI ENTRA LA CANTIDAD QUE SE VA A RESTAR CON LA CANTIDAD DE BD
cantidadx = Request.Form ("cantidadx")
SET Obj_Conn = Server.CreateObject("ADODB.Connection")
Obj_Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\asp\graciela.mdb;"
'Suponiendo que la Tabla se llamada PRODUCTO y el campo codigo, comprobamos que producto existe.
strSQL = "select codigo,Cantidad from Producto where codigo = "&codigo&" ; "
SET Obj_RS = Obj_Conn.Execute(strSQL)
'IF NOT Obj_RS.EOF THEN
SQL = "update Producto set cantidad=Cantidad-"&cantidadx&" where codigo = "& Obj_RS("codigo") & " ;"
Obj_Conn.Execute(SQL)
'end if%>
<CENTER>
<%if rs.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su petición </font></h3>
<%else%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90" alt="70">
<tr>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=rs("Cantidad")%></font></td>
<td width="100%"><img src="<%=rs("foto")%>"width="90" alt="70" >"
</td>
<BR>
<table border="0" width="50%">
<tr>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Codigo</font></th>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Descripcion</font></th>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Cantidad</font></th>
<th width="20%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Precio</font></th>
</tr>
<%do while not rs.eof%>
<tr>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=FormatNumber((rs("Codigo").Value), 0, -2, -1, -1)%></font></td>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=rs("Descripcion")%></font></td>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=rs("Cantidad")%></font></td>
<td width="20%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="5"><%=rs("Precio")%></font></td>
</tr>
<%rs.movenext
loop
rs.close
end if%>
<%
obj_Conn.Close
Set rs = Nothing
Set obj_Conn = Nothing
%>
</table>
</CENTER>
<p> </p>
<p align="center"><a href="fconsultagraciela2.html">Otra vez</a></p>
</body>
Miguel
