18/08/2004, 11:20
|
| | | Fecha de Ingreso: agosto-2004
Mensajes: 81
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| si lo pongo asi solo funciona para una seleccion en el menu de lista llamado subcatagory
vector = split (subcatagory,",")
for i=0 to UBound(vector)
sql1 = "SELECT Valor FROM Tabla2 Where subcatagory = '"&vector(i)&"'"
rs.Open sql1, conexion, 3, 3
conexion.execute(sql1)
'rs.Close
'set rs = nothing
sql11 = "INSERT INTO Mesa1 (TK, subcatagory, Mesa, Cantidad, Valor) VALUES ("&request("TK")&", '"&vector(i)&"', "&request("Mesa")&", "&request("Cantidad")&", "&rs("Valor")&")"
'rs1.Open sql11, conexion, 3, 3
conexion.execute(sql11)
response.write sql11
'rs1.Close
'set rs1 = nothing
Next
conexion.close
set conexion=nothing |