<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
if Request("suggestion")<>"" then
			
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "suggestion",conn1,3,2
	rs.addnew
	rs("user_name")=session("Current_user")
	suggestion=replace(Request("suggestion"),chr(10),"<br>",1,-1,1)
	rs("suggestion")=replace(suggestion,chr(13),"<br>",1,-1,1)
	
	rs("time")=now()
	rs.update
	
end if
Response.Redirect "suggestion.asp"



%>