<%
SQLT="select * from t where id_s=3"
set rst= Server.CreateObject("ADODB.Recordset")
rst.Open SQLT,cn1
%>
<tr>
<td class="text" colspan="2">
	<center><font Class="zagolov">Удовлетворены ли Вы ...</font></center>
</td>
</tr>
<%	do while Not rsT.EOF 
	t=rst("id")
%>
		<tr>
		<td Class="Zag1_1" colspan="2">
		<br>
		<center><b><i><%=rsT("Name")%></i></b></center>
		</td>
		</tr>

<%
SQLV = "select * from v where team_id="&t&" order by order_num"
set rsq=Server.CreateObject("ADODB.Recordset")
rsq.Open SQLV,cn1
%>
<%do while not rsq.EOF%>
			<tr>
			<td width=50% Class="Zag1_1" colspan="2">
			<input type="checkbox" name=<%=rsq("id")%> value=<%=rsq("id")%>>
			<%=rsq("Name")%>
			</td>
<%
rsq.MoveNext 
if rsQ.EOF Then Exit Do
Loop
%>

<%	
rsT.MoveNext 
if rsT.EOF Then Exit Do
Loop
%>

do while not rst.eof
t=rst("id")
response.write(t)
	sqlr="insert into results(id_p, id_v, id_t, date_create) values ('"& id_p &"', '"& Request("variant") & "', '"& t &"' ,GETDATE())"
	response.write(sqlr)
cn.Execute sqlr