do while not rs.EOF

ming=rs("mingcheng")
  
  for i=1 to n
   t=Request.Form("t"&i&"") 
    if t=1 then 
  cnn.execute("insert into userdom (bianhao,yonghuming,dom)" & _
            " values ('009','" & szname & "','" & ming & "'") 
    end if 
  next     

loop