<% Do Until rs.EOF
if request("fsdx"&rs(name))<>"" then
dim fsdx,fssj,fsnr,fszt,sffk,fsry
fsry=session("UserName")
fsdx=request.form("fsdx"&rs("name"))
fsnr=request.Form("fsnr")
fssj=now()
fszt=request.form("jjzy")
sffk=request.form("xfhqr")
Set rs = Server.CreateObject("ADODB.Recordset")                  '------这句删掉试试
SQL="insert into smsdata(fsdx,fssj,fsnr,fszt,sffk,fsry)values  ('"+fsdx+"',#"&fssj&"#,'"+fsnr+"','"+fszt+"','"+sffk+"','"+fsry+"')"
conn.execute SQL
rs.MoveNext
Loop %>

错误类型：
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/ao/personalinterface/smsgroupsave.asp, line 21
Loop
老大，还是同样的错误啊，是不是语法有误啊？通常做这种循环插入操作的还有什么别的方法没有啊？请赐教啊！谢谢了！

<% Do Until rs.EOF
if request("fsdx"&rs(name))<>"" then
dim fsdx,fssj,fsnr,fszt,sffk,fsry
fsry=session("UserName")
fsdx=request.form("fsdx"&rs("name"))
fsnr=request.Form("fsnr")
fssj=now()
fszt=request.form("jjzy")
sffk=request.form("xfhqr")
Set rs = Server.CreateObject("ADODB.Recordset")                  '------这句删掉试试
end if                                                              '------把后面的end if移到这里试试，刚才漏了
SQL="insert into smsdata(fsdx,fssj,fsnr,fszt,sffk,fsry)values  ('"+fsdx+"',#"&fssj&"#,'"+fsnr+"','"+fszt+"','"+sffk+"','"+fsry+"')"
conn.execute SQL
rs.MoveNext
Loop %>

太棒了，解决了老大！谢谢啊！

<%if request("fsdx<%=rs("name")%>")<>""
不可以这样写