<% txt_news=request.Form("txt_news") txt_now=date() id=request("id") dim db,trs Set db=new Connections set trs=server.CreateObject("ADODB.recordset") select case request("Action") case "add" add_sql="insert into NEWS (NEWS,UP_DATE) values ('"& txt_news &"','"& txt_now &"')" case "upd" add_sql="update NEWS set NEWS='"& txt_news &"' where ID=" &id end select db.Query add_sql,0 response.write "" %>