<%
if Request("action")="save" then
sql="select * from tb_message where message_ID=Null"
set rst=Server.CreateObject("ADODB.RecordSet")
rst.open sql,conn,1,3
rst.addnew
rst("message_Type")=Request.Form("message_Type")
for i=1 to 7
rst("message_Pro"&i)=Trim(Request.Form("message_Pro"&i))
next
rst("message_Content")=Trim(Request.Form("message_Content"))
rst.update
rst.close:set rst=nothing
Response.write("")
end if
%>