Myakire o alguien que pueda ayudarme please help!!!!!!

[davidmz23]

hola, Myakire hice lo que me pediste con algunas modificaciones por unos error de que se esperaba fin de instruccion o se esperaba ')' etc

y me quedo esto

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

response.write "TK:" & TK & "<br>"
response.write "Mesa:" & Mesa & "<br>"
response.write "cantidad:" & Cantidad & "<br>"
response.write "SubCategoria:" & 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

sql11 = "INSERT INTO Mesa1 (TK, subcatagory, Mesa, Cantidad, Valor) VALUES ("&TK&", '"&vector(i)&"', "&Mesa&", "&Cantidad&", "&rs("Valor")&")"
rs1.Open sql11, conexion, 3, 3

Next

%>


llegue al error de que en la consulta sql11 "ocurrio una excepcion" seguramente algo estoy obviando en el codigo pero no se que es