<%if Session("weight")=0 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("user_name")<>session("Current_user") then

	sql="update user set send_letter=send_letter+1,charisma=charisma+"&Application("send_letter_value")
	sql=sql&"  where user_name='"&session("Current_user")&"'"
	conn1.Execute(sql)
	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)	
	end if
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "other_note",conn1,3,2
	rs.addnew
	rs("user_name")=Request("user_name")
	rs("from_who")=session("Current_user")
	rs("type")=0
	rs("title")=Request("title")
	rs("other_note")=Request("other_note")
	
	rs("time")=now()
	rs.update


%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<table width="360" border="0" >
 <% 'if Request("user_name")<>session("Current_user") then%>
   <tr><td align=center><br>
                          
   <FONT color=#003399 size=2><BR>系统已成功的将您的信息发送给<font color=red><%=Request("user_name")%></font>了！
      </td></tr>
  <%'else%> 
<!--	<tr><td align=center><br>
                          
   <FONT color=#003399 size=2><BR>对不起，您不能给自己发信 8-)！
      </td></tr>-->
  <%'end if%>
   <tr>   
      <td  align=center><BR><BR>
      <a href=javascript:window.close(); >关闭窗口</a></font></td>
      </tr>  
</table>  


</BODY>
</HTML>
