无标题.txt

一个基于ASP＋access技术的b/s模式的CRM（客户关系管理）系统

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