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

[davidmz23]

el codigo quedo asi:

Dim conexion
Dim rs
Dim rs1

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Mode=3
conexion.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & Server.MapPath("db2.mdb"))
Set rs = Server.createobject("ADODB.Recordset")
Set rs1 = Server.createobject("ADODB.Recordset")

sql="insert into NTK (TK) values ('" & request("TK") & "')"
conexion.Execute(sql)

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

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

response.write sql11

Next
conexion.close
set conexion=nothing