Disculpa, pero de los tres post que escribiste, no entendí ninguno.
Código:
for i=0 to UBound(vector)
sql1 = "SELECT Valor FROM Tabla2 Where subcatagory = '"&vector(i)&"'"
rs.Open sql1, conexion, 3, 3
sql11 = "INSERT INTO Mesa1 (TK, subcatagory, Mesa, Cantidad, Valor) VALUES ("&TK&", '"&vector(i)&"', "&Mesa&", "&Cantidad&", "&rs("Valor")&")"
'conexion.execute(sql11)
rs.Close
response.write sql11 & "<br>"
Next
Este código, tal cual, sin cambiarle nada, ¿funciona para uno, para más de uno?, Nada mas debe de imprimirte tantos "INSERT .... " como elementos haz seleccioando.
Si te truena, copia y pega el error que te pone
en el navegador completo, por que eso de "ocurrio una excepcion en sql11", no me sirve.