<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<%
Application.Lock

Application("SMTPServer_username")=Request("SMTPServer_username")
Application("SMTPServer_passwd")=Request("SMTPServer_passwd")
Application("SMTPServer")=Request("SMTPServer")
Application("SystemEmail")=Request("SystemEmail")
Application("SenderName")=Request("SenderName")
Application.UnLock 
Response.Redirect "mail_manage.asp"
%>