Hola Adler,
Gracias por la ayuda, he intentado hacer algo parecido a lo que tú me dices, eso creo al menos. He invertido los valores en la sentencia SQL por si era algo de eso pero da el mismo error en la línea de "SQL="INSERT INTO Pedidos ('"&oRs.Fields("IdProducto")&"') values ('"&clave&"')" me dice: "Se requiere un objeto: 'oRs'" pero el objeto oRs ya está declarado ya que lo he creado primero aquí:
Código asp:
Ver original<%
Sub MostrarCatalogo
Set tabla = Server.CreateObject("ADODB.recordset")
Set oRs = Server.CreateObject("ADODB.recordset")
%>
Y luego aquí:
Código asp:
Ver original<%
Dim carrito
Dim accion
Dim producto
Dim cant
Dim conexion
Dim oRs
%>
Así es como he dejado esta parte del código:
Código asp:
Ver original<%
subtotal=CSng(FormatNumber(carrito(clave))*tabla.Fields("Precio"))
total=total+subtotal
%>
<TD><%= subtotal %></TD>
</TR>
<%
if accion<>"fin" then
else
SQL="INSERT INTO Pedidos ('"&oRs.Fields("IdProducto")&"') values ('"&clave&"')"
Set oRs=conexion.Execute(SQL)
end if
Next
If carrito.Count > 0 Then
tabla.Close
La verdad es que tengo un lío considerable con el tema de las SQLs y todo eso.