Set objRs = Server.CreateObject("Adodb.Recordset")
mysql = "select sname from [users] where sname = '"sname"'"
objRs.open mysql,objConn,1,3

If objRs.Bof Or objRs.Eof Then
 objRs.addnew
 objRs("sname") = sname
 objRs.update
Else
 call salert("该用户已经存在，不可以注册")
End If