Insertar forma de pago en una tabla

[GUW]

No tengo el insert de forma_pago porque cómo no me ha funcionado de ninguna manera, no quiero confundir. La página pagar.asp es de paso, para que el cliente inserte sus datos de usuario, si ya está registrado, o los inserte por primera vez. Esta página pasa a comprobar_usuario.asp y de aquí a realizar_pedido.asp:

<%
Option Explicit

'Definición de variables

Dim Base 'Objeto Connection para acceder a la base de datos
Dim Tabla 'Objeto RecordSet para realizar consultas
Dim SQL 'String para crear la consulta SQL
Dim cod_usuario 'Código del usuario que realiza el pedido
Dim cod_pedido 'Código único del pedido
Dim fecha 'Fecha de realización del pedido
Dim producto 'Variable para recorrer los productos comprados


'Fin de la definición de variables
If Session ("cod_usuario") = "" Then Response.Redirect "../index.asp"

cod_usuario = Session ("cod_usuario")
fecha = Month (Date) & "/" & Day(Date) & "/" & Year(Date)

SET Base = Server.CreateObject ("ADODB.Connection")
SET Tabla = Server.CreateObject ("ADODB.RecordSet")
base.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:/business/jokast.com/private/ jokast.mdb"
SQL = "Insert into pedidos (cod_pedido, cod_usuario, fecha, estado) " & _
"values ('#', '" & cod_usuario & "', #" & fecha & "#, '0')"
Application.Lock
Base.Execute SQL

SQL = "Update pedidos Set cod_pedido=Right('000000' & id,15) " &_
"Where cod_pedido='#'"
Base.Execute SQL

SQL = "Select cod_pedido From pedidos Order By id DESC"
Tabla.Open SQL, Base, 3, 3
cod_pedido = Tabla ("cod_pedido")
Tabla.Close
Set Tabla = Nothing
Application.UnLock

For Each producto In Request.Cookies("Compra")
If Request.Cookies ("Compra")(producto) <> "" Then
SQL = "Insert Into detalle_pedidos (cod_detalle_pedido, " & _
"cod_pedido, cod_producto, unidades) values ('#', '" & _
cod_pedido & "', '" & producto & "', " & _
Request.Cookies ("Compra")(producto) & ")"
Base.Execute SQL

SQL = "Update detalle_pedidos Set cod_detalle_pedido = Right " & _
" ('000000' & id, 20) Where cod_detalle_pedido='#'"
Base.Execute SQL
End If
Next

Base.Close
Set Base = Nothing

Response.Cookies ("Compra").Expires = DateAdd ("d", -1, Date)
Session ("cod_usuario") = ""

%>