jejeje, te voy a decir como les decía a mis alumnos de la Universidad: "No se trata de que marque menos errores, sino de arreglar los que te van apareciendo". Es que al compilar les maracban 500 errores y hacian cosas extrañas en el código con tal de que marcara solo 200, jejeje.
El código debería estar así:
Código:
Dim conexion
Dim rs
Dim rs1
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Mode=3
conexion.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data 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")
subcatagory= Request.Form("subcatagory")
response.write subcatagory & "<br>" 'Este desplegado es para verificar que llegan valores del formulario, con uno que llegue debe de entrar al for e insertar por lo menos uno. Si no llegan en por que seguro se llama diferente el campo en el otro programa.
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
Checalo, si sigue sin correr, pon el código de los
dos programas para ver que esta mal.