Ya te quedaría mas o menos así (para que lo pruebes y veas los resultados, solo copialo tal cual, lo pegas en un archivo .asp y lo corres):
Código:
<%
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)&"'" & "<br>"
response.write sql1
' rs.Open sql1, conexion, 3, 3
' sql11 = "INSERT INTO Mesa1 (TK, subcatagory, Mesa, Cantidad, Valor) VALUES ('"&TK&"', '"&vector(i)&"', '"&Mesa&"', "&Cantidad&", "&rs(""ValorDeLaOtraConsulta"")&")" & "<br>"
sql11 = "INSERT INTO Mesa1 (TK, subcatagory, Mesa, Cantidad, Valor) VALUES ('"&TK&"', '"&vector(i)&"', '"&Mesa&"', "&Cantidad&", rs(""ValorDeLaOtraConsulta""))" & "<br>"
response.write sql11
' rs1.Open sql11, conexion, 3, 3
response.write "<br>"
Next
%>
<form name=form2 method=post action='checks2.asp'>
<table border=1 width='70%'>
<td align=center><select name=subcatagory multiple="multiple">
<%for i=1 to 10%>
<option value=<%=i%>><%=i%></option>
<%Next%>
<select></td>
<td align=left>TK:<input type=text name=TK><br>
Mesa:<input type=text name=Mesa><br>
Cantidad:<input type=text name=Cantidad><br>
</tr>
<tr>
<td colspan=4 align=center><br><input type=submit name=submit2 value='Ver Inserts generados'></td>
<input type=hidden name=hidTotElementos value=10><!-- Este campo oculto es para saber cuantos registros de imprimieron, habia que cambiar el 10 por algún contador -->
</form>
Le quitas los comentarios, borras los request.write, agregas el código de conexción y listo. Pruebalo y me cuentas.
Por cierto, que no te condundan: ASP se puede escribir tanto con sintaxis VBScript como con JScript, es mas, se pueden mezclar las dos en el mismo archivo .asp, siempre y cuando se distinga muy claramente el código que corre en el servidor (etiqueta <script RUNAT=server language="uno de los dos" o marcas <%%>) del que corre en el cliente (etiqueta <script language="uno de los dos">).
Saludos