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

[davidmz23]

Myakire, pude solucionarlo se me courrio probar con For en vez de con la funcion split
y funciono. que do asi (lo dejo para que lo puedan aprovechar ya que como tu dices este tema es muy preguntado en el foro)
TK = Request.Form("TK")
Mesa = Request.Form("Mesa")
Cantidad = Request.Form("Cantidad")
subcatagory= Request.Form("subcatagory")

FOR i = 1 to request.form("subcatagory").count
sql1 = "SELECT Valor FROM Tabla2 Where subcatagory = '"&request("subcatagory").item(i)&"' "
rs.Open sql1, conexion, 3, 3

Response.write sql1 & " = " & rs("Valor") &" <br>"

sql11 = "INSERT INTO Mesa1 (TK, subcatagory, Mesa, Cantidad, Valor) VALUES ("&TK&", '"&request("subcatagory").item(i)&"', "&Mesa&", "&Cantidad&", "&rs("Valor")&")"
conexion.execute(sql11)

rs.Close

Next

Myakire no tengo palabras para agradecerte en la ayuda que me as dado.
en mensajes privado te he dejado uno espero que lo leas, un millon de gracias eres un genio.(espero que esto no te popularice mucho en el foro, si no te van a volver loco, como yo, jeje. Un abrazo y un saludo muy grande para ti)