asp向数据库插入数据的方法rs

1. Set objRs = Server.CreateObject("Adodb.Recordset")  
2. mysql = "select sname from [users] where sname = '"&sname&"'"  
3. objRs.open mysql,objConn,1,3  
4.  
5. If objRs.Bof Or objRs.Eof Then  
6.  objRs.addnew  
7.  objRs("sname") = sname  
8.  objRs.update  
9. Else  
10.  call salert("该用户已经存在，不可以注册")  
11. End If