更新数据问题 ，急

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from t_majiainfo where majia='"&sql_check(session("user_name"))&"' or majia='*"&sql_check(session("user_name"))&"'",conn,1,3
rs("flg")=1
rs.update
rs.close
Set rs=Nothing

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from t_majiainfo where  majia='*流沙流沙漫天飞'",conn,1
do while not rs.eof
%>
<script>alert(rs("majia"));</script>
<%
rs.movenext
loop
rs.close
Set rs=Nothing
我希望弹出更新结果，结果没反应，为啥，还有啥简单方法可以检测我的更新是否成功？（远程数据库不能直接打开看）