<%
dim s,usename,paw
  
	paw=request.form("txtpaw")
	usename=request.form("txtname")
if request.form("submit")="確定" then
    set rs=server.CreateObject("adodb.recordset") 
	s="select * from user "
	rs.open s,conn,3,3
	rs.addnew
	
	rs("password")=paw
	rs("usename")=usename
	
	response.write "<script> alert('修改成功!');location.href='admin_adduser.asp';</script>"
	rs.update


   end if
  
%>