Ver Mensaje Individual
  #39 (permalink)  
Antiguo 18/08/2004, 11:04
davidmz23
 
Fecha de Ingreso: agosto-2004
Mensajes: 81
Antigüedad: 20 años, 9 meses
Puntos: 0
el codigo a quedado asi:

TK = Request.Form("TK")
Mesa = Request.Form("Mesa")
Cantidad = Request.Form("Cantidad")
subcatagory= Request.Form("subcatagory")

response.write subcatagory & "<br>"

vector = split (subcatagory,",")
for i=0 to UBound(vector)

sql1 = "SELECT Valor FROM Tabla2 Where subcatagory = '"&vector(i)&"'"
rs.Open sql1, conexion, 3, 3

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

response.write sql11

rs1.Close
set rs1 = nothing

Next
conexion.close
set conexion=nothing

ya que si cierro los dos recordset junto me dice que la operacion no es validad si el objeto esta cerrado.