<%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("mynote")<>"" then
	set rs1=server.CreateObject ("ADODB.recordset")
	sql="select * from mynote where user_name='"&session("Current_user")&"'"
	rs1.Open sql,conn1,3
	if rs1.RecordCount<20 then
		
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "mynote",conn1,3,2
	rs.addnew
	rs("user_name")=session("Current_user")
	rs("mynote")=replace(Request("mynote"),chr(10),"<br>",1,-1,1)
	
	rs("time")=now()
	rs.update
	end if
end if
Response.Redirect "my_notebook.asp"



%>