Aqui te dejo el codigo completo, a lo mejor te parecera estraño, ya que este codigo realiza dos funciones en una; es deir consulta y modifica a la vez:
<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;"%>
<%
dim pre,cant,pretotal,a,b,C
'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 llama 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)
a=rs("Cantidad")
response.write ("<BR>Leí de la base: " & a)
b=cstr(request.form ("cantidadx"))
response.write ("<BR>Ingresé en el form: " & b)
C=a-b
response.write ("<BR>Resultado: " & C)
'rs=Cantidad="C"
'rs=update
'SQL = "update Producto set Cantidad = (C) where codigo = "& Obj_RS("codigo") & " ;"
SQL = "update Producto set Cantidad = "& (C) &" Where codigo = "& rs("codigo") & " ;"
'SQL = "update Producto set cantidad=Cantidad-"&cantidadx&" where codigo = "& Obj_RS("codigo") & " ;"
response.write ("<BR>Ejecuto: " & SQL)
Obj_Conn.Execute(SQL)
'cant=cstr(request.form ("cantidadx"))
'response.write (cant)
'pre=rs("Precio")
'response.write (pre)
'pretotal= request.form ("cantidadx") * rs("Precio")
'pretotal= cant * pre
'<%Resultado = CSng(request.form("cantidadx")*Obj_RS("Precio"))%>
<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>
<%response.write (pretotal)%>
</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>
Si te fija bien, e intentado varias forma y no me da, solo quiero ver porque no me guarda el resultado de la resta en el campo que quiero????
Miguel