Hermanos ayudenme con esto???

[8461277]

Gracias por contestar, somos del mismo pais, sabe que estoy a tus ordenes en Guarico, coloque el codigo que me diste y quedo asi:

<%
dim pre,cant,pretotal
'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)
cant=(request.form("cantidadx"))
pre=rs("Precio")
pretotal=cant*pre
response.write (pretotal)

Pero me arroja el siguiente error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos
/asp/consultamodificagraciela.asp, línea 48

y en la linea 48 esta: pretotal=cant*pre

Sera que no va en esa parte del codigo????? o que es lo que pasa, ayudanme por fa?????

Miguel Venezuela