

<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
 
  set rs=server.CreateObject ("ADODB.recordset")
  sql="select * from user_info where user_name='"&session("Current_user")&"'"
  
   rs.Open sql,conn1,2,3
   if rs.RecordCount<>0 then
	rs("firstdate")=Request("firstdate")
	rs("life")=Request("life")
	rs("meet")=Request("meet")
	rs("discomfiture")=Request("discomfiture")
	rs("memory")=Request("memory")
	rs("parentapp")=Request("parentapp")
	rs("friendapp")=Request("friendapp")
	rs("selfintro")=Request("selfintro")
	rs("objectdes")=Request("objectdes")
	rs.Update 
   end if  
   
	Response.Redirect "my_heart.asp"
	
%>
 