<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
if Request("other_note")<>"" then
	
	sql="update user set receive_letter=receive_letter+1,charisma=charisma+"&Application("receive_letter_value")
	sql=sql&"  where user_name='"&Request("user_name")&"'"
	conn1.Execute(sql)	
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "other_note",conn1,3,2
	rs.addnew
	rs("user_name")=Request("user_name")
	rs("from_who")=Request("from_who")
	rs("title")=Request("title")
	rs("other_note")=Request("other_note")
	rs("time")=now()
	rs.update
	
end if

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<LINK 
href="css/default.css" rel=stylesheet>
<table width="100%" border="0" >
  <tr><td align=left><br>
                          
   <FONT color=#003399 size=2><BR>&nbsp;&nbsp;&nbsp;&nbsp;<big><big>系统已成功的将您的信息发送给<font color=red><%=Request("user_name")%></font>了！</big></big>
      </td></tr>  
      <tr>
    <td align="center" > <a href=javascript:close() ><big><big><big>关闭窗口</big></big></big></a></font></td>
      </tr>  
</table>  


</BODY>
</HTML>
