Ultima duda, lo juro

Tengo este código:
Dim carrito
Dim accion
Dim volver
Dim producto
Dim Eleccion
Dim cant
Dim dbTienda
' Si no existe el carrito lo creo
' si existe lo referencio
Eleccion=Request.QueryString("Eleccion")
set dbTienda=Server.CreateObject("ADODB.Connection")
dbTienda.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../BaseDeDatos/Tienda.mdb")
if isobject(Session("carrito")) then
set carrito=Session("carrito")
else
set carrito=Server.CreateObject("Scripting.Dictionary")
end if
accion=CStr(Request.QueryString("ac"))
producto=CInt(Request.QueryString("prod"))
cant=CInt(Request.QueryString("cant"))
Select Case accion
Case "ver"
MostrarCarrito
Case "meter"
MeterArticulo producto
MostrarCarrito
Case "sacar"
call SacarArticulo (producto, cant)
MostrarCarrito
Case "fin"
PasarPorCaja
Case else
'Muestro el catálogo
MostrarCatalogo
End Select
set Session("carrito")=carrito
dbTienda.Close
set dbTienda=nothing
%>
'----------
Sub MeterArticulo (Id)
if carrito.Exists(Id) then
carrito(Id)=carrito(Id)+1
else
carrito.Add Id, 1
end if
Response.Write("Se ha añadido el artículo al carrito<br><br>")
End Sub
'-----------
Y cuando quiero añadir mas unidades de un mismo producto, lo hago asi ("que funciona"):
<a href="productos.asp?ac=meter&prod=<%=RsProducto.fields("IdProducto")%>" ><img border="0" src="../images/mas.png" alt="Añadir una unidad" ></a>
Lo que me gustaría hacer es que al dar al botón fuese al procedimiento MeterArticulo, y aquí capturara las existencias de ese producto (¿select existencias from productos where idproducto=?), en este punto tengo problemas, y no se como solucionarlo.
Si esta muy lioso dímelo y te envío todo el código.
Saludos y 1000 gracias.

1 Respuesta

Respuesta
1
Sino comprendí mal, al procedimiento MeterArticulo está llegando el código del artículo. Con este código, vos podrías ejecutar una consulta en la DB y con esto obtener las existencias del producto. No sé como lo tenés en la base, pero el proceso sería similar a cualquier consulta, por ejemplo:
Dim oConnection, oRecordset
Set oConnection = Server.Createobject("ADODB.Connection")
oConn.Open "..."
Set oRecordset = oConnection.Execute "SELECT Cantidad FROM Productos WHERE CodigoProducto = '" & Id & "'"
Cantidad = oRecordset("Cantidad").Value
oRecordset.Close
Set oRecordset = Nothing
oConnection.Close
Set oConnection = Nothing

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas