<% user_name=request.Form("user_name") user_pass=request.Form("user_pass") user_rating=trim(request.Form("user_rating")) user_hy=trim(request.Form("user_hy")) dim db,trs1 Set db=new Connections set trs1=server.CreateObject("ADODB.recordset") sql="select * from admin_user where user_name='"&user_name&"'" set trs1=db.Query (sql,1) select case request("Action") case "add" if not trs1.eof then response.Write("") response.End() else dim trs set trs=server.CreateObject("ADODB.recordset") add_sql="insert into admin_user (USER_NAME,USER_PASS,USER_RATING) values ('"&user_name&"','"&user_pass&"','"&user_rating&"')" db.Query add_sql,0 'trs.addnew ' trs("user_name")=user_name ' trs("user_pass")=user_pass ' trs("user_rating")=user_rating ' trs.update end if case "upd" dim trs2 set trs2=server.CreateObject("ADODB.recordset") upd_sql="update admin_user set user_name='"&user_name&"',user_pass='"&user_pass&"',user_rating='"&user_rating&"' where ID="&request.Form("ID")&"" db.Query upd_sql,0 'trs("user_name")=user_name ' trs("user_pass")=user_pass ' trs("user_rating")=user_rating ' trs.update end select response.write "" %>