Alguien puede revisar esto please

[davidmz23]

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

For each i In request.form("subcatagory")
For each Valor In rs("Valor")
sql1 = "SELECT Valor FROM Tabla2 Where subcatagory = '"&request("i")&"'"
Next
response.write sql1
rs.Open sql1, conexion, 3, 3

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

conexion.close
set conexion=nothing

me aparece el error "No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido" linea 27 que es "For each i In request.form("subcatagory")"