<!--#include file="checkadmin.asp" -->
<%
password_old=request("password")
password_new=request("password1")
password_new1=request("password2")
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where id="&session("id")
rs.open sql,conn,1,1
pass=rs("password")
rs=nothing
set rs=nothing

if password_old<>pass then
response.Write("<script language=javascript>alert('旧密码错误'); location.href='config.asp';</script>")
else
if password_new<>password_new1 then
response.Write("<script language=javascript>alert('两次输入密码不同'); location.href='config.asp';</script>")
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where id="&session("id")
rs.open sql,conn,1,3
rs("password")=password_new1
rs.update
rs.close
set rs=nothing
response.Write(err.number&err.description&err.source)
if err=0 then
response.Write("<script language=javascript>alert('修改成功'); location.href='config.asp';</script>")
end if
end if
end if
%>


91对象变量未设置Microsoft VBScript 运行时错误

可以写进数据库，但是ERR<>0啊，奇怪，请高手指点迷津，谢谢！！！！！！！！！

没人回复吗 ？

我个人觉的吧做密码修改的话还是用CASE语句比较简单点，

多谢大家支持！！我已经解决了，rs=nothing,写错了，rs.close

password_old=request("password")
password_new=request("password1")
password_new1=request("password2")
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where id="&session("id")
rs.open sql,conn,1,1
pass=rs("password")
rs=nothing
set rs=nothing