<%
if Session("isAdmin")<>true Then
Response.Write ""
Response.End
End if
%>
<%if request("action")="save" then
admin=request("admin")
passa=request("passa")
pass=request("pass")
pass1=request("pass1")
if Len(pass) =0 then
response.write ""
Response.End
end if
if pass<>pass1 then
response.write ""
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin_table where user='"&admin&"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if md5(passa,16)<>rs("password") then
response.write ""
Response.End
else
rs("password")=md5(pass,16)
rs.update
rs.close
set rs=nothing
response.write ""
Response.End
end if
else
response.write ""
Response.End
end if
end if%>
