纳米微吸材料:一段修改个人信息的ASP代码，请大侠指点。谢谢谢谢

<!--#include file="conn.asp"-->
<%
User2 = Request ("User")
Email = Request ("Email")
QQMSN = Request ("QQMSN")
Vacation = Request ("Vacation")
If Vacation = "" Then
Vacation = False
Else
Vacation = True
End if
If UserName <> UserName2 Then
Conn.Close
Session ("Message") = "产生未知错误，请再试一次。"
Response.Redirect "error.asp"
End if
rs.Open "Update member Set Email = '" & Email & "', QQMSN = '" & QQMSN & "', Vacation = '" & Vacation & "' Where User = '" & User & "'",Conn
Conn.Close
Session ("Message") = "个人信息修改成功。<a href=user.asp>返回<?a>"
Response.Redirect "succ.asp"
%>
用户名不能修改。
Vacation是个选项，是或否
现在的问题是提交修改时显示错误，而修改第二段IF语句后，提示修改成功，但是却无法加入数据库内信息，显示的还是原信息。谢谢谢谢
Set Conn = nothing
Session ("Message") = "个人信息修改成功。<a href='user.asp'>返回</a>"
Response.Redirect "succ.asp"
Response.End
最后语句也用过这个，没有用。菜的很，请指点一下。不胜感激。。谢谢
感谢楼下两位的热心回答，不行的，没有解决问题
If UserName <> UserName2 Then
这行代码应该是If User <> User2 Then