Dim rs,last_ID
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open "NOTICE", db_connection, adOpenKeySet, adLockPessimistic, adCmdTable
		rs.AddNew
		rs("title").Value = title
		rs("message").Value = message
		rs("date_raised").Value = Date &" "& Time
		rs("project_ID").Value = projectID
		rs("issuer_ID").Value = userID
		rs("notice_type").Value = ntype
		rs.Update
		last_ID = rs("ID")
		rs.Close